View source: R/NNCTFunctions.r
| EV.rct | R Documentation | 
Returns a matrix of same dimension as the RCT, rfct, 
whose entries are the expected cell counts of
the RCT under RL or CSR.
See also (\insertCiteceyhan:NNreflexivity2017;textualnnspat).
EV.rct(rfct, nvec)
rfct | 
 An RCT  | 
nvec | 
 The   | 
A matrix of the expected values of cell counts in the RCT.
Elvan Ceyhan
rct, EV.nnct and EV.tct
n<-20  #or try sample(1:20,1)
Y<-matrix(runif(3*n),ncol=3)
cls<-sample(1:2,n,replace = TRUE)  #or try cls<-rep(1:2,c(10,10))
ipd<-ipd.mat(Y)
nvec<-as.numeric(table(cls))
rfct<-rct(ipd,cls)
EV.rct(rfct,nvec)
#cls as a factor
na<-floor(n/2); nb<-n-na
fcls<-rep(c("a","b"),c(na,nb))
nvec<-as.numeric(table(fcls))
rfct<-rct(ipd,fcls)
EV.rct(rfct,nvec)
#############
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)
rfct<-rct(ipd,cls)
EV.rct(rfct,nvec)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.