#
#================================================================
#	Análise Descritiva
#================================================================
#
 dados<-read.table("alunos_14.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: Curso e Sexo       
#    
 barplot(100*table(curso)/(length(curso)-4),names.arg = c("Fisioterapia", "Terapia Ocupacional"),
 main="Gráfico de Barras - Curso",
  ylab= "%", xlab="")
#
 barplot(100*table(sexo)/(length(sexo)),names.arg = c("Feminino", 
 "Masculino"),
 main="Gráfico de Barras - Gênero",
  ylab= "%", xlab="")
#
 tab<-table(curso, sexo)
 rownames(tab)<-c("Fisioterapia", "Terapia Ocupacional")
 colnames(tab)<-c("Feminino", "Masculino")
 tab
 margin.table(tab,1)/margin.table(tab)
 prop.table(tab,1)
 prop.table(tab,2)
#
#===================================================================
#         Estatisticas Descritivas e Graficos
#=================================================================== 
# 
 summary(idade)
 boxplot(idade)
 hist(idade)
 sd(idade) 
 by(idade, sexo, summary) #estatisticas estratificada por sexo
 by(idade, curso,summary)
#
 summary(peso)
 boxplot(peso)
 by(peso, sexo, summary) #estatisticas estratificada por sexo
 by(peso, curso,summary)
# 
     Graficos
#
 par(mfrow=c(1,2)) # divide o espaco grafico em 1 linha e 2 colunas
 boxplot(idade ~ curso, ylab="Idade (meses)", xlab="curso: 0- Fisio e 1-TO") #boxplot por sexo
 boxplot(peso ~curso, ylab="peso (kgs)", xlab="curso: 0- Fisio e 1-TO")
 plot(peso, idade)
#
#============================================================================