Nothing
polynomial.functions <- function( polynomials, ... )
{
###
### this function returns a list of functions one for each of the
### polynomials in the arguments
###
### Parameters
### polynomials = a list of polynomial objects
### ... = further arguments to be passed to or from methods
###
functions <- list()
n <- length( polynomials )
for ( j in 1:n ) {
functions[[j]] <- as.function( polynomials[[j]], ... )
}
return( functions )
}
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.