R/Eflags.R

In mixexp: Design and Analysis of Mixture Experiments

Eflags <- function(ndm,nvrr,ncon2,rtheta2){
  # res holds the results for the fortran call 
  res <- .Fortran("cnvrt", as.integer(ndm),as.integer(nvrr),as.integer(ncon2),as.single(rtheta2),
                  nvrtr=integer(1),rxvt=single(45000),ifa=integer(4))
   # returns vector of error flags
     return(res$ifa)
  }