Weighted average of the group-level SKS statistics. This is useful for a blocked experiment.
WSKS.t(Y, Z, W)
The value of the test.
Observed outcome vector
Treatment assigment vector
A a factor or categorical covariate.
df <- make.randomized.dat( 1000, gamma.vec=c(1,1,1,2), beta.vec=c(-1,-1,1,0) )
df$W <- sample(c("A", "B", "C"), nrow(df), replace = TRUE)
WSKS.t(df$Yobs, df$Z, df$W)
Run the code above in your browser using DataLab