Моя цель - запустить тест Фишера для каждой школы и сохранить назначенное значение p. Принимая во внимание проблемы, связанные с рабочим пространством для теста Фишера, я запускаю симулированное значение. Моя проблема в цикле (я так думаю), потому что окончательное значение p для каждой из моих школ одинаково. Я думаю, что мой код неверен, что приводит к общему оценочному p-значению. Я делаю что-то не так с циклом, но что? Можете ли вы дать мне несколько отзывов?
`getwd()
setwd("C:/Users/User/Desktop/Test_Fisher")
mydata <- read.csv("C:/Users/User/Desktop/Test_Fisher/test.csv", header = TRUE)
fishert <- numeric()
for (id_scuola in 1:5000)
fishert[id_scuola] <- fisher.test(mydata$g8_ethnic_rec, mydata$id_classe_test, simulate.p.value = TRUE, B = 1000)$p.value
print(fishert)`
У меня нет ошибок, но посмотрите на следующую распечатку. Я запускаю цикл с несколькими школами. Значение p одинаково для каждой школы.
[501] 0.000999001 0.000999001 0.000999001 0.000999001 0.000999001 0.000999001 0.000999001 0.000999001 0.000999001 0.000999001