Oi Benilton<div><br></div><div>Aumentei meu conjunto de dados:</div><div><br></div><div><div>a = c(1,3,5,4,3,2,1,4,5,3,4,5,2,1,1,3,4,5,5,3,2)</div><div>a1 = c(4,5,5,4,4,3,2,1,4,3,4,5,3,2,3,4,5,5,4,4,1)</div><div>d = c(3,3,4,4,5,4,3,2,4,5,5,3,4,4,5,4,3,2,3,4,5)</div>
<div>d1 = c(2,2,3,3,4,3,2,3,4,5,5,5,4,3,2,3,4,5,4,3,2)</div><div>e = c(1,3,5,4,3,2,1,4,5,3,4,5,2,1,1,3,4,5,5,3,2)</div><div>e1 = c(4,5,5,4,4,3,2,1,4,3,4,5,3,2,3,4,5,5,4,4,1)</div><div>f = c(1,3,5,4,3,2,1,4,5,3,4,5,2,1,1,3,4,5,5,3,2)</div>
<div>f1= c(3,3,4,4,5,4,3,2,4,5,5,3,4,4,5,4,3,2,3,4,5)</div><div><br></div><div>dados = data.frame(a,a1,d,d1,e,e1,f,f1)</div><div><br></div><div>Porque quando rodo a função dá esse resultado?</div><div><br></div><div><div>
f = function(dados){</div><div>res = vector('numeric', ncol(dados)/2)</div><div>for (i in seq(1, ncol(dados), 2))</div><div>res[i] = kappa(dados[, c(i, i+1)])</div><div>res</div><div>}</div></div><div><br></div><div>
<div>> f(dados)</div><div>[1] 6.462970 0.000000 5.618469 0.000000 6.462970       NA 4.358520</div></div><div><br></div><div><br></div><div><br></div><div>Outra duvida</div><div><br></div><div>Como colar esses resultados numa lista?</div>
<div><br></div><div>inclui os comandos</div><div><br></div><div><div>f = function(x){</div><div>res = vector('numeric', ncol(x)/2)</div><div>for (i in seq(1, ncol(x), 2))</div><div>res[i] = kappa(x[, c(i, i+1)])</div>
<div>res</div><div>z=cbind(res)</div><div>rownames(z) <- ????? (sequência que vai do número 1 até n resultados) </div><div>resultado = list(Kappa = z)</div><div>resultado</div><div>}</div></div><br><div class="gmail_quote">
<br></div><div><br></div>-- <br>Sérgio Henrique Almeida da Silva Junior<br>Doutorando em Epidemiologia em Saúde Pública<br>Escola Nacional de Saúde Pública Sérgio Arouca - ENSP/FIOCRUZ<br><a href="http://lattes.cnpq.br/1611345552843383">http://lattes.cnpq.br/1611345552843383</a> <br>
Tel: (21) 94429486/78101651 id: 123*20942<br><br><br>
</div>