我已经成功地找到了如何使用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)