Adding a 1 decimal place version in get.median

R/stats.R

@@ -8,10 +8,12 @@
 #' @export
 
 get.mean<-function(v,nD=0){
+   x=base::sprintf('%.0f (%.0f)',base::mean(v,na.rm=TRUE),stats::sd(v,na.rm=TRUE))
+   if (nD==1){
+      x=base::sprintf('%.1f (%.1f)',base::mean(v,na.rm=TRUE),stats::sd(v,na.rm=TRUE))
+   }
    if (nD==2){
       x=base::sprintf('%.2f (%.2f)',base::mean(v,na.rm=TRUE),stats::sd(v,na.rm=TRUE))
-   } else {
-      x=base::sprintf('%.0f (%.0f)',base::mean(v,na.rm=TRUE),stats::sd(v,na.rm=TRUE))
    }
    x
 }