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<-scct(ipd,cls)
ct
W<-Wmat(ipd)
Qv<-Qvec(W)$q
Rv<-Rval(W)
vsq<-varNii.ct(ct,Qv,Rv)
cv<-covNii.ct(ct,vsq,Qv,Rv)
Znnself.sum(Y,cls)
Znnself.sum.ct(ct,cv)
Znnself.sum.ct(ct,cv,alt="g")
Znnself.sum(Y,cls,method="max")
ct<-nnct(ipd,cls)
Znnself.sum.ct(ct,cv,nnct = TRUE)
#############
n<-40
Y<-matrix(runif(3*n),ncol=3)
cls<-sample(1:4,n,replace = TRUE) #or try cls<-rep(1:2,c(10,10))
ipd<-ipd.mat(Y)
ct<-scct(ipd,cls)
W<-Wmat(ipd)
Qv<-Qvec(W)$q
Rv<-Rval(W)
vsq<-varNii.ct(ct,Qv,Rv)
cv<-covNii.ct(ct,vsq,Qv,Rv)
Znnself.sum(Y,cls)
Znnself.sum.ct(ct,cv)
Znnself.sum.ct(ct,cv,alt="g")
ct<-nnct(ipd,cls)
Znnself.sum.ct(ct,cv,nnct = TRUE)
Znnself.sum(Y,cls,alt="g")
Run the code above in your browser using DataLab