R/getSU.R

Defines functions getSU

##get sampling unit after find bars
getSU <- function(bars){
  if(length(bars)==1){
    return(bars)
  }
  else{
    getSU(bars[[2]])
  }
}
jaromilfrossard/lme4permuco documentation built on May 26, 2019, 4:42 p.m.