search for: andrewsmith81

I would like to make what seems like a simple addition to a display constructed from a call to levelplot -- I want to add a text label (which will, in general, depend on the object being plotted, and so cannot be hardcoded) to the origin, which has special significance in my problem. The x and y axes always have range (0,1) in my plots, so by "origin" I always mean the lower left corner

Here's a simple example of the type of function I'm trying to write, where the first argument is a list of functions: myfun <- function(funlist, vec){ tmp <- lapply(funlist, function(x)do.call(x, args = list(vec))) names(tmp) <- names(funlist) tmp } > myfun(list("Summation" = sum, prod, "Absolute value" = abs), c(1, 4, 6, 7)) $Summation [1]

I'm interested in writing some model selection functions (for linear regression models, as a start), which incorporate the PRESS criterion since it, to my knowledge, is not currently implemented in any available model selection procedure. I thought it would be simplest to build on already existing functions like regsubsets in package leaps. It's easy enough to calculate the PRESS