R/roundpretty.R In StatDA: Statistical Analysis for Environmental Data

Documented in roundprettyroundpretty.sub

```roundpretty <- function(kvec,maxdig)
{
if (length(kvec)>1){
result=rep(NA,length(kvec))
for (i in 1:length(kvec)){
result[i]=roundpretty.sub(kvec[i],maxdig)
}
}
else result=roundpretty.sub(kvec,maxdig)
return(result)
}

roundpretty.sub <- function(k,maxdig)
{
# round in a pretty way for output
# k ... number to be rounded pretty
# maxdig ... maximum number of digits after the coma
#

if (is.na(k)) {kr=k}
else {
if (k<0.00001) {kr=format(round(k,min(maxdig,8)),nsmall=min(maxdig,8),scientific=FALSE)}
else if (k<0.0001) {kr=format(round(k,min(maxdig,7)),nsmall=min(maxdig,7),scientific=FALSE)}
else if (k<0.001) {kr=format(round(k,min(maxdig,6)),nsmall=min(maxdig,6),scientific=FALSE)}
else if (k<0.01) {kr=format(round(k,min(maxdig,5)),nsmall=min(maxdig,5),scientific=FALSE)}
else if (k<0.1) {kr=format(round(k,min(maxdig,4)),nsmall=min(maxdig,4),scientific=FALSE)}
else if (k<1) {kr=format(round(k,min(maxdig,3)),nsmall=min(maxdig,3),scientific=FALSE)}
else if (k<10) {kr=format(round(k,min(maxdig,2)),nsmall=min(maxdig,2),scientific=FALSE)}
else if (k<100) {kr=format(round(k,min(maxdig,1)),nsmall=min(maxdig,1),scientific=FALSE)}
else {kr=format(round(k,min(maxdig,0)),nsmall=min(maxdig,0),scientific=FALSE)}
}
return(kr)
}
```

Try the StatDA package in your browser

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

StatDA documentation built on March 13, 2020, 2:42 a.m.