R/size.R

Defines functions size

size <-
function(A,margin){
  if(is.null(dim(A)) ){
    n = length(A)
  }else{
    n = dim(A)[margin]
  }
  return(n)
}
JuliaWinchester/auto3dgm-fork documentation built on May 7, 2019, 12:05 p.m.