Week 2 - Lecture 2.2

Data

telo.control <- c(0.95, 0.96, 1.07, 1.08, 1.09, 
             1.1,  1.12, 1.14, 1.18, 1.19, 
             1.19, 1.2, 1.34, 1.45,  1.49, 
             1.55)

telo.disturbed <- c(0.83, 0.84, 0.87, 0.93, 0.94, 
               0.96, 0.99, 1.00, 1.01, 1.01, 
               1.02, 1.05, 1.07, 1.08, 1.09,
               1.09, 1.12, 1.13, 1.16, 1.24, 
               1.41)
               
cort.control <-c(6.32, 1.56,  8.61, 4.86, 3.32, 
                4.31,  1.84, 10.45, 1.47, 4.57, 
                1.95,  5.93,  8.89, 1.16,   NA,
                  NA)

cort.disturbed <- c(7.38,  5.39, 5.39, 5.73, 18.35, 
                    0.95,  1.72, 7.26, 1.38,  4.22, 
                    7.52, 12.52, 3.86, 3.12,  1.36, 
                    2.26,  0.85, 4.76, 0.95,  6.92, 
                    2.16)
sex.cntrl <- c("F","M","F","F","F","F","F","M","F","F","M","F","M","M",
               "F","F")       
               
sex.dist <-  c("M", "M", "F", "F", "F", "M", "F", "M", "F", "M", "F",
                "F", "M", "F", "M", "M", "F", "M", "F", "M", "M")

R Markdown