#------------------------------------------------------------------------
#  Script exercício 5 - Capítulo 6
#------------------------------------------------------------------------
#  Exerc. 01
#
 freq <- c(23,52,14,06)
 m <- matrix (freq, ncol=2)
#
 m <- matrix (freq, ncol=2, byrow=TRUE, dimnames = list (c("Gestação Normal", "Aborto espontâneo"), 
 c("Anestesista", "Outra especialidade")))
 m
 dim (m)
 sum (m) 
 rowSums (m)
 colSums (m)
 m[2,]/colSums(m) # porcentagem por coluna
#
 teste<-chisq.test (m,correct=F)
 names(teste)
 teste$expected
 teste
#--------------------------------------------------------------------------
#  Exer. 06
#
 tempos <- c(155,150,174,158,155,148,142,164,143,151,152,172,150,152,
 150,144,169,144)
 grupos<- rep(c(1,2), each=9)
 ex6<-data.frame(tempos,grupos)
 is.data.frame(ex6)
 ex6
 tempos<-as.numeric (tempos)  
 is.numeric(tempos)
 grupos<-factor(grupos)
 is.factor (grupos)
 names(ex6) 
 str(ex6)
 levels(grupos)[1] <- "Com Alcalose"
 levels(grupos)[2] <- "Sem Alcalose"
 tapply(ex6$tempos,ex6$grupos,mean)
 tapply(ex6$tempos,ex6$grupos,median)
 by(tempos,grupos,summary)
#
 plot(grupos,tempos,main="Tempo de Corrida: 800 metros (Sexo masculino, Idade média = 21 anos)", 
 ylab= "Tempos (em segundos)",xlab= "Corrida de 800 metros")
#
 t1 <- c(155,150,174,158,155,148,142,164,143)
 t2 <- c(151,152,172,150,152,150,144,169,144)
#
 t.test(t1,t2, paired=TRUE)
#-------------------------------------------------------------------------------