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