ui <-
fluidPage(
numericInput(
inputId = "A",
"Значение",
1,
min = 0,
max = 1000
),
numericInput(
inputId = "B",
"Среднее",
1,
min = 0,
max = 1000
),
numericInput(
inputId = "C",
"Среднеквадратическое отклонение",
1,
min = 1,
max = 1000
),
textInput(inputId = "Z", "f")
)
server <- function(input, output, session)
dist <- eventReactive (input$Значение,
output$f <-
renderPrint(dnorm(input$A, input$B, input$C)))
#output$f <- renderPrint(dist)
shinyApp(ui, server)
Доброго времени суток,
Я новичок в R. Только начал изучать этот язык. Пожалуйста, подскажите правильный ли код, приведенный выше. Хочу создать приложение для расчета значения функции нормального распределения. При запуске кода ошибок вроде не возникает, но при заполнении numericImput f не просчитывается.
Ответы (0)