R/Vertcen.R

In mixexp: Design and Analysis of Mixture Experiments

Vertcen <- 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 the output matrix of vertices and centroids
     return(res$rxvt)
  }