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

[Sérgio Henrique]

Oi Benilton

Quando crescer quero ser igual a você!

Obrigado!

Não estou com dificuldade na análise, mas sim de como fazê-lá de forma
mais otimizada e não tendo todo trabalho manual.

Obrigado mais uma vez!

Enviado via iPad

Em Jun 19, 2012, às 4:53 PM, Benilton Carvalho
<beniltoncarvalho em gmail.com> escreveu:

> 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.
> _______________________________________________
> 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.