我正在寻找一种快速从R数组中删除冗余维度的方法,类似于MATLAB中的squeeze()
命令。
目前我结合了reshape2
包中的melt()
和cast()
命令,但应该有更简单的方法来实现同样的效果。
这是我目前的做法:
require(reshape2)
array3d <- array(rep(0,4),dim=c(1,2,2)) # create a 2*2 matrix within a 3-d array
acast(melt(array3d),Var2~Var3) # recover the matrix