powered by
bandwidth_plugin( r, m, x, link = c( "logit" ), guessing = 0, lapsing = 0, K = 2, p = 1, ker = c( "dnorm" ) )
x
data("01_Miranda") h<-bandwidth_plugin( example01$r, example01$m, example01$x )
Run the code above in your browser using DataLab