inst/extras/pint.Rcheck/00_pkg_src/pint/R/calculate.chr.R

In antagomir/pint: Pairwise INTegration of functional genomics data

calculate.chr <- function(X, Y, windowSize, chromosome, method = "pSimCCA", params = list(), match.probes, priors, regularized){

  # Check if arm information is missing
  if (is.null(X$info$arm)){

    return(calculate.arm(X, Y, windowSize, chromosome, method=method, params=params, match.probes=match.probes, priors=priors, regularized=regularized))
    
  } else {
    pArm <- calculate.arm(X, Y, windowSize, chromosome, 'p', method, params, match.probes, priors, regularized)
    qArm <- calculate.arm(X, Y, windowSize, chromosome, 'q', method, params, match.probes, priors, regularized)
    
 
    return(new("ChromosomeModels",
               models = append(pArm@models, qArm@models),
               chromosome = chromosome,
               method = method,
               params = params))
  }
}