# NOT RUN {
sample <- rnorm(1e4)
obs <- 1
crps_sample(y = obs, dat = sample)
logs_sample(y = obs, dat = sample)
## exact solutions using analytical closed form expression:
crps(y = obs, family = "normal", mean = 0, sd = 1)
logs(y = obs, family = "normal", mean = 0, sd = 1)
# }
Run the code above in your browser using DataLab