# ferdo Lab — WEEK 1 · PUBLIC ORIGINAL INSTRUCTOR SOLUTION
# All data fictional. Run from extracted package root. Base R only.
print(7+5)
print(3*(4+2))
x <- c(6,8,10,12)
print(length(x))
print(mean(x))
print(x[2])
print(x[x>8])
p <- read.csv("data/participants.csv")
print(head(p))
str(p)
print(nrow(p))
print(mean(p$age))
print(aggregate(age~intervention,p,mean))
plot(seq_len(nrow(p)),p$age,pch=19,xlab="Fictional row",ylab="Age",main="Synthetic participants")
stopifnot(length(x)==4L,mean(x)==9,nrow(p)==12L)
cat("W1 PASS: 12 synthetic participants, no external packages\n")
# Do not generalise from a small fictional convenience sample.