Você está aqui: start » disciplinas » ce003 » semana4

Diferenças

Aqui você vê as diferenças entre duas revisões dessa página.

Link para esta página de comparações

Ambos lados da revisão anteriorRevisão anterior
Próxima revisão		Revisão anterior
disciplinas:ce003:semana4 [2007/03/21 20:50] – paulojusdisciplinas:ce003:semana4 [2007/03/23 22:20] (atual) – paulojus
Linha 75: Linha 75:
 apply(m,1,mean) apply(m,1,mean)
 apply(m,2,mean) apply(m,2,mean)
 +</code>
 +
 +==== Comandos do R digitados na aula em 21/03/2007 ====
 +
 +<code R>
 +# dat <- scan()
 +#1: 58
 +#2: 37
 +#3: 43
 +#4: 25
 +#5: 39
 +#6: 26
 +#7: 57
 +#8: 38
 +#9: 
 +#Read 8 items
 +dat
 +is.vector(dat)
 +is.matrix(dat)
 +is.numeric(dat)
 +is.character(dat)
 +class(dat)
 +
 +datm <- matrix(dat, nc=2)
 +datm
 +
 +dim(datm)
 +dimnames(datm)
 +dimnames(datm) <-  list(c("Péssimo", "Regular", "Bom", "Ótimo"), c("Masc", "Fem"))
 +datm
 +dimnames(datm)
 +apply(datm,1,sum)
 +apply(datm,2,sum)
 +sum(datm[,1])
 +sum(datm[,2])
 +
 +sc <- apply(datm,2,sum)
 +sc
 +sc[1]
 +
 +#tab3 <- scan()
 +#1: 25
 +#2: 12
 +#3: 5
 +#4: 13
 +#5: 39
 +#6: 14
 +#7: 7
 +#8: 20
 +#9: 43
 +#10: 27
 +#11: 8
 +#12: 11
 +#13: 15
 +#14: 13
 +#15: 13
 +#16: 5
 +#17: 18
 +#18: 27
 +#19: 23
 +#20: 8
 +#21: 14
 +#22: 32
 +#23: 39
 +#24: 12
 +
 +tab3a <- array(tab3, dim=c(4,3,2))
 +tab3a
 +
 +## corrigindo um dado
 +tab3a[2,2,1]
 +tab3a[2,2,1] <- 15
 +tab3a
 +dimnames(tab3a) <-  list(c("Péssimo", "Regular", "Bom", "Ótimo"), c("Baixa","Média","Alta"),c("Masc", "Fem"))
 +tab3a
 +dim(tab3a)
 +
 +## quantos homens?
 +sum(tab3a[,,1])
 +
 +## quantas mulheres?
 +sum(tab3a[,,1])
 +
 +## ou ....
 +apply(tab3a,3,sum)
 +apply(tab3a,3,sum)[1]
 +apply(tab3a,3,sum)[2]
 +
 +## proporção de homens e de mulheres
 +apply(tab3a,3,sum)/sum(tab3a)
 +
 +## quantos de baixa renda?
 +tab3a[,1,]
 +sum(tab3a[,1,])
 +apply(tab3a,2,sum)
 +apply(tab3a,2,sum)[1]
 +## quantos de opinião Bom?
 +sum(tab3a[3,,])
 +## número de homens com bom
 +tab3a[3,,1]
 +sum(tab3a[3,,1])
 +apply(tab3a,c(1,3), sum)
 +apply(tab3a,c(1,3), sum)[3,1]
 +## proporção de homens com bom
 +sum(tab3a[3,,1])/sum(tab3a)
 +
 +## proporção de homens com bom ou ótimo
 +## proporção de homens com bom ou ótimo
 +## proporção de mulheres com bom ou ótimo
 +## proporção de ótimo para cada faixa de renda
 +## proporção de ótimo para cada combinaçõa de faixa de renda e sexo
 +## proporção de cada opinião para cada combinação de faixa de renda e sexo
 </code> </code>
  

QR Code
QR Code disciplinas:ce003:semana4 (generated for current page)