例如我有一串的資料處理程序：
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"
請問 這串可以怎麼寫比較好？ 感謝！