どのように異なる回帰モデルを適用する

Question

異なる種類のモデルの選択から回帰モデルの1つを選択し、それをサブセットに適用したいと思います。しかし、私はこのコード

dati<- as.data.frame(read.csv(file='file.csv', header=TRUE, sep=";", dec=",")) 
mydata <- reactive({ 
    (pdata=subset(dati,index==input$proj)) 
}) 

shinyServer(function(input, output) { 
    #Simple plot 
    output$testPlot = renderPlot({ 
     pdata=subset(dati,index==input$proj) 
     plot(pdata$gg, pdata$y) 
    }) 
    ###my data 
    mydata <- reactive({ 
     (pdata=subset(dati,index==input$proj)) 
    }) 

    runRegression <- reactive({ 
     lm(as.formula(paste(input$dependent," ~ ",paste(input$independent,collapse="+"))),data=dat) 
    }) 
}) 

を書いたserver.Rで

h3("Model Prediction"), 
selectInput("regression", "Select Model:", 
list("y~x", 
"y~x^2") 

コードの一部がui.R

であり、私はここでserver.R で関数を貼り付けることができますどのように理解することは困難ました

Answer 1

あなたはそれ

selectInput("regression", "Select Model:", 
list("y~x"="%s", 
     "y~x^2"="%s^2")) 


as.formula(paste(input$dependent," ~ ",paste(sprintf(fmt = input$regression,input$independent),collapse="+"))) 

などに sprintfを使用しようとすることができます