glänzend, wie unterschiedliche Regressionsmodell

Question

Ich möchte eines der Regressionsmodelle aus einer Auswahl von verschiedenen Arten von Modellen auswählen und dann auf eine Teilmenge anwenden. Aber ich habe schwer zu verstehen, wie ich die Funktion in server.R einfügen können Hier gibt es einen Teil des Codes in ui.R

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

In server.R ich geschrieben habe diesen Code

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) 
    }) 
}) 

Answer 1

können Sie versuchen, sprintf es wie

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="+"))) 

zu verwenden