Следующее будет использовать цикл for для прохождения каждой строки в соответствии с вопросом
for (i in 1:nrow(my_data))
{
case1<- my_data[i, 2:4]
case2<- my_data[i, 6:8]
compare_cases <- t.test(case1, case2, alternative = "two.sided", var.equal = FALSE)
print(case1)
print(case2)
print(compare_cases)
}
Модифицированный вариант с обработкой ошибок, основанный на комментариях
pvalues <- c()
for (i in 1:nrow(my_data))
{
case1<- my_data[i, 2:4]
case2<- my_data[i, 6:8]
pval <- NA
test <- tryCatch({ t.test(case1, case2, alternative = "two.sided", var.equal = FALSE) },
warning = function(war) { NA },
error = function(err) { NA },
finally = { })
print(paste0("Test for row i=",i))
print(test)
if (identical(test,NA)) pval <- NA
else pval <- test$p.value
pvalues <- c(pvalues,pval)
}
print("All my pvalues for all rows are:")
print(pvalues)