X-Git-Url: https://code.communitydata.science/stats_class_2020.git/blobdiff_plain/b4f676b3a5d15b8313785724996ba59aae6f388c..f4cc27882266caedc2bc151dc4fab03345934b93:/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.