Nothing
hatvalues.drc <- function(model, ...)
{
xmat <- model$der
diag(xmat %*% ginv(t(xmat) %*% xmat) %*% t(xmat))
# names(hvector) <- as.character(1:length(hvector))
# hvector
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.