diff --git a/RFunction.R b/RFunction.R
index 36653a6..f81fa5b 100644
--- a/RFunction.R
+++ b/RFunction.R
@@ -115,7 +115,7 @@ rFunction <-function(data, threshold=NULL, window=72){
         # it matches with the distance column for actual speed calculation
         data_temp$timediff <-  magic::shift(data_temp$timediff, -1) 
         data_temp <-data_temp %>% mutate(speed = distance/as.numeric(timediff)) %>%
-          mutate(rollm =rollapply(speed, 72/median(as.numeric(timediff), na.rm=T), mean, na.rm=T, fill=NA))
+          mutate(rollm =rollapply(speed, window/median(as.numeric(timediff), na.rm=T), mean, na.rm=T, fill=NA))
         ##moving average to be calculated over the window time
         
         ### Input condition for the clustering