0

I have written a rolling z-score function myself. Is my implementation of rolling z-score function correct?
#x is an xts object and y duration eg rollz(x,25)
rollz<-function(x,y){
avg=rollapply(x, y, mean)
std=rollapply(x, y, sd)
z=(x-avg)/std
return(z)
}