R/utility.r

Defines functions Gmat

## facility functions ####
Gmat <- function(nvec){
  D <- length(nvec)
  arealab <- rep(1:D, times = nvec)
  unname(model.matrix(~as.factor(arealab)-1))
}
XiaodanLyu/saezero documentation built on Sept. 20, 2020, 5:59 a.m.