# NOT RUN {
xpnorm(650, 500, 100)
xqnorm(.75, 500, 100)
xpnorm(-3:3, return = "plot", system = "gg") %>%
gf_labs(title = "My Plot", x = "") %>%
gf_theme(theme_bw())
# }
# NOT RUN {
if (rstudio_is_available() & require(manipulate)) {
manipulate(xpnorm(score, 500, 100, verbose = verbose),
score = slider(200, 800),
verbose = checkbox(TRUE, label = "Verbose Output")
)
}
# }
Run the code above in your browser using DataCamp Workspace