色々な計算： 最大の連，符号の反転など

色々な計算：最大の連，符号の反転など

prob<-0
kkkk<-0
prob<-0
length1<-0
pvalue<-0
pp<-0
pp2<-0
pp3<-0
#7
for(i in 1:(2^7)){
	digit<-7
	prob123<-vector_prob((kkkb),decbin(i,digit=digit))
	kkkk[i]<-paste(decbin(i,digit=digit),collapse=" ")
	length1[i]<-prob123[2]
	prob[i]<-prob123[1]
	pvalue[i]<-prob123[3]
	pp[i]<-sum(decbin(i,digit=digit))
	pp2[i]<-length(macthing_vector(decbin(i,digit=digit),c(1,-1)))+length(macthing_vector(decbin(i,digit=digit),c(-1,1)))
	#pp3[i]<-length(macthing_vector(decbin(i,digit=digit),c(1,1)))+length(macthing_vector(decbin(i,digit=digit),c(-1,-1)))
	v<-decbin(i,digit=digit)
	q1<-macthing_vector(c(v,-v[length(v)]),c(1,-1))
	q2<-macthing_vector(c(v,-v[length(v)]),c(-1,1))
	pp3[i]<-max(diff(c(0,sort(c(q1,q2)))))
	#pp3[which(pp3==0)]<-digit
	if(length(c(q1,q2))==0){
		pp3[i]<-digit
	}
}