<html><body><div style="color:#000; background-color:#fff; font-family:times new roman, new york, times, serif;font-size:16px">Não esqueça de instalar o epiR<br><div><br><span></span></div><div dir="ltr"><span>install.packages("epiR",dep=T)</span></div><div> </div><div id="yui_3_16_0_1_1420542019603_9476"><div id="yui_3_16_0_1_1420542019603_9475">Edson Lira<br>Estatístico<br>Manaus-Amazonas</div></div> <div class="qtdSeparateBR"><br><br></div><div style="display: block;" class="yahoo_quoted"> <div style="font-family: times new roman, new york, times, serif; font-size: 16px;"> <div style="font-family: HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif; font-size: 16px;"> <div dir="ltr"> <font size="2" face="Arial"> Em Terça-feira, 6 de Janeiro de 2015 7:22, Edson Lira <edinhoestat@yahoo.com.br> escreveu:<br> </font> </div> <br><br> <div class="y_msg_container"><div id="yiv4603975415"><div><div style="color:#000;background-color:#fff;font-family:lucida console, sans-serif;font-size:16px;"><h3 class="yiv4603975415" id="yiv4603975415yui_3_16_0_1_1420542019603_8294" style=""><font face="times new roman, new york, times, serif">Veja se é isso o que você precisa.</font><br clear="none"></h3><h3 class="yiv4603975415" id="yiv4603975415yui_3_16_0_1_1420542019603_8294" style=""><font id="yiv4603975415yui_3_16_0_1_1420542019603_8522" face="Courier New, courier, monaco, monospace, sans-serif">#Examples</font></h3><font face="Courier New, courier, monaco, monospace, sans-serif">
</font><pre class="yiv4603975415" id="yiv4603975415yui_3_16_0_1_1420542019603_8293" style=""><font id="yiv4603975415yui_3_16_0_1_1420542019603_8519" face="Courier New, courier, monaco, monospace, sans-serif">## EXAMPLE 1:
## Kidney samples from 291 salmon were split with one half of the
## samples sent to each of two laboratories where an IFAT test
## was run on each sample. The following results were obtained:
## Lab 1 positive, lab 2 positive: 19
## Lab 1 positive, lab 2 negative: 10
## Lab 1 negative, lab 2 positive: 6
## Lab 1 negative, lab 2 negative: 256
dat <- as.table(matrix(c(19,10,6,256), nrow = 2, byrow = TRUE))
colnames(dat) <- c("L1-pos","L1-neg")
rownames(dat) <- c("L2-pos","L2-neg")
epi.kappa(dat, method = "fleiss", alternative = "greater", conf.level = 0.95)
## The z test statistic is 11.53 (P < 0.01). We accept the alternative
## hypothesis that the kappa statistic is greater than zero.
## The proportion of agreements after chance has been excluded is
## 0.67 (95% CI 0.56 to 0.79). We conclude that, on the basis of
## this sample, that there is substantial agreement between the two
## laboratories.
## EXAMPLE 2 (from Watson and Petrie 2010, page 1170):
## Silva et al. (2007) compared an early pregnancy enzyme-linked immunosorbent
## assay test for pregnancy associated glycoprotein on blood samples collected
## from lactating dairy cows at day 27 after artificial insemination with
## transrectal ultrasound (US) diagnosis of pregnancy at the same stage.
## The results were as follows:
## ELISA positive, US positive: 596
## ELISA positive, US negative: 61
## ELISA negative, US positive: 29
## ELISA negative, Ul negative: 987
dat <- as.table(matrix(c(596,61,29,987), nrow = 2, byrow = TRUE))
colnames(dat) <- c("US-pos","US-neg")
rownames(dat) <- c("ELISA-pos","ELISA-neg")
epi.kappa(dat, method = "watson", alternative = "greater", conf.level = 0.95)
## The proportion of agreements after chance has been excluded is
## 0.89 (95% CI 0.86 to 0.91). We conclude that that there is substantial
## agreement between the two pregnancy diagnostic methods.
</font>
</pre>
<hr class="yiv4603975415" id="yiv4603975415yui_3_16_0_1_1420542019603_8292" style=""><div dir="ltr" id="yiv4603975415yui_3_16_0_1_1420542019603_8299"><span>[ ]'s<br clear="none"></span></div><div id="yiv4603975415yui_3_16_0_1_1420542019603_8297"><div id="yiv4603975415yui_3_16_0_1_1420542019603_8296">Edson Lira<br clear="none">Estatístico<br clear="none">Manaus-Amazonas</div></div> <div class="yiv4603975415qtdSeparateBR"><br clear="none"><br clear="none"></div><div class="yiv4603975415yahoo_quoted" style="display:block;"> <div style="font-family:lucida console, sans-serif;font-size:16px;"> <div style="font-family:HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif;font-size:16px;"> <div dir="ltr"> <font size="2" face="Arial"> Em Terça-feira, 6 de Janeiro de 2015 6:20, Leonard Assis <assis.leonard@gmail.com> escreveu:<br clear="none"> </font> </div> <br clear="none"><br clear="none"> <div class="yiv4603975415y_msg_container"><div class="yiv4603975415yqt4019216666" id="yiv4603975415yqt74128"><div id="yiv4603975415"><div dir="ltr">Acredito que para seu problema, correlação ajude pouco. Ideal seria 'concordância'.<br clear="none">
Procure sobre agreement coefficient no r search</div>
<div class="yiv4603975415gmail_quote">Em 05/01/2015 16:57, "Gustavo Faria" <<a rel="nofollow" shape="rect" ymailto="mailto:gustavodfs@gmail.com" target="_blank" href="mailto:gustavodfs@gmail.com">gustavodfs@gmail.com</a>> escreveu:<br clear="none"><blockquote class="yiv4603975415gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;"><div dir="ltr">Boa tarde, estou com dificuldade (iniciantes ¬¬ hehe) em fazer uma correlação com dados qualitativos, meus dados são 3 metodologias de identificação de organismos, e eu gostaria de saber o quão parecido e/ou divergente eles foram nas identificações realizadas, como poderia montar essa matriz? ja que tenho somente as identificações realizadas pelas 3 metodologias....<br clear="all"><div><br clear="none"></div>-- <br clear="none"><div><font style="color:rgb(0,0,153);" color="#999999"><span style="color:rgb(0,0,0);">---</span><br clear="none"><font><span style="color:rgb(153,153,153);font-family:times new roman, serif;">Gustavo de Faria Silva</span><br style="color:rgb(153,153,153);font-family:times new roman, serif;" clear="none"></font></font><div style="color:rgb(153,153,153);font-family:times new roman, serif;"><font>Biólogo herpetólogo Crbio 87421/04-P<br clear="none"></font></div><div><div style="color:rgb(153,153,153);font-family:times new roman, serif;"><font><span>Pós-Graduado em Consultoria e Licenciamento Ambiental<br clear="none"><font>Mestra<font>ndo em Zoologia de Vertebrados</font></font></span> <br clear="none"></font>
</div><div><font color="#999999"><font><span style="color:rgb(153,153,153);font-family:times new roman, serif;">Telefone: <a href="" rel="nofollow" shape="rect">(31) 9579-8473</a> (Vivo)</span></font><br clear="none"></font></div></div><span style="font-size:11pt;color:rgb(0,0,153);"></span></div>
</div>
<br clear="none">_______________________________________________<br clear="none">
R-br mailing list<br clear="none">
<a rel="nofollow" shape="rect" ymailto="mailto:R-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br clear="none">
<a rel="nofollow" shape="rect" target="_blank" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br clear="none">
Leia o guia de postagem (<a rel="nofollow" shape="rect" target="_blank" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br clear="none"></blockquote></div></div></div><br clear="none">_______________________________________________<br clear="none">R-br mailing list<br clear="none"><a rel="nofollow" shape="rect" ymailto="mailto:R-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br clear="none"><a rel="nofollow" shape="rect" target="_blank" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br clear="none">Leia o guia de postagem (<a rel="nofollow" shape="rect" target="_blank" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br clear="none"><br clear="none"></div> </div> </div> </div> </div></div></div><br><br></div> </div> </div> </div> </div></body></html>