Triangle distribution method of moments estimate
triangle_mom(x)
x
triangle distribution sample
a vector of the parameter estimates
set.seed(1204) x <- rtriangle(20, 0, 2, 1.5) triangle_mom(x)