qhatds1 <-
function(isubx,x,y){
#
# function used by qhat when working on bootstrap estimates.
#
xx<-x[isubx]
yy<-y[isubx]
group<-disker(xx,yy,x,op=2)$zhat
group
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.