R-oefening

Bootstrap 1

Meld je aan om je oplossing in te dienen en feedback te krijgen.

set.seed(123) alpha.fn <- function(data, index) { X <- data$X[index] Y <- data$Y[index] return((var(Y) - cov(X, Y)) / (var(X) + var(Y) - 2 * cov(X, Y))) }