# Faking a model frame
ml <- list( likelihood = "halfnorm"
, expansions = 0
, w.lo = 0 %m% .
, w.hi = 100 %m% .
, Units = "m"
)
attr(ml, "transType") <- "line"
parms <- matrix(75, nrow = 1)
integrateDfuncs(parms, ml)
# check: Normal, 0 to 100, sd = 75, scaled to mode = 1
(pnorm(q = 100, mean = 0, sd = 75) - 0.5) * sqrt(2*pi)*75
Run the code above in your browser using DataLab