T-test-in-R-for-each-row.R

set.seed(2022)
df <- as.data.frame(matrix(runif(12),nrow=3,ncol=4))
df

##          V1        V2         V3          V4
## 1 0.8159777 0.5438002 0.07429900 0.757252903
## 2 0.6472593 0.1847300 0.04197593 0.001862073
## 3 0.1203286 0.6357908 0.37031711 0.159799489

apply(df,1,function(x){t.test(x[1:2],x[3:4])$stat})

## [1] 0.7184875 1.6976304 0.4059006

t.test(df[1,1:2],df[1,3:4])$p.value

## [1] 0.5787407

apply(df,1,function(x){t.test(x[1:2],x[3:4])$p.value})

## [1] 0.5787407 0.3361582 0.7406516

########################################
df <- data.frame(a= 1:5, b= 6:10, c=c(11,12,NA,14,15), d=c(NA,17,NA,19,20))
df

##   a  b  c  d
## 1 1  6 11 NA
## 2 2  7 12 17
## 3 3  8 NA NA
## 4 4  9 14 19
## 5 5 10 15 20

#t.test(df[1,1:2],df[1,3:4])$p.value Error 

#https://stackoverflow.com/questions/57990378/t-test-for-multiple-rows-in-r