MAD <- apply(femData, 1, mad) Error in x - center : non-numeric argument to binary operator In addition: Warning message: In mean.default(sort(x, partial = half + 0L:1L)[half + 0L:1L]) : 参数不是数值也不是逻辑值：回覆NA

这个错误可能是由于`femData`中包含非数值或缺失值导致的。可以使用下列代码排除非数值和缺失值：

# 保留femData中所有数值型数据
femData_numeric <- femData[which(sapply(femData, is.numeric))]

# 计算中位数绝对偏差
MAD <- apply(femData_numeric, 1, mad, na.rm = TRUE)

这段代码将仅保留`femData`中的数值型数据，然后计算中位数绝对偏差。`na.rm = TRUE`参数将排除缺失值。