powered by
ecld.y_slope(object, x) ecld.y_slope_trunc(object, t = 1)
ld <- ecld(sigma=0.01*ecd.mp1) x <- seq(-0.1, 0.1, by=0.01) ecld.y_slope(ld,x) ecld.y_slope_trunc(ld)
Run the code above in your browser using DataLab