[R-br] Ajuda em uma função

[Benilton Carvalho]

Continua sendo a mesma estrategia (note que eu nao falei a mesma
solucao, o q sugere a necessidade de pensar na solucao ja' dada e
altera-la apropriadamente)...

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
}

Em suas proximas mensagens, por favor, poste o que voce tentou fazer
(de forma resumida, claro), pois prefiro ensinar a pescar a dar o
peixe... Caso contrario, aceite minha recomendacao de procurar um
estatistico local para te auxiliar.

benilton

2012/6/19 Sérgio Henrique almeida da silva ju <sergio.edfisica em gmail.com>:
> Valeu Benilton
>
> Mas a estratégia da semana passada ele calculava em um intervalo:
>
> f = function(dados){
> res = vector('numeric', ncol(dados))
> for (i in 1:ncol(dados))
>   res[i] = cronbach(dados[, -i])$alpha
> res
> }
> f(dados)
>
> Se eu for rodar dessa forma terei que dizendo quais são as colunas, mas
> dessa vez a análise é 2 a 2 (colunas) de a1 até an.
>
>
>
>
> Em 19 de junho de 2012 14:52, Benilton Carvalho <beniltoncarvalho em gmail.com>
> escreveu:
>
>> exatamente a mesma estrategia do q vc solicitou na semana passada com
>> a funcao cronbach().
>>
>> 2012/6/19 Sérgio Henrique almeida da silva ju <sergio.edfisica em gmail.com>:
>> > Olá
>> >
>> > Estou com mais uma dúvida no desenvolvimento de uma função
>> >
>> > Preciso analisar um conjunto de dados, porém essa análise é feita a cada
>> > duas colunas:
>> >
>> > 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)
>> > dados = data.frame(a,a1,d,d1)
>> >
>> > library(psy)
>> > x=kappa(dados[,c(1,2)])
>> > x
>> > y=kappa(dados[,c(3,4)])
>> > y
>> > z=kappa(dados[,c(n,n+1)])
>> > z
>> > Porém gostaria de rodar uma função que calcule isso automaticamente,
>> > dando
>> > todos os resultados, para isso eu daria a coluna de inicio e a coluna
>> > final.
>> >
>> > Como posso fazer?
>> >
>> > --
>> > 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 em 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.
>> _______________________________________________
>> R-br mailing list
>> R-br em 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.
>
>
>
>
> --
> 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 em 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.