如何创建超立方体顶点

Question

我想在不使用包的情况下获得d - 维超立方体的顶点。例如，维度为d = 4的超立方体，所需的输出为

      Var1 Var2 Var3 Var4
 [1,]    0    0    0    0
 [2,]    1    0    0    0
 [3,]    0    1    0    0
 [4,]    1    1    0    0
 [5,]    0    0    1    0
 [6,]    1    0    1    0
 [7,]    0    1    1    0
 [8,]    1    1    1    0
 [9,]    0    0    0    1
[10,]    1    0    0    1
[11,]    0    1    0    1
[12,]    1    1    0    1
[13,]    0    0    1    1
[14,]    1    0    1    1
[15,]    0    1    1    1
[16,]    1    1    1    1

我想用

给出一个函数

cube <- function(d){
  res <- diag(d)
  #res repeated d = 4 
  replicas <- unique(expand.grid(res, res, res, res))
  replicas
}

但它清楚地表明这没有得到优化。