<div dir="ltr">Como sugestão para um código mais enxuto, o objetivo poderia ser atingido com a aplicação da função apply:<div><br></div><div><font face="monospace, monospace">> dados <- read.table("data_test.txt", header=T, sep= "\t")<br></font></div><div><font face="monospace, monospace">> dados$p_valor <- apply(dados[,2:4], 1, function(linha) prop.test(x=c(linha[1],linha[2]),n=c(linha[3],linha[3]), correct=F)$p.value)<br></font></div><div><font face="monospace, monospace">> dados</font></div><div><div><font face="monospace, monospace">  AREA   X1   X2     N       p_valor</font></div><div><font face="monospace, monospace">1    1 1982 9416 11398  0,000000e+00</font></div><div><font face="monospace, monospace">2    2 6546 4084 10630 5,362948e-250</font></div><div><font face="monospace, monospace">3    3 3418  667 40850  0,000000e+00</font></div><div><font face="monospace, monospace">4    4 1503 4408 59110  0,000000e+00</font></div><div><font face="monospace, monospace">5    5  966  339 30500  6,472911e-69</font></div></div><div><br></div><div>Ademais, se o OP tiver que resolver problemas dessa natureza com frequência, pode ser que valha a pena examinar alguns pacotes que têm funções para facilitar esse tipo de resumos, como, por exemplo, os pacotes <i>descr</i> e <i>reporttools</i>. </div><div><br></div><div>HTH</div><div>--</div><div>Cesar Rabak</div><div><br></div></div><div class="gmail_extra"><br><div class="gmail_quote">On Wed, Mar 23, 2016 at 1:46 PM, Daniel Tiezzi <span dir="ltr"><<a href="mailto:dtiezzi@usp.br" target="_blank">dtiezzi@usp.br</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div style="word-wrap:break-word">Boa tarde Wagner<div><br></div><div>Supondo que seus dados esteja uma tabela data_test (em anexo)</div><div><br></div><div>acho que você pode resolver assim</div><div><br></div><div><br></div><div>data<- read.table(“data_test.txt”, header=T, sep= “\t”)</div><div><br></div><div><div>data_df <- as.data.frame(data)</div><div><br></div><div>res<- list()</div><div><br></div><div>for (i in 1:nrow(data)) {</div><div>  y<- prop.test(x = c(data$X1[i], data$X2[i]), n = c(data$N[i], data$N[i]), correct = FALSE)</div><div>  x= y$p.value</div><div>  res[[paste0(i)]] <- x</div><div>}</div><div><br></div><div>result <- t(as.data.frame(res))</div><div><br></div><div>data_df1 <- cbind(data_df, result)</div><div><br></div><div>data_df1</div></div><div><br></div><div><br></div><div>Espero que funcione</div><span class="HOEnZb"><font color="#888888"><div><br></div><div><br></div><div>daniel</div><div><br></div><div></div></font></span></div><br><div style="word-wrap:break-word"><div><br><div>
<div style="color:rgb(0,0,0);font-family:Helvetica;font-style:normal;font-variant:normal;font-weight:normal;letter-spacing:normal;line-height:normal;text-align:-webkit-auto;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;word-wrap:break-word"><div><div style="font-size:12px">Daniel Tiezzi, MD, PhD</div><div style="font-size:12px">Professor Associado</div><div style="font-size:12px">Departamento de Ginecologia e Obstetrícia</div><div style="font-size:12px">Setor de Mastologia e Oncologia Ginecológica</div><div style="font-size:12px">Faculdade de Medicina de Ribeirão Preto - USP</div><div style="font-size:12px">Tel.: 16 3602-2488</div><div style="font-size:12px">e-mail: <a href="mailto:dtiezzi@fmrp.usp.br" target="_blank">dtiezzi@fmrp.usp.br</a></div></div><div><br></div><div><br></div></div><br><br>
</div>
<br><div><blockquote type="cite"><div>On Mar 23, 2016, at 3:50 PM, Wagner Tassinari <<a href="mailto:wtassinari@gmail.com" target="_blank">wtassinari@gmail.com</a>> wrote:</div><br><div><span style="font-family:Helvetica;font-size:small;font-style:normal;font-variant:normal;font-weight:normal;letter-spacing:normal;line-height:normal;text-align:start;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;float:none;display:inline!important">AREA    X1      X2       N       p_valor</span><br style="font-family:Helvetica;font-style:normal;font-variant:normal;font-weight:normal;letter-spacing:normal;line-height:normal;text-align:start;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px"><span style="font-family:Helvetica;font-size:small;font-style:normal;font-variant:normal;font-weight:normal;letter-spacing:normal;line-height:normal;text-align:start;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;float:none;display:inline!important">1        1982    9416    11398      ?</span><br style="font-family:Helvetica;font-style:normal;font-variant:normal;font-weight:normal;letter-spacing:normal;line-height:normal;text-align:start;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px"><span style="font-family:Helvetica;font-size:small;font-style:normal;font-variant:normal;font-weight:normal;letter-spacing:normal;line-height:normal;text-align:start;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;float:none;display:inline!important">2        6546    4084    10630      ?</span><br style="font-family:Helvetica;font-style:normal;font-variant:normal;font-weight:normal;letter-spacing:normal;line-height:normal;text-align:start;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px"><span style="font-family:Helvetica;font-size:small;font-style:normal;font-variant:normal;font-weight:normal;letter-spacing:normal;line-height:normal;text-align:start;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;float:none;display:inline!important">3        3418    667       4085       ?</span><br style="font-family:Helvetica;font-style:normal;font-variant:normal;font-weight:normal;letter-spacing:normal;line-height:normal;text-align:start;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px"><span style="font-family:Helvetica;font-size:small;font-style:normal;font-variant:normal;font-weight:normal;letter-spacing:normal;line-height:normal;text-align:start;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;float:none;display:inline!important">4        1503    4408      5911       ?</span><br style="font-family:Helvetica;font-style:normal;font-variant:normal;font-weight:normal;letter-spacing:normal;line-height:normal;text-align:start;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px"><span style="font-family:Helvetica;font-size:small;font-style:normal;font-variant:normal;font-weight:normal;letter-spacing:normal;line-height:normal;text-align:start;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;float:none;display:inline!important">5        966        339       305       ?</span></div></blockquote></div><br></div></div><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" rel="noreferrer" 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" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>