R/check_width.r

check.width <- function(number,width){
    nwwd = width
    while(nchar(as.character(number))>width){
        nwwd = nwwd - 1
        number = signif(number,digits = nwwd)
    }
    return(nwwd)
}
palderman/dssatR documentation built on May 24, 2019, 5:59 p.m.