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

Usage Arguments Examples

1	con1way(J)

J

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (J) 
{
    Ja = (J^2 - J)/2
    con <- matrix(0, J, Ja)
    id <- 0
    for (j in 1:J) {
        for (k in 1:J) {
            if (j < k) {
                id <- id + 1
                con[j, id] <- 1
                con[k, id] <- 0 - 1
            }
        }
    }
    con
  }