例如我有一串的资料处理程序：
data <- matrix(rnorm(2000, 50, 15), ncol = 20)
data <- ifelse(data < 1, 1, data)
data <- data[rowSums(abs(data)) != dim(data)[2], ]
data <- data/apply(data, 1, median)
像这样的程序 前半段我可以正常用%>%算出来
但是后面有运算符号 不知道是不是我写法有问题
他会显示 "错误: Anonymous functions myst be parenthesized"
请问 这串可以怎么写比较好？ 感谢！