スライシング

スライシング 任意進法

my.slice <- function(v,dm,d,j){ tmp <- list() for(i in 1:length(dm)){ tmp[[i]] <- 1:dm[i] } tmp2 <- as.matrix(expand.grid(tmp)) return(list(v=v[which(tmp2[,d]==j)],dm=dm[-d])) } my.slice.2 <- function(v,dm,d,j){ j <- j-1 n <- length(dm) dm…