Nothing
##
## p3d:Evalf.R
## 2011-12-22
##
Evalf <-
function( fun, data = newdata, newdata ) {
# this is meant to evaluate a function much like predict 'evaluates' a model
inds <- seq_along( rownames(data) )
ret <- rep(NA, length(inds))
for ( i in inds ) {
ret[i] <- do.call(fun,data[i,])
}
ret
}
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.