powered by
deviance2(r, m, pfit)
data( "01_Miranda" ) h = 0.2959 fit <- locglmfit( example01$x, example01$r, example01$m, example01$x, h ) Dev <- deviance2( example01$r, example01$m, fit$fitval )
Run the code above in your browser using DataLab