■

distribution_of_runs<-function(kkkb){
a123b<-macthing_vector(kkkb,c(1,-1))
b123b<-macthing_vector(kkkb,c(-1,1))
z<-sort(c(0,a123b,b123b,length(kkkb)))
diff(z)
}