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@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@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@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@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