Nothing
##
## Methods for returning the Euler angles
## ======================================
##
## Method definition for objects of class "Goestml"
##
setMethod(f = "angles", signature = "Goestml", definition = function(object){
angles <- object@opt$par
names(angles) <- paste("angle", seq(along.with = angles), sep = "")
return(angles)
})
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.