<html><head><meta http-equiv="Content-Type" content="text/html charset=utf-8"></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space;" class="">Boa tarde Wagner<div class=""><br class=""></div><div class="">Supondo que seus dados esteja uma tabela data_test (em anexo)</div><div class=""><br class=""></div><div class="">acho que você pode resolver assim</div><div class=""><br class=""></div><div class=""><br class=""></div><div class="">data<- read.table(“data_test.txt”, header=T, sep= “\t”)</div><div class=""><br class=""></div><div class=""><div class="">data_df <- as.data.frame(data)</div><div class=""><br class=""></div><div class="">res<- list()</div><div class=""><br class=""></div><div class="">for (i in 1:nrow(data)) {</div><div class=""> y<- prop.test(x = c(data$X1[i], data$X2[i]), n = c(data$N[i], data$N[i]), correct = FALSE)</div><div class=""> x= y$p.value</div><div class=""> res[[paste0(i)]] <- x</div><div class="">}</div><div class=""><br class=""></div><div class="">result <- t(as.data.frame(res))</div><div class=""><br class=""></div><div class="">data_df1 <- cbind(data_df, result)</div><div class=""><br class=""></div><div class="">data_df1</div></div><div class=""><br class=""></div><div class=""><br class=""></div><div class="">Espero que funcione</div><div class=""><br class=""></div><div class=""><br class=""></div><div class="">daniel</div><div class=""><br class=""></div><div class=""></div></body></html>