r - 用于矩阵的函数？

Question

我有一个巨大的矩阵，想在上面评估几个表达式。

lexpr <- sapply(c("col1 > col2", "col1 > col3",  "col2 == 15"), function(x) parse(text=x))
M <- matrix(data=sample(1:100, 30), nrow = 10, ncol = 3, dimnames = list(1:10, c('col1','col2','col3')))
M <- as.data.frame(M)
logi <- with(M, lapply(lexpr, function(x) eval(x)))

如何避免占用大量时间和内存的 as.data.frame 转换？