我被要求执行以下操作：打印 AtmWtAg.wide 的 summary . 使用apply系列中的函数（ apply ， tapply ， lapply ， sapply ）和相应的R函数来计算一组类似的值（逐列平均值，中值，最小值，最大值和分位数） .
请注意，此格式的每列都是来自单台机器的观察 . AtmWtAf.wide的数据如下所示：
1 2
1 107.8681568 107.8681079
2 107.8681465 107.8681344
3 107.8681572 107.8681513
4 107.8681785 107.8681197
5 107.8681446 107.8681604
6 107.8681903 107.8681385
我试过这个，但我的数据是行而不是列，结构不是data.frame . 我们被要求不要通过as.data.frame实际更改摘要 . 我们不应该只使用一般摘要声明 .
AtmWtag.wide1 <- apply(AtmWtAg.wide, 2, function(x) c(mean(x),median(x),quantile(x)))