R/conCON.R

In musto101/wilcox_R: What the package does (short line)

conCON <-
function(J,conG=1){
#
#  Create contrast coefficients for comparisons to a controll
#
#  J = number of groups including the control group.
#  conG = the group that is the control. By default, assume group 1 is the control
#
Jm1=J-1
A=matrix(rep(1,Jm1^2+Jm1),nrow=J)
A[-conG,]=-1*diag(Jm1)
list(conCON=A)
}