Is this the kind of thing you are looking for?
ampdata <- matrix(rnorm(200), nrow = 10, ncol = 20)
StatFunc <- function(ROW) c(Avg = mean(ROW, na.rm = TRUE), SD = sd(ROW, na.rm = TRUE))
Stats1_10 <- apply(ampdata[, 1:10], MARGIN = 1, StatFunc)
Stats11_20 <- apply(ampdata[, 11:20], MARGIN = 1, StatFunc)
Compare <- cbind(t(Stats1_10), t(Stats11_20))
CompareDf <- as.data.frame(Compare)
colnames(CompareDf) <- c("Avg1_10", "SD1_10", "Avg11_20", "SD11_20")
CompareDf$Diff_Avg <- CompareDf$Avg11_20 - CompareDf$Avg1_10
CompareDf$Diff_SD <- CompareDf$SD11_20 - CompareDf$SD1_10
CompareDf
#> Avg1_10 SD1_10 Avg11_20 SD11_20 Diff_Avg Diff_SD
#> 1 -0.10742381 1.2386940 -0.23358021 1.0289721 -0.12615640 -0.20972192
#> 2 0.55975022 0.5555881 0.05470113 0.8716465 -0.50504909 0.31605842
#> 3 -0.13156136 0.7571076 -0.07316358 0.6458334 0.05839778 -0.11127415
#> 4 -0.08632233 0.7942769 0.02204668 1.3161395 0.10836902 0.52186260
#> 5 -0.25009794 0.7803211 0.10328539 0.6403801 0.35338332 -0.13994107
#> 6 -0.14750191 0.5844020 -0.29283699 0.9095049 -0.14533507 0.32510297
#> 7 -0.33394007 0.9220302 0.30075361 0.5737077 0.63469368 -0.34832246
#> 8 0.03631346 1.5700959 -0.29293289 0.8409346 -0.32924635 -0.72916132
#> 9 -0.12535320 1.1936277 -0.59826611 1.1039655 -0.47291291 -0.08966222
#> 10 -0.08582624 1.0467690 0.36861125 0.9383578 0.45443748 -0.10841114
as.matrix(CompareDf)
#> Avg1_10 SD1_10 Avg11_20 SD11_20 Diff_Avg Diff_SD
#> [1,] -0.10742381 1.2386940 -0.23358021 1.0289721 -0.12615640 -0.20972192
#> [2,] 0.55975022 0.5555881 0.05470113 0.8716465 -0.50504909 0.31605842
#> [3,] -0.13156136 0.7571076 -0.07316358 0.6458334 0.05839778 -0.11127415
#> [4,] -0.08632233 0.7942769 0.02204668 1.3161395 0.10836902 0.52186260
#> [5,] -0.25009794 0.7803211 0.10328539 0.6403801 0.35338332 -0.13994107
#> [6,] -0.14750191 0.5844020 -0.29283699 0.9095049 -0.14533507 0.32510297
#> [7,] -0.33394007 0.9220302 0.30075361 0.5737077 0.63469368 -0.34832246
#> [8,] 0.03631346 1.5700959 -0.29293289 0.8409346 -0.32924635 -0.72916132
#> [9,] -0.12535320 1.1936277 -0.59826611 1.1039655 -0.47291291 -0.08966222
#> [10,] -0.08582624 1.0467690 0.36861125 0.9383578 0.45443748 -0.10841114
Created on 2021-02-04 by the reprex package (v0.3.0)