我可以从rnorm()的多个输入获得结果的数据帧吗?

时间:2019-06-07 14:01:08

标签: r shiny

我已经成功地找到了如何使用rnorm()一次为一个高尔夫球手在Shiny App中执行此操作。

我想看看是否有一种方法可以对列表中的所有 all 个高尔夫球手执行此操作,并将其显示在表格中。

因此,基本上我想模拟整个列表,而不必一一列举,并将其放入可以分析的数据框中。

任何输入将不胜感激!

    filtered1 <- sim %>%
      filter(sim$Numbered_Rounds >= input$Numbered_Rounds[1],
             sim$Numbered_Rounds <= input$Numbered_Rounds[2],
             sim$Golfer == input$golfer)

    vol1 <- vol %>%
      filter(vol$Course == input$Course)

    mean_adj <- mean(filtered1$FieldAdjStrokes, na.rm = TRUE)
    sd_adj <- sd(filtered1$FieldAdjStrokes, na.rm = TRUE)
    course_sd <- vol1$StrokeSD
    courseWT <- input$courseWT

    blend <- ((sd_adj * (1 - courseWT)) + (course_sd * courseWT))

    set.seed(69)
    simResults <- rnorm(5000,
                        mean = mean_adj,
                        sd = blend)

0 个答案:

没有答案