Oi Benilton<div><br></div><div>Funcionou direitinho!</div><div><br></div><div>Valeu pela ajuda. Eu e meu estatístico local agradecemos</div><div><br></div><div><br></div><div><br><div class="gmail_quote">Em 19 de junho de 2012 18:21, Benilton Carvalho <span dir="ltr"><<a href="mailto:beniltoncarvalho@gmail.com" target="_blank">beniltoncarvalho@gmail.com</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">a correcao da minha funcao eh<br>
<div class="im"><br>
f = function(dados){<br>
res = vector('numeric', ncol(dados)/2)<br>
</div>cols = seq(1, ncol(dados), 2)<br>
for (i in 1:length(cols))<br>
res[i] = kappa(dados[, c(cols[i], cols[i]+1)])<br>
res<br>
}<br>
<br>
deixo para vc (e, possivelmente, seu estatistico local) entender(em) o motivo.<br>
<br>
se vc quer uma lista que contenha um elemento chamado Kappa que seja<br>
uma matrix de 1 coluna...<br>
<br>
z = list(Kappa=matrix(f(dados)))<br>
<br>
ou altere sua funcao para:<br>
<div class="im"><br>
f = function(dados){<br>
res = vector('numeric', ncol(dados)/2)<br>
</div>cols = seq(1, ncol(dados), 2)<br>
for (i in 1:length(cols))<br>
res[i] = kappa(dados[, c(cols[i], cols[i]+1)])<br>
list(Kappa=matrix(res))<br>
<div class="im HOEnZb">}<br>
<br>
b<br>
<br>
2012/6/19 Sérgio Henrique almeida da silva ju <<a href="mailto:sergio.edfisica@gmail.com">sergio.edfisica@gmail.com</a>>:<br>
</div><div class="HOEnZb"><div class="h5">> Oi Benilton<br>
><br>
> Aumentei meu conjunto de dados:<br>
><br>
> a = c(1,3,5,4,3,2,1,4,5,3,4,5,2,1,1,3,4,5,5,3,2)<br>
> a1 = c(4,5,5,4,4,3,2,1,4,3,4,5,3,2,3,4,5,5,4,4,1)<br>
> d = c(3,3,4,4,5,4,3,2,4,5,5,3,4,4,5,4,3,2,3,4,5)<br>
> d1 = c(2,2,3,3,4,3,2,3,4,5,5,5,4,3,2,3,4,5,4,3,2)<br>
> e = c(1,3,5,4,3,2,1,4,5,3,4,5,2,1,1,3,4,5,5,3,2)<br>
> e1 = c(4,5,5,4,4,3,2,1,4,3,4,5,3,2,3,4,5,5,4,4,1)<br>
> f = c(1,3,5,4,3,2,1,4,5,3,4,5,2,1,1,3,4,5,5,3,2)<br>
> f1= c(3,3,4,4,5,4,3,2,4,5,5,3,4,4,5,4,3,2,3,4,5)<br>
><br>
> dados = data.frame(a,a1,d,d1,e,e1,f,f1)<br>
><br>
> Porque quando rodo a função dá esse resultado?<br>
><br>
> f = function(dados){<br>
> res = vector('numeric', ncol(dados)/2)<br>
> for (i in seq(1, ncol(dados), 2))<br>
> res[i] = kappa(dados[, c(i, i+1)])<br>
> res<br>
> }<br>
><br>
>> f(dados)<br>
> [1] 6.462970 0.000000 5.618469 0.000000 6.462970       NA 4.358520<br>
><br>
><br>
><br>
> Outra duvida<br>
><br>
> Como colar esses resultados numa lista?<br>
><br>
> inclui os comandos<br>
><br>
> f = function(x){<br>
> res = vector('numeric', ncol(x)/2)<br>
> for (i in seq(1, ncol(x), 2))<br>
> res[i] = kappa(x[, c(i, i+1)])<br>
> res<br>
> z=cbind(res)<br>
> rownames(z) <- ????? (sequência que vai do número 1 até n resultados)<br>
> resultado = list(Kappa = z)<br>
> resultado<br>
> }<br>
><br>
><br>
><br>
> --<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" target="_blank">http://lattes.cnpq.br/1611345552843383</a><br>
> Tel: (21) 94429486/78101651 id: 123*20942<br>
><br>
><br>
><br>
</div></div><div class="HOEnZb"><div class="h5">> _______________________________________________<br>
> R-br mailing list<br>
> <a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
> <a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
> Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código<br>
> mínimo reproduzível.<br>
_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br>
</div></div></blockquote></div><br><br clear="all"><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>