在R中的数据帧中每三次计算连续值

I have this

我有这个

df<-cbind(
t1=c(1,1,1),
t2=c(1,1,1),
t3=c(0,1,1),
t4=c(1,0,1),
t5=c(1,1,1),
t6=c(1,1,1),
t7=c(1,1,0),
t8=c(0,1,1),
t9=c(1,1,1))


> df
     t1 t2 t3 t4 t5 t6 t7 t8 t9
[1,]  1  1  0  1  1  1  1  0  1
[2,]  1  1  1  0  1  1  1  1  1
[3,]  1  1  1  1  1  1  0  1  1
df<-cbind(
t1=c(1,1,1),
t