From 0b3411c61b521f4ce7b29680d36d8db521c17a23 Mon Sep 17 00:00:00 2001 From: reubenthomas Date: Tue, 23 Feb 2021 11:54:00 -0800 Subject: [PATCH] perform experiments code --- intro-experimental-design/DoExperiments.R | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 intro-experimental-design/DoExperiments.R diff --git a/intro-experimental-design/DoExperiments.R b/intro-experimental-design/DoExperiments.R new file mode 100644 index 0000000..ae6cca5 --- /dev/null +++ b/intro-experimental-design/DoExperiments.R @@ -0,0 +1,15 @@ +rm(list = ls()) +setwd("~/Dropbox (Gladstone)/Bioinformatics/Training_Workshops/Gladstone-internal/Introduction to statistics and experimental design - Feb 2021") + +source("SImulateData.R") + +##do experiment comparing expression of gene between E9.5 and E11.5 +PerformAssayGeneExpression(NsamplesPerTime = 10) + +##Two models for expression of gene at E9_5: Gamma and Normal +AssayExpression_E9_5_two_models(NsamplesPerTime = 4) + +##Repeat the experiment Nsim times to estimate mean gene expression at E9_5 under the two models of +##data generating distribution +Repeat_AssayExpression_E9_5_two_models(NsamplesPerTime = 10, Nrepeat = 10000) +