尝试
dat1 <- dat
dat1[dat1 >-1 & dat1<1] <- NA
rowSums(dat1, na.rm=TRUE)
如果NAs
数据集中没有,您可以将值分配给 0 并使用rowSums
dat1[dat1 >-1 & dat1<1] <- 0
rowSums(dat1)
数据
set.seed(42)
dat <- as.data.frame(matrix(sample(seq(-5,5,by=0.25), 20*5,
replace=TRUE), ncol=5))