Não foi possível enviar o arquivo. Será algum problema com as permissões?
Essa é uma revisão anterior do documento!
Projeto Obesidade em Adolescentes
Introdução
Objetivos
O objetivo geral deste projeto é ilustrar a aplicação de métodos estatísticos para obesidade com auxílio de recursos computacionais do pacote R.
Participantes
Links de Interesse
Conjunto de Dados
Relação das cidades abrangentes na pesquisa
Dados de Obesidade por município
Scripts do R
Importação dos dados
# Leitura de Dados
# Carregando o pacote foreign
require(foreign)
# Armazenando os nomes dos arquivos
nomes<-list.files(getwd(),pattern='.rec')
# Concatenando os arquivos importados do Epi-info
d<-NULL;for (i in 1:length(nomes)) {
dtemp<-read.epiinfo(file(nomes[i],encoding='latin1'))
dtemp$cidade<-strsplit(nomes[i],".rec")[[1]]
d<-rbind(d,dtemp)
}
Frequência de adolescentes por cidade
Adrian Almirant Altonia Altopiqu Antonina Apuca Assischa Astorga
109 157 162 129 158 45 83 158
Bandeira Belavist Bituruna Borrazop Braganey Cafeland Cambara Campomou
171 162 119 97 127 137 114 131
Candoi Castro Cianorte Clevelan Corbelia Cornelio Crumacha Cruzeiro
145 99 118 136 153 174 108 71
Cruzoest Diamante Espigao Fazenda Floresto Foziguac Goioere Guaira
143 67 164 184 117 168 119 122
Guarapua Guaraque Guaratub Ibaiti Ilhamel Imbituva Irati Iretama
127 54 118 114 28 114 165 146
Itaperuc Ivaipora Jacarezi Jandaia Janiopol Jeronimo Jesuitas Joaoivai
129 158 136 145 114 57 104 154
Kabore Lapa Loanda Lupiono Mangue Manoelri Marialva Mariana
84 200 81 103 117 91 134 59
Medianei Novaauro Novaesp Novaespe Novalara Paicandu Palmeira Palmital
179 136 131 136 114 123 42 126
Palotina Paranava Pato Pgua Piacague Prudento Quedas Querenci
152 160 170 148 11 186 65 87
Reboucas Reserva Roncador Santonio Saojose Senges Siqueira Smiguel
139 144 83 104 144 96 132 131
Stacruz Stamaria Stizabel Teroxa terraboa Tibagi Toledo Tomazina
123 118 127 157 135 126 44 143
Tuneiras Turvo Uvitoria Vizinhos Wencebra
137 63 112 152 137
Análise Descritiva
summary(d,na.rm=T)
