R/utils_get_ncon.R

Defines functions get_ncon

#' @export
get_ncon<-function(x)
{
  d_x = get_size(x)
  if(length(d_x)==3){
    n_con = d_x[2]
  }
  else{
    n_con = d_x[1]
  }
  return(n_con)
}
adsb85/lqp documentation built on April 9, 2022, 12:35 a.m.