powered by
x (=x_th)
x_th
threshold_slope( pfit, xfit, thresh = 0.5 )
data( "01_Miranda" ) xnew = 1.2 * (0:999)/999+0.1 h = 0.2959 fit <- locglmfit( xnew, example01$r, example01$m, example01$x, h ) value <- threshold_slope( fit$pfit , xnew )
Run the code above in your browser using DataLab