0
categoryとnumberを入力して、異なるカテゴリの売上ランク別に日次売上を予測するモデルを作成したいと考えています。最初の入力はモデルを構築するためにデータをサブセット化し、2番目の入力はモデルへの入力としてのランクです。最後に、出力は、モデルからの日次売上予測です。ここで2つの入力、ビルドモデル、出力結果を持つ光沢のあるアプリ
は（server.rに、私はAvgQuantity ' 'AvgRank1' 'Catgory1'' COL名 'ASIN' でデータフレーム 'juvo' を私のui.rとserver.r
library(shiny)
shinyUI(fluidPage(
titlePanel("Daily Sales Prediction by Sales Rank "),
selectInput("select", label = h3("Select Category"),
choices = list("toy_display_on_website" = 1, "toy_display_on_website" = 2, "toy_display_on_website" = 3),
selected = 1),
hr(),
#fluidRow(column(3, verbatimTextOutput("value"))),
numericInput("num", label = h3("Sales Rank "), value ="100"),
hr(),
fluidRow(column(3, verbatimTextOutput("value")))
))
得られ、 ）
shinyServer(function(input, output) {
juvosub<-reactive({juvo[juvo$Catgory1==input$select,]})
m1 <- reactive({glm.nb(as.formula(paste(log10(as.numeric(juvosub()$AvgQuantity))," ~ ",paste(log10(as.numeric(juvosub()$AvgQuantity)),collapse="+"))),
data = juvosub())})
juvoPredict<-reactive({data.frame(AvgRank1=input$num)})
result<-reactive({predict(m1(),juvoPredict(),type = "response") })
output$value <- renderPrint({result()})
})
言及するように、私は$入力によりjuvoデータフレームのサブセットを選択し、「AvgQuantity」〜「AvgRank1」でモデルを構築したいと思います。構築されたモデルでは、入力$ numがランクであり、出力として量を取得したいと考えています。
しかし、エラーメッセージは「モデル式の無効な用語」または「クラスを強制できない」「reactvalues」「data.frameに」ありがとう。