search for: applyfilter

...a problem using plyr to process a rather large junk of data. What I'm trying to do is applying a moving average to all the subparts of the dataframe (the example data can be found here https://dl.dropboxusercontent.com/u/2414056/testData.Rdata). require(plyr) load("testData.Rdata") applyfilter<-function(x){ return(filter(x,rep(1/5, times=5))) } data.trash<-ddply(data, .(FileNo, ChannelNo), transform, filtered=applyfilter(ChannelB)) The result from this is Error in attributes(output[[var]]) <- attributes(value) : invalid time series parameters specified though the number o...

Hello everyone. I have been looking at the filtering on Mapstraction and realized that it does not allow for sub-filters. I have modified the applyFilter function to accommodate sub filters. for example if I wanted to filter all houses that are blue and green and also all warehouses irrespective of color now I can use map.addFilter(''Type'', ''eq'', { pFilter: "House", sFilter: [...

Hi, all! My project today is to write a speedy colSums(), which is a function available in S-Plus to add the columns of a matrix. Here are 4 ways to do it, with the time it took (elapsed, best of 3 trials) in both R and S-Plus: m <- matrix(1, 400, 40000) x1 <- apply(m, 2, sum) ## R=16.55 S=52.39 x2 <- as.vector(rep(1,nrow(m)) %*% m) ## R= 2.39 S= 8.52 x3 <-

...+ ["_global.flash.display", "BitmapData", false], + ["_global.flash.display.BitmapData", "loadBitmap", true], + ["_global.flash.display.BitmapData", "prototype", false], + ["_global.flash.display.BitmapData.prototype", "applyFilter", true], + ["_global.flash.display.BitmapData.prototype", "clone", true], + ["_global.flash.display.BitmapData.prototype", "colorTransform", true], + ["_global.flash.display.BitmapData.prototype", "compare", true], + ["_globa...