disciplinas:ce223:comandos2008

Não foi possível enviar o arquivo. Será algum problema com as permissões?

Diferenças

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

--- disciplinas:ce223:comandos2008 [2008/04/14 18:02]
ehlers
+++ disciplinas:ce223:comandos2008 [2008/04/23 09:45]
ehlers
@@ Linha 306: / Linha 306: @@
 <code R>
 freqs = scan(file='http://leg.ufpr.br/~ehlers/CE223/fumo.dat')
+freqs
+ [1] 45 16 21 33 40 45 28 22 34 21 50 37 37 15 56 30 85 29
-array(freqs, dim=c(3,2,3))
+array(freqs, dim=c(2,3,3))
+, , 1
-nomes = list(c('PR','SC','RS'), c('M','F'), c('nao fuma','fuma pouco','fuma muito'))
+     [,1] [,2] [,3]
+[1,]   45   21   40
+[2,]   16   33   45
-hf = array(freqs, dim=c(3,2,3), dimnames=nomes)
+, , 2
+     [,1] [,2] [,3]
+[1,]   28   34   50
+[2,]   22   21   37
+, , 3
+     [,1] [,2] [,3]
+[1,]   37   56   85
+[2,]   15   30   29
+# Cada matrix 2x3 contem as contagens por sexo (linhas) e estado (colunas).
+# A ultima dimensao refere-se ao habito de fumar.
+nomes = list(c('M','F'),c('PR','SC','RS'),c('nao fuma','fuma pouco','fuma muito'))
+hf = array(freqs, dim=c(2,3,3), dimnames=nomes)
 hf
+, , nao fuma
+  PR SC RS
+M 45 21 40
+F 16 33 45
+, , fuma pouco
+  PR SC RS
+M 28 34 50
+F 22 21 37
+, , fuma muito
+  PR SC RS
+M 37 56 85
+F 15 30 29
 m1 <- matrix(1:12, ncol = 3)

Diferenças