X-Git-Url: https://code.communitydata.science/stats_class_2020.git/blobdiff_plain/d8e3c48318775584e330dde6e6a01bc5e820ba38..858c9ba53122dcf1459725e3e2ece720df1d5139:/psets/pset6-worked_solution.html?ds=sidebyside diff --git a/psets/pset6-worked_solution.html b/psets/pset6-worked_solution.html index b323099..f26bb7e 100644 --- a/psets/pset6-worked_solution.html +++ b/psets/pset6-worked_solution.html @@ -1673,10 +1673,10 @@ library(ggridges) ridge_plot <- ggplot(data = df, aes(x = weeks_alive, y = dose)) + geom_density_ridges(jittered_points = T, fill = "orange") ridge_plot -

+

# add a fancy minimalist theme to make it prettier:
 ridge_plot + theme_minimal()
-

+

SQ1 Discuss the descriptive results

Overall, the survival times range from \(30-100\) weeks, with an average of about \(75.5\) weeks and a standard deviation of \(21.4\) weeks. The distribution of outcomes is slightly left-skewed.