update stengen cs

appliedepi · Aug 1, 2024 · 5d7ff98 · 5d7ff98
1 parent e5e9bd3
commit 5d7ff98
Show file tree

Hide file tree

Showing 15 changed files with 3,748 additions and 170 deletions.
diff --git a/cs/ENG/tbe_mva.zip b/cs/ENG/tbe_mva.zip
diff --git a/cs/ENG/tbe_mva/scripts/backup/tbe_mva_backup.R b/cs/ENG/tbe_mva/scripts/backup/tbe_mva_backup.R
@@ -110,7 +110,7 @@ tbe %>%
 
   geom_smooth(method = lm) +           # this geometry will add a trend line. "lm" is for "linear model"
 
-  facet_grid(~sex)  +                   # adding this function will generate a separate graph for each category of sex
+  facet_wrap(~sex)  +                   # adding this function will generate a separate graph for each category of sex
 
 
   scale_x_continuous(name = "Age" , limits = c(0,100)) +          # Format the x-axis to a range between 0 and 100 
@@ -162,7 +162,7 @@ tbe %>%
 
     geom_histogram() + 
 
-    facet_grid(~hyper) + # add facet_grid() to get a graph for each hyper status
+    facet_wrap(~hyper) + # add facet_wrap() to get a graph for each hyper status
 
     labs(
       x = "Length of hospitalization in days",
@@ -177,7 +177,7 @@ tbe %>%
 
     geom_histogram(aes(y = ..density..)) + #here we are telling ggplot2 to display the density and not the freq count
 
-    facet_grid(~hyper) + # add facet_grid() to get a graph for each hyper status
+    facet_wrap(~hyper) + # add facet_wrap() to get a graph for each hyper status
 
     #the function below will add the normal curve. 
     stat_function(fun = dnorm,  #The fun = argument we are specifying that we want the normal curve         

diff --git a/images/stengen/beer_data_after.png b/images/stengen/beer_data_after.png
diff --git a/images/stengen/beer_data_before.png b/images/stengen/beer_data_before.png
diff --git a/images/stengen/epi.2by2_data.png b/images/stengen/epi.2by2_data.png
diff --git a/pages/stengen-en.epiet.html b/pages/stengen-en.epiet.html