R/x.loc.R

x.loc <-
function (perc.loc) 
{
    usr.out <- par("usr")
    return(usr.out[1] + perc.loc * (usr.out[2] - usr.out[1]))
}
Auburngrads/SMRD documentation built on Sept. 14, 2020, 2:21 a.m.