R/mexexpand.R

mexexpand = function(blksize,x){
  numblk <- length(blksize)
  Z <- .C("mexexpand_c",as.integer(blksize),as.integer(numblk),
          as.double(x),z=double(sum(blksize)))
  return(Z$z)
}

Try the DWD package in your browser

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

DWD documentation built on May 2, 2019, 5 p.m.