R/is.lp.R

Defines functions is.lp

is.lp = function(lp, n){
  if(is.vector(lp)){
    if(length(lp) == n){
      return(TRUE)
    }else{
      return(FALSE)
    }
  }else{
    if(dim(lp)[1] == n){
      return(TRUE)
    }else{
      return(FALSE)
    }
  }
}
Yunshu7/dsmatch documentation built on Sept. 18, 2020, 6:20 p.m.