R/Td.R
In crossdes: Construction of Crossover Designs

Td <- function(d) {
  
  trt <- max(d)
  des <- as.vector(t(d))
  dtrt <- diag(trt)
  dtrt[des, ]
}

Any scripts or data that you put into this service are public.

crossdes documentation built on April 5, 2022, 1:14 a.m.

Note that we can't provide technical support on individual packages. You should contact the package authors for that.

Try the crossdes package in your browser