inst/test_data/glmmTMB-test-funs.R

## remove leading/trailing white space, empty lines, multiple spaces
squash_white <- function(x) {
    x <- gsub(" +"," ",trimws(x))
    return(x[nchar(x)>0])
}

Try the glmmTMB package in your browser

Any scripts or data that you put into this service are public.

glmmTMB documentation built on Oct. 7, 2023, 5:07 p.m.