R Kolom baru t uji p-value
data$PValue = apply(data, 1, function(x) t.test(x[1:3], x[4:6])$p.value)
Scary Swan
data$PValue = apply(data, 1, function(x) t.test(x[1:3], x[4:6])$p.value)