Nothing
meanFilter <-
function(inputData=NULL, windowSize=3){
if(is.null(inputData) ){
cat("WARNING: meanFilter -> Please input a valid inputData\n")
return(NULL)
}
if(windowSize <= 1){
cat("WARNING: meanFilter -> no filtering performed: outData = inputData\n")
return(inputData)
}
outData = vector(mode = mode(inputData), length = length(inputData) )
for(i in 1:length(inputData) ){
if(windowSize/2 == floor(windowSize/2) ){
startTmp = max(1, i-windowSize/2)
endTmp = min(length(inputData), i+windowSize/2-1)
} else{
startTmp = max(1, i-(windowSize-1)/2)
endTmp = min(length(inputData), i+(windowSize-1)/2)
}
outData[i] = mean(inputData[startTmp:endTmp])
}
return(outData)
}
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.