Nothing
pp_avg_rep_vs_avg_resid_rep <- reactive({
pp_tests()
y <- get_y()
yrep <- get_yrep()
rowMeans_resids <- rowMeans(y - yrep)
rowMeans_yrep <- rowMeans(yrep)
do.call(".pp_avg_rep_vs_avg_resid_rep", args = list(
rowMeans_yrep = rowMeans_yrep,
rowMeans_resids = rowMeans_resids
))
})
output$pp_avg_rep_vs_avg_resid_rep_out <- renderPlot({
pp_avg_rep_vs_avg_resid_rep()
}, bg = "transparent")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.