Question

我想从一系列不同类型的模型中选择一种回归模型，然后将其应用于子集。但我很难理解如何在server.R中粘贴该功能这里有一部分代码在ui.R

中

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

在server.R中我写了这段代码

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

You can try to use sprintf for it like

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

闪亮如何应用不同的回归模型

1 个答案: