大概是「應用」功能相關的

Question

我正在通過使用以下代碼創建一個代表[0,1]^d的d維超立方體，該代碼由此論壇上的其他用戶友好建議。

## generation of the d-dimensional hypercube 
cube <- do.call(expand.grid,replicate(d, seq_len(mesh)/mesh, simplify=FALSE)) 

比方說，我有一個函數，說

foo <- function(u) prod(u) 

，我會想申請上面創建的hybercube的每一個點。有沒有一種很好的方法來避免在d行中使用循環來實現？我嘗試過使用各種應用功能，但那是不成功的。

謝謝。

Answer 1

首先，給您上頂點的座標功能：

hypercube <- function(d, coord = c(0, 1)) 
    do.call(expand.grid, replicate(d, coord, simplify = FALSE)) 

例如，使用d = 3：

cube <- hypercube(d = 3) 
cube 
# Var1 Var2 Var3 
# 1 0 0 0 
# 2 1 0 0 
# 3 0 1 0 
# 4 1 1 0 
# 5 0 0 1 
# 6 1 0 1 
# 7 0 1 1 
# 8 1 1 1 

然後，對每個頂點運行foo功能超立方體，使用apply：

apply(cube, 1, foo)