Oi Benilton
Aumentei meu conjunto de dados:
a = c(1,3,5,4,3,2,1,4,5,3,4,5,2,1,1,3,4,5,5,3,2)
a1 = c(4,5,5,4,4,3,2,1,4,3,4,5,3,2,3,4,5,5,4,4,1)
d = c(3,3,4,4,5,4,3,2,4,5,5,3,4,4,5,4,3,2,3,4,5)
d1 = c(2,2,3,3,4,3,2,3,4,5,5,5,4,3,2,3,4,5,4,3,2)
e = c(1,3,5,4,3,2,1,4,5,3,4,5,2,1,1,3,4,5,5,3,2)
e1 = c(4,5,5,4,4,3,2,1,4,3,4,5,3,2,3,4,5,5,4,4,1)
f = c(1,3,5,4,3,2,1,4,5,3,4,5,2,1,1,3,4,5,5,3,2)
f1= c(3,3,4,4,5,4,3,2,4,5,5,3,4,4,5,4,3,2,3,4,5)
dados = data.frame(a,a1,d,d1,e,e1,f,f1)
Porque quando rodo a função dá esse resultado?
f = function(dados){
res = vector('numeric', ncol(dados)/2)
for (i in seq(1, ncol(dados), 2))
res[i] = kappa(dados[, c(i, i+1)])
res
}
> f(dados)
[1] 6.462970 0.000000 5.618469 0.000000 6.462970 NA 4.358520
Outra duvida
Como colar esses resultados numa lista?
inclui os comandos
f = function(x){
res = vector('numeric', ncol(x)/2)
for (i in seq(1, ncol(x), 2))
res[i] = kappa(x[, c(i, i+1)])
res
z=cbind(res)
rownames(z) <- ????? (sequência que vai do número 1 até n resultados)
resultado = list(Kappa = z)
resultado
}
--
Sérgio Henrique Almeida da Silva Junior
Doutorando em Epidemiologia em Saúde Pública
Escola Nacional de Saúde Pública Sérgio Arouca - ENSP/FIOCRUZ
http://lattes.cnpq.br/1611345552843383
Tel: (21) 94429486/78101651 id: 123*20942
_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código
mínimo reproduzível.
