R/mextriang.R

mextriang = function(U,b,options=0){
  n <- length(b)
  Z <- .C("mextriang_c",as.double(U),as.double(b),
          y=double(n),as.integer(n),as.integer(options))
  return(Z$y)
}

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.