f
является объектом класса 'htest'
, поэтому при записи его в файл будет записано гораздо больше, чем просто значение p.
Если вы делаете хотите просто сохранить письменное представление результатов в файл, так же, как они отображаются на экране, вы можете использовать capture.output()
для этого:
Convictions <-
matrix(c(2, 10, 15, 3),
nrow = 2,
dimnames =
list(c("Dizygotic", "Monozygotic"),
c("Convicted", "Not convicted")))
f <- fisher.test(Convictions, alternative = "less")
capture.output(f, file="fisher_pvalues.txt", append=TRUE)
Скорее всего, вы хотите просто сохранить значение p. В этом случае вам нужно извлечь его из f
перед записью в файл, используя код примерно такой:
write(paste("p-value from Experiment 1:", f$p.value, "\n"),
file = "fisher_pvalues.txt", append=TRUE)