On Sun, Jul 6, 2008 at 3:19 PM, Megh Dal <[EMAIL PROTECTED]> wrote: > Can anyone please tell me why I am getting this error? > > library(zoo) > Z.index <- as.Date(sample(12450:15500, 3000)) > Z.data <- matrix(rnorm(300), ncol = 1) > > data1 <- zoo(Z.data, Z.index) > > fnc = function(data1) > { > selection2 = select.list(c("Mean"), multiple = F) > > Mean = function(dataa) mean(dataa) > > return(aggregate(data1, as.yearqtr, selection2)) > } > > fnc(data1) > > I got following error : > Error in get(as.character(FUN), mode = "function", envir = envir) : > variable "Mean" of mode "function" was not found >
Its a bug in aggregate.zoo . Its just been fixed in the zoo devel version available on R-Forge so you can either grab that or use the workaround below: library(zoo) set.seed(1) Z.data <- matrix(rnorm(300), ncol = 1) Z.index <- as.Date(sample(12450:15500, 3000)) data1 <- zoo(Z.data, Z.index) fnc <- function(data1) { selection2 <- select.list("Mean", multiple = FALSE) Mean <- function(dataa) mean(dataa) my.match.fun <- function(x) match.fun(x) ### selection2 <- my.match.fun(selection2) ### return(aggregate(data1, as.yearqtr, selection2)) } fnc(data1) ______________________________________________ R-help@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.