ほどほどの遠近関係の友達がいて、友達の多様度が高いとパワーが大きい Ks<-3 CheckDists<-seq(from=3,to=3,length.out=1) nperm<-100 ks<-c(2,5,10,50) #t1s<-acos(seq(from=0,to=1,length.out=20)) t1s<-seq(from=0,to=1,length.out=20)*pi/2 t2s<-seq(fro…