#
#================================================================
#	Análise Descritiva
#================================================================
#
 dados<-read.table("alunos_13.txt",h=T)    
 dados
 names(dados)
 dim(dados) #numero de colunas de dados
 attach(dados) # permite chamar as variaveis pelo nome
#           
#  Variáveis Categóricas: Formacao e Genero       
#         
  Formacao.tb<-table(Formacao,dnn = c("Medicina","Farmacia","ServSocial","Fisioterapia",
  "Enfermagem","Nutricao","Computacao")) 
  Formacao.tb
  Formacao.tbp<-round(prop.table(Formacao.tb),2)
  Formacao.tbp
  barplot(Formacao.tb,main="Gráfico de Barras - Formação",
  names=c("Medicina","Farm.","Serv.Social","Fisio",
  "Enfer.","Nutr.","C.Comp."), 
  ylab= "frequência", xlab="")
#
 pie(Formacao.tb,
# labels = paste(paste(c("castanho","loiro","preto", "ruivo"), 
 round(prop.table(t1)*100,2), sep="-"), "%",sep=" "),main=”Distribuição 
 dos elementos da amostra segundo cor dos cabelos”)
# 
#===================================================================
#         Estatisticas Descritivas e Graficos
#=================================================================== 
# 
 mean(Idade) 
 median(Idade)
 sd(Idade) 
 summary(Peso)
 by(Idade, sexo, summary) #estatisticas estratificada por sexo
# 
     Graficos
#
 hist(Idade) # histograma de x
 boxplot(Idade) #boxplot de x
 stem(Idade) # ramo e folhas do x
 stem(Idade,scale=2) # dobra a escala do ramo e folhas
 par(mfrow=c(1,2)) # divide o espaco grafico em 1 linha e 2 colunas
 boxplot(Idade ~ Genero) #boxplot por sexo
 boxplot(Idade ~sexo, ylab="Idade (meses)", xlab="meni"main="Altura das Crinças por sexo")
#
#============================================================================