R/getbdry.R

In veseshan/DNAcopy: DNA Copy Number Data Analysis

getbdry <- function(eta, nperm, max.ones, tol= 1e-2) {
  bdry <- rep(0, max.ones*(max.ones+1)/2)
  zz <- .Fortran("getbdry",
                 as.double(eta),
                 as.integer(max.ones),
                 as.integer(nperm),
                 as.integer(max.ones*(max.ones+1)/2),
                 bdry=as.integer(bdry),
                 etastr=double(max.ones),
                 as.double(tol),
                 PACKAGE="DNAcopy")
#  list("eta.star"=zz$etastr, "boundary"=zz$bdry)
  zz$bdry
}