Like drop(x) but only dropping specified dimensions. There is no testing that the specified dimensions are actually singletons.
Drop(x, d)
array x
x = array(1:4, dim=c(1, 2, 1, 2)) dx = MAST:::Drop(x, 1) stopifnot(all(dim(dx)==c(2,1,2)))