Ótimo<div><br></div><div>Obrigado pela ajuda!</div><div><br></div><div><br><br><div class="gmail_quote">Em 15 de junho de 2012 09:07, 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">apenas passe para a funcao as colunas que deve ser incluidas...<br>
<br>
f(dados[, c(1, 4, 5, 10, 3, 39)])<br>
<div class="HOEnZb"><div class="h5"><br>
2012/6/15 Sérgio Henrique almeida da silva ju <<a href="mailto:sergio.edfisica@gmail.com">sergio.edfisica@gmail.com</a>>:<br>
> Oi Benilton<br>
><br>
> Obrigado mais uma vez!<br>
><br>
> Como no meu banco podem haver várias escalas eu preciso nessa função dizer<br>
> em qual coluna eu quero começar e terminar as análises. Como posso incluir<br>
> na função isso?<br>
><br>
> Abraços<br>
><br>
> Em 15 de junho de 2012 08:51, Benilton Carvalho <<a href="mailto:beniltoncarvalho@gmail.com">beniltoncarvalho@gmail.com</a>><br>
> escreveu:<br>
><br>
>> supondo q nao tenha visto seu ultimo email:<br>
>><br>
>> res = vector('numeric', ncol(dados))<br>
>> for (i in 1:ncol(dados))<br>
>>  res[i] = cronbach(dados[, -i])$alpha<br>
>><br>
>> se vc acha q precisa mesmo de uma funcao para isso...<br>
>><br>
>> f = function(dados){<br>
>> res = vector('numeric', ncol(dados))<br>
>> for (i in 1:ncol(dados))<br>
>>  res[i] = cronbach(dados[, -i])$alpha<br>
>> res<br>
>> }<br>
>> f(dados)<br>
>><br>
>> b<br>
>><br>
>> 2012/6/15 Sérgio Henrique almeida da silva ju <<a href="mailto:sergio.edfisica@gmail.com">sergio.edfisica@gmail.com</a>>:<br>
>> > Alguém?<br>
>> ><br>
>> > Em 14 de junho de 2012 15:52, Sérgio Henrique almeida da silva ju<br>
>> > <<a href="mailto:sergio.edfisica@gmail.com">sergio.edfisica@gmail.com</a>> escreveu:<br>
>> ><br>
>> >> Olá<br>
>> >><br>
>> >> Gostaria de fazer uma função e como não entendo nada, gostaria de pedir<br>
>> >> ajuda de vocês<br>
>> >><br>
>> >> Eu uso o Alfa de Cronbach para analisar a consistência interna de uma<br>
>> >> escala, normalmente se calculo o alfa total e o alfa se uma variável<br>
>> >> for<br>
>> >> retirada.<br>
>> >> O alfa total é fácil de fazer, porém quando eu vou fazer o calculo de<br>
>> >> quando retiro uma variável tenho que fazer tudo manualmente.<br>
>> >><br>
>> >> Ex.:<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>
>> >> b = c(4,5,5,4,4,3,2,1,4,3,4,5,3,2,3,4,5,5,4,4,1)<br>
>> >> c = c(3,3,4,4,5,4,3,2,4,5,5,3,4,4,5,4,3,2,3,4,5)<br>
>> >> d = c(2,2,3,3,4,3,2,3,4,5,5,5,4,3,2,3,4,5,4,3,2)<br>
>> >> dados = data.frame(a,b,c,d)<br>
>> >><br>
>> >> library(psy)<br>
>> >><br>
>> >> # Alfa Total<br>
>> >><br>
>> >> cronbach(dados[,1:4])<br>
>> >><br>
>> >> alfa total = 0.5324005<br>
>> >><br>
>> >><br>
>> >> Agora preciso retirar a variável "a" e rodar novamente o calculo,<br>
>> >> depois<br>
>> >> colocar ela denovo no banco e retirar a variável "b" e assim<br>
>> >> sucessivamente,<br>
>> >> dessa forma terei o valor do alfa caso eu retire uma variável.<br>
>> >><br>
>> >> # Alfa retirando a variável<br>
>> >><br>
>> >> a = 0.220339<br>
>> >> b = 0.3239247<br>
>> >> c = 0.7669716<br>
>> >> d = 0.2198046<br>
>> >><br>
>> >> Qual a melhor forma de fazer isso através de uma função?<br>
>> >><br>
>> >> Abraços<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>
>> ><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>
>> > _______________________________________________<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<br>
>> > 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<br>
>> código mínimo reproduzível.<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>
> _______________________________________________<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>