Реклама ООО Таймвэб
Реклама ООО Таймвэб
Реклама ООО Таймвэб
Max
333

Код на R

0 ответов

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)

Ваш баланс 10 ТК
1 ТК = 1 ₽
О том, как заработать и потратить Таймкарму, читайте в этой статье
Чтобы потратить Таймкарму, зарегистрируйтесь на нашем сайте
С помощью соцсетей
У меня нет аккаунта Зарегистрироваться
Нажимая кнопку «Зарегистрироваться», я даю согласие на обработку своих персональных данных, указанных в форме регистрации.
С помощью соцсетей
У меня уже есть аккаунт Войти
Нажимая кнопку «Зарегистрироваться», я даю согласие на обработку своих персональных данных, указанных в форме регистрации.
Инструкции по восстановлению пароля высланы на Ваш адрес электронной почты.
Пожалуйста, укажите email вашего аккаунта
Войти в Комьюнити
Регистрация в Комьюнити
Восстановление пароля