Publications by Claire Morrison
kings vs warriors
sac_gsw<- fread("/Users/claire/Documents/Script//NBA Stats 202223 All Stats NBA Player Props Tool.csv", header=T, data.table=F) head(sac_gsw) ## RANK NAME TEAM POS AGE GP MPG USG% TO% FTA FT% 2PA 2P% 3PA ## 1 1 Stephen Curry Gol G 35.1 56 34.7 31.0 13.6 281 0.915 494 0.579 639 ## 2 2 De'Aaron Fox Sac G 25.3 ...
7165 sym 16 img 4 tbl
Masters analysis
dat<- fread("/Users/claire/Desktop/ASA All PGA Raw Data - Tourn Level.csv", header=T, data.table=F) head(dat) ## Player_initial_last tournament id player id hole_par strokes hole_DKP ## 1 A. Hadwin 401353275 5548 284 283 57.0 ## 2 A. Noren 401353275 3832 284 285 47.0 ## 3 ...
793 sym Python (15374 sym/36 pcs) 10 img 1 tbl
co twin control & mendelian randomization plots
to plot: thoughts… plot correlations (see corr plot script) plot between/within associations - separate for ABCD and LTS plot sig MR associations - if a significant IVW, plot other methods AND related traits however we finalize the co-twin and MR plot together results<- fread("/Users/claire/Desktop/dissertation/cotwin_mendelian/ctc_results.csv"...
1035 sym Python (46297 sym/114 pcs) 3 img
sleep psychiatric disorders dissertation figures
circadian_col<- "brown2" alertness_col<- "#00BFC4" efficiency_col<- "#619CFF" duration_col<- "#FF61CC" non_insom_col<- "goldenrod" regularity_col<- "seagreen" satisf_col<- "mediumpurple1" fact_colors<- c("Circadian Preference"=circadian_col, "Alertness"=alertness_col, "Efficiency"=efficiency_col, "Duration"=duration_col, "Insomnia"=non_insom_col, ...
734 sym 53 img
sleep health psychiatric disorders within sibship
Colorado twin sample all data has been read in, cleaned and scored else where read in cleaned data HF_sleep<- fread("/Users/claire/Desktop/dissertation/ctc_sleep_psych/HF_sleep_dat.csv", header=T, data.table = F) cadd<- fread("/Users/claire/Desktop/dissertation/ctc_sleep_psych/LTS_psych_dat.csv", header=T, data.table=F) HF_sleep$project<- NULL HF...
422 sym 6 img
simple repeated measures
library(tidyverse) library(ggplot2) library(reshape2) library(rstatix) source("/Users/claire/Desktop/gradstats2022/gradstats_funcs.R") load data on self esteem across three time points for 10 participants data("selfesteem", package = "datarium") head(selfesteem) ## # A tibble: 6 × 4 ## id t1 t2 t3 ## <int> <dbl> <dbl> <dbl> ## 1 ...
1374 sym R (2657 sym/13 pcs) 2 img
MR psychiatric disorders as an exposure
create variable look up codes and save methods list ### exposures dep<- "ieu-b-102" scz<- "ieu-b-42" #bip<- "ieu-b-41" adhd<- "ieu-a-1183" ### outcomes sleepdur<- "ebi-a-GCST003839" napping<- "ebi-a-GCST011494" methods<- c('mr_two_sample_ml', 'mr_egger_regression', 'mr_weighted_mode', 'mr_weighted_median', 'mr_ivw') set.seed(222) models to run: ...
497 sym Python (47156 sym/214 pcs) 18 img
MR sleep as an exposure
create variable look up codes and save methods list dep<- "ieu-b-102" scz<- "ieu-b-42" #bip<- "ieu-b-41" adhd<- "ieu-a-1183" sleepdur<- "ebi-a-GCST003839" napping<- "ebi-a-GCST011494" chrono<- "ukb-b-4956" longsleep<- "ebi-a-GCST006685" shortsleep<- "ebi-a-GCST006686" methods<- c('mr_two_sample_ml', 'mr_egger_regression', 'mr_weighted_mode', 'mr_...
3718 sym Python (607381 sym/1775 pcs) 184 img
sleep psych correlations
LTS sample read in sleep and psych and merge HF_sleep<- fread("/Users/claire/Desktop/dissertation/ctc_sleep_psych/HF_sleep_dat.csv", header=T, data.table = F) cadd<- fread("/Users/claire/Desktop/dissertation/ctc_sleep_psych/LTS_psych_dat.csv", header=T, data.table=F) HF_sleep$project<- NULL HF_sleep$family<- NULL HF_sleep$bestbet<- NULL HF_sleep$...
422 sym 2 img 5 tbl
statistics formulas
helpful equations to know SSE \(SSE=\sum_{i=1}^{n}|\hat{Y}_{i}-b_0|\) \(SSE_A=(\sum_{i=1}^{n}|Y_{i}-b_0|)^2*n-1\) only when it is a simple model aka when MSE=variance and RMSE is standard deviation so: \(SSE_A=SD*n-1\) SSR with SSE \(SSR= SSE_C - SSE_A\) with data points aka STARBURST \(SSR=\sum_{i=1}^{n}(\hat{Y}_{iC}-\hat{Y}_{iA})^2\) \(SSR=n(\h...
1489 sym