Nothing
addFixedPar <- function( theta, start, fixed, ...) {
if( is.null( fixed ) ) {
start <- theta
} else {
start[ !fixed ] <- theta
}
return( start )
}
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.