AKDE <-
function(Data,BWRule,BWParam,KernelRule,Lo,Hi) {
BW <- AssignBandwidths(Data,BWRule,BWParam)
Smooth <- AdaptiveKDE(Data,BW,KernelRule,Lo,Hi)
return(Smooth)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.