n<-20 #or try sample(1:20,1)
Y<-matrix(runif(3*n),ncol=3)
ipd<-ipd.mat(Y)
cls<-sample(1:2,n,replace = TRUE) #or try cls<-rep(1:2,c(10,10))
ct<-nnct(ipd,cls)
#correction type 1
ct1<-nnct.cr1(ct)
#correction type 2
ct2<-nnct.cr2(ct)
ct
ct1
ct2
Run the code above in your browser using DataLab