set.seed(1234)
week1 = data.frame(mon=rnorm(6),tue=rnorm(6),wed=rnorm(6),thu=rnorm(6),fri=rnorm(6))
week2 = data.frame(mon=rnorm(6),tue=rnorm(6),wed=rnorm(6),thu=rnorm(6),fri=rnorm(6))
week3 = data.frame(mon=rnorm(6),tue=rnorm(6),wed=rnorm(6),thu=rnorm(6),fri=rnorm(6))
week4 = data.frame(mon=rnorm(6),tue=rnorm(6),wed=rnorm(6),thu=rnorm(6),fri=rnorm(6))
week1=week1+15;week2=week2+15;week3=week3+15;week4=week4+15
vstat(week1)
vstat(week1,week2,week3,week4)
Run the code above in your browser using DataLab