Boa tarde Wagner

Supondo que seus dados esteja uma tabela data_test (em anexo)

acho que você pode resolver assim


data<- read.table(“data_test.txt”, header=T, sep= “\t”)

data_df <- as.data.frame(data)

res<- list()

for (i in 1:nrow(data)) {
  y<- prop.test(x = c(data$X1[i], data$X2[i]), n = c(data$N[i], data$N[i]), correct = FALSE)
  x= y$p.value
  res[[paste0(i)]] <- x
}

result <- t(as.data.frame(res))

data_df1 <- cbind(data_df, result)

data_df1


Espero que funcione


daniel