Nothing
mestse<-function(x,bend=1.28,...){
#
# Estimate the standard error of M-estimator using Huber's Psi
# using estimate of influence function
#
n<-length(x)
mestse<-sqrt(sum((ifmest(x,bend,op=2)^2))/(n*(n-1)))
mestse
}
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.