set.seed(0)
vec <- sample(24)
vec_views <- slice(vec, lower=4, upper=16)
vec_views
viewApply(vec_views, function(x) diff(as.integer(x)))
viewMins(vec_views)
viewMaxs(vec_views)
viewSums(vec_views)
viewMeans(vec_views)
viewWhichMins(vec_views)
viewWhichMaxs(vec_views)
Run the code above in your browser using DataCamp Workspace