# R program to illustrate # rowMean function# Create example values# Set seedset.seed(1234)# Create example data
data <- data.frame(matrix(round(runif(12,2,20)),
nrow =4, ncol =3))# Print dataprint(rowMeans(data))
R
输出
[1]11.66666712.6666679.66666710.333333
R
例2 :
# R program to illustrate # rowMean function# Create example data with NA
data_na <- data.frame(matrix(round(runif(12,2,20)),
nrow =4, ncol =3))
data_na[rbinom(length(data_na),1,0.3)==1]<-NA
data_na <-as.data.frame(data_na)print(rowMeans(data_na, na.rm =TRUE))