Nothing
estimateParameters.psgp = function(object, ...) {
origObs = object$observations
rotated = FALSE
if (object$params$doAnisotropy) {
object = estimateAnisotropy(object)
#rotate Data
if (object$anisPar$doRotation && all(as.character(object$formulaString[[3]])=="1"))
object$observations=rotateAnisotropicData(object$observations,object$anisPar)
rotated = TRUE
}
# Restore measurement error characteristics
# object$observations$oeid = origObs$oeid;
# object$observations$oevar = origObs$oevar
# Estimate parameters using PSGP
object = learnParameters(object)
# Restore original observations
if (rotated)
object$observations = origObs
object
}
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.