Time Series
Elipse
## It's deterministic and autocorrelated
t <- seq(0,0.99,by=0.01)
x <- sin(2*pi*t)
y <- sin(4*pi*t) + x
data <- data.frame(x, y)
plot(data)
Function
dfx <- data.frame(
group = c(rep('A', 8), rep('B', 15), rep('C', 6)),
sex = sample(c("M", "F"), size = 29, replace = TRUE),
age = runif(n = 29, min = 18, max = 54)
)
where: