Nothing
# last modified 2012-01-06 by J. Fox
# Modified for Compiled code in C/C++ by Zhenghua Nie.
objectiveGLS <- function (gradient = FALSE)
{
result <- list(objective = function(par, model.description) {
with(model.description, {
res <- CompiledObjective(par=par, model.description=model.description, objective="objectiveGLS")
f <- res$f
C <- res$C
A <- res$A
P <- res$P
attributes(f) <- list(C = C, A = A, P = P)
f
}
)
}
)
class(result) <- "semObjective"
result
}
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.