2016-05-11 10 views
0

異なる種類のモデルの選択から回帰モデルの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 で関数を貼り付けることができますどのように理解することは困難ました

答えて

0

あなたはそれ

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を使用しようとすることができます
関連する問題