R 中函數的所有可能參數規范

Question

我有一個具有以下形式的函數：

model <- Create(parameter1 = list(model = "a" , "b"),
                parameter2 = list(distribution = "x" , "y"))

我想使用上面的函數為這個“模型”創建所有可能的規范。

parameter1和parameter2的可能值為：

parameter1: "a", "b", "c", "d", "e"

和

parameter2: "x", "y", "z", "w", "t", "v"

我曾嘗試使用for循環，但到目前為止還沒有奏效。

任何幫助將不勝感激。

Answer 1

我們可以使用combn來創建每個“參數”的配對組合，

 d1 <- expand.grid(parameter1, parameter1, stringsAsFactors = FALSE)

 d2 <- expand.grid(parameter2, parameter2, stringsAsFactors = FALSE)
 names(d2) <- c("Var3", "Var4")

然后使用expand.grid或crossing ，擴展創建的兩個數據集

library(tidyr)
parameter_dat <- crossing(d1, d2)
str(parameter_dat)
tibble [900 × 4] (S3: tbl_df/tbl/data.frame)
 $ Var1: chr [1:900] "a" "a" "a" "a" ...
 $ Var2: chr [1:900] "a" "a" "a" "a" ...
 $ Var3: chr [1:900] "t" "t" "t" "t" ...
 $ Var4: chr [1:900] "t" "v" "w" "x" ...

遍歷數據集的行並應用函數

library(purrr)
pmap(parameter_dat, ~ Create(parameter1 = list(model = c(..1, ..2)),
                parameter2 = list(distribution = c(..3, ..4))))

數據

parameter1 <- c("a", "b", "c", "d", "e")
parameter2 <- c("x", "y", "z", "w", "t", "v")