ogk.center <-
function(x,beta=.9,...){
#
# Compute OGK multivariate measure of location
#
center=ogk(x,beta=beta,...)$center
list(center=center)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.