色々な計算：最大の連，符号の反転など 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=" ") leng…