setMethodS3("drawApex", "cfit", function(fit, ...) {
X <- t(fit);
X <- X[,1];
X <- t(X);
points(X, ...);
})
###########################################################################
# HISTORY:
# 2008-08-31
# o Added drawApex() for class cfit to be compatible with the newer
# expectile package.
###########################################################################
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.