以編程方式添加公式術語

Question

我正在運行仿真並需要測試不同大小公式的性能。從數據框中繪製列V1，V2，V3 ... Vk，我需要編程創建像fit <- ols(y ~ V1 + V2 + V3, data=dataframe)等公式。

如何編碼公式以便能夠縮放公式的長度？

Answer 1

您可以文本轉換爲一個公式：

vars <- c(1, 2, 4) 
formula.text <- paste0("y ~ V", paste(vars, collapse=" + V")) 
formula.text 
# [1] "y ~ V1 + V2 + V4" 

library(rms) 
fit <- ols(as.formula(formula.text), data=dataframe) 

Answer 2

您可以使用reformulate：

k <- 4 

reformulate(paste0("V", seq(k)), response = "y") 
# y ~ V1 + V2 + V3 + V4