在apply()中避免简化

很简单的问题。

apply() ?

我要这么做是因为我有一个 apply

我需要类似的东西 SIMPLIFY = FALSE 在里面 mapply() 或者一种控制输出的机制 vapply() .

mimat <- matrix(c(1,2,3,4,5,6), nrow = 2)
mimat2 <- matrix(c(3,2,3,4,5,6), nrow = 2)

apply(mimat, MARGIN = 2, function(x) { 
                              if (is.element(el = 1, x)) return(c(0,1))
                              else return(c(1,2,3))
      })

应用() 适用于 mimat mimat2 它输出一个矩阵。