if (FALSE) {
# y has length greater than 1
y <- 1:2
sample <- matrix(rnorm(20), nrow = 2)
crps_sample(y = y, dat = sample)
logs_sample(y = y, dat = sample)
y <- 1:2
sample <- rnorm(10)
crps_sample(y = y, dat = sample) # error
# y has length 1
y <- 1
sample <- rnorm(10)
crps_sample(y = y, dat = sample)
sample <- matrix(rnorm(10), nrow = 1)
crps_sample(y = y, dat = sample)
sample <- matrix(rnorm(20), nrow = 2)
crps_sample(y = y, dat = sample) # error
}
Run the code above in your browser using DataLab