Update AdHocQueries.R

cns-iu · Feb 20, 2024 · a0d4aab · a0d4aab
1 parent 6b00905
commit a0d4aab
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/ctpop_plots/AdHocQueries.R b/ctpop_plots/AdHocQueries.R
@@ -133,6 +133,8 @@ all_datasets %>% filter(status=="Atlas") %>% group_by(organ, dataset_cnt) %>% ta
 donors = read_csv("../ad_hoc_queries/input/donor-info.csv")
 donors
 
+donors %>% filter(age<18) %>% view()
+
 # mean age
 donors$age %>% mean()
 donors$age[!is.na(donors$age)] %>% mean()
@@ -142,3 +144,4 @@ donors %>% group_by(sex) %>% tally()
 
 # race
 donors %>% group_by(race) %>% tally()
+