Stan code for the modskurt with asymmetry and varied flattening / peakedness

Examples

cat(modskurtp1_stan[["source_code"]])
#> 
#> real modskurtp1(real x, real H, real m, real s, real r, real d) {
#>   return modskurt(x, H, m, s, r, d, 1);
#> }