R/getVecGroup.R

getVecGroup <-
function (x)
  {
    out <- numeric(x)
    for (l in 0:(x-1)){out[l + 1] <- 2^l} 
    out
  }
holgerschw/logicFS documentation built on April 15, 2020, 10:42 p.m.