ガム用Rペースト式

Question

gamm推定の式をプログラムで作成しようとしていますが、後で光っているアプリで使ってみたいものです。私の目標は、この種の式を作成することです：y〜s（x、bs = "cs"）。 私はカンマの後にパートを貼り付ける方法を知らないので、私は立ち往生しました：bs = "cs"。単一行で入力された複数のコマンドは、コードのご理解をいじり始める、それは通常、それらを壊すことは理にかなってのケースでは

input<-list() 
input$x<-"mpg" 
input$y<- "hp" 

formula<-as.formula(paste(input$y_variable," ~ ",paste(paste("s(",paste(input$x_variable,collapse="+")),', bs="cs")'))) 

z <- mgcv::gamm(formula, data=mtcars) 

Answer 1

：

dep_vars <- paste0(input$x, collapse = "+") 
after_tilde <- paste0("s(", dep_vars, ", bs = 'cs')") 
dyn_string <- paste0(input$y, " ~ ", after_tilde) 

mgcv::gamm(as.formula(dyn_string), data=mtcars) 

しかし、それは実際のことが判明私は一般的に文字を行くに対して助言する代わりに、式の作成に

Answer 2

問題は、あなたがinput$xとinput$yを定義したということですが、あなたはinput$x_variableとinput_y_variableを使用していましたこれのための経路。通常は、言語に計算すると良いでしょう：

input <- lapply(input, as.name) 
z <- eval(substitute(mgcv::gamm(y ~ s(x, bs = "cs"), data=mtcars), input)) 

これはinputからの名前の表現でxとyを代入し、式を評価します。