bincombinations.r

来自「一般的支持向量机算法比较单一」· R 代码 · 共 14 行

bincombinations <- function(p) {

  retval <- matrix(0, nrow=2^p, ncol=p)
  
  for(n in 1:p){
    retval[,n] <- rep(c(rep(0, (2^p/2^n)), rep(1, (2^p/2^n))),
                      length=2^p)
  }
  retval
}