View source: R/NNCTFunctions.r
| tct | R Documentation | 
Returns the T contingency table (TCT), which is a matrix of same dimension as, ct, 
whose entries are the values of the Types I-IV cell-specific test statistics, T^I_{ij}-T^{IV}_{ij}. 
The row and column names are inherited from ct. The type argument specifies the type
of the cell-specific test among the types I-IV tests. 
See also (\insertCiteceyhan:jkss-posthoc-2017;textualnnspat) and the references therein.
tct(ct, type = "III")
| ct | A nearest neighbor contingency table | 
| type | The type of the cell-specific test, default= | 
A matrix of the values of Type I-IV cell-specific tests
Elvan Ceyhan
cellsTij and nnct
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)
ct
type.lab<-c("I","II","III","IV")
for (i in 1:4)
{ print(paste("T_ij values for cell specific tests for type",type.lab[i]))
  print(tct(ct,i))
}
tct(ct,"II")
#cls as a factor
na<-floor(n/2); nb<-n-na
fcls<-rep(c("a","b"),c(na,nb))
ct<-nnct(ipd,fcls)
tct(ct,2)
#############
n<-40
Y<-matrix(runif(3*n),ncol=3)
ipd<-ipd.mat(Y)
cls<-sample(1:4,n,replace = TRUE)  #or try cls<-rep(1:2,c(10,10))
ct<-nnct(ipd,cls)
tct(ct,2)
ct<-matrix(c(0,10,5,5),ncol=2)
tct(ct,2)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.