fork download 
  1. dt <-
  2.   data.frame(
  3.     `asd fds ab` = rnorm(10),
  4.     DSg = rnorm(10),
  5.     `KLSD_fs  dfs()` = rnorm(10),
  6.     ksdvm_23 = rnorm(10),
  7.     check.names = F
  8.   )
  9. # 欄位名故意取得很醜是為了測試之後可否運作
  10.  
  11. IVs <- c(2, 3, 4)
  12. DV <- c(1)
  13. dtn <- names(dt)
  14. library(magrittr)
  15. myFormula <-
  16.   paste0("`", dtn[IVs], "`") %>%
  17.   paste0(collapse = " + ") %>%
  18.   paste0("`", dtn[DV], "` ~ ", ., collapse = "") %>%
  19.   as.formula
  20.  
  21. print(myFormula)
  22. lm(myFormula, data = dt)
  23. lm(`asd fds ab` ~ DSg + `KLSD_fs  dfs()` + ksdvm_23, data = dt) # same
Success #stdin #stdout 0.22s 40976KB
comments (?)
stdin 
Standard input is empty
stdout 
`asd fds ab` ~ DSg + `KLSD_fs  dfs()` + ksdvm_23
<environment: 0x5627aa352240>

Call:
lm(formula = myFormula, data = dt)

Coefficients:
     (Intercept)               DSg  `KLSD_fs  dfs()`          ksdvm_23  
          0.1712           -0.1264           -0.0943            0.1207  


Call:
lm(formula = `asd fds ab` ~ DSg + `KLSD_fs  dfs()` + ksdvm_23, 
    data = dt)

Coefficients:
     (Intercept)               DSg  `KLSD_fs  dfs()`          ksdvm_23  
          0.1712           -0.1264           -0.0943            0.1207
https://ideone.com/wsIj4C
language:
R (R 3.5.2)
created:
4 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!