series test=na

!q=1

' for !q = 1 to 5 'loop for all 5 weekdays (deactivated)
for !i = 9 to 18 'loop limits hours
smpl @all if weekdy=!q and @hour >= !i and @hour <!i+1
test = @mean(rt*rt)
next
' next