# NOT RUN {
forecasts <- list(list(range = c(0, 250), resolution = 1),
list(source = "Pishkalo",
dist = "Norm",
params = c("mu", "sd"),
values = c(116, 12),
weight = 0.2),
list(source = "Miao",
dist = "Norm",
params = c("mu", "sd"),
values = c(121.5, 32.9)),
list(source = "Labonville",
dist = "TPD",
params = c("min", "mode", "max"),
values = c(89-14, 89, 89+29)),
list(source = "NOAA",
dist = "PCT",
params = c(0.2, 0.8),
values = c(95, 130)),
list(source = "Han",
dist = "Norm",
params = c("mu", "sd"),
values = c(228, 40.5)),
list(source = "Dani",
dist = "Norm",
params = c("mu", "sd"),
values = c(159, 22.3)),
list(source = "Li",
dist = "Norm",
params = c("mu", "sd"),
values = c(168, 6.3)),
list(source = "Singh",
dist = "Norm",
params = c("mu", "sd"),
values = c(89, 9)))
MetaculR_probabilistic_consensus(
f = forecasts)
# }
Run the code above in your browser using DataLab