Adding decimal places to median

R/stats.R

@@ -21,13 +21,21 @@ get.mean<-function(v,nD=0){
 #' Construct a string to report median and range
 #'
 #' @param v a vector of values
+#' @param nD number of decimals to print
 #'
 #' @return a combined string
 #'
 #' @export
 
-get.median<-function(v){
+get.median<-function(v,nD=0){
    base::sprintf('%.0f (%.0f-%.0f)',stats::median(v,na.rm=TRUE),base::min(v,na.rm=TRUE),base::max(v,na.rm=TRUE))
+   if (nD==1){
+      base::sprintf('%.1f (%.1f-%.1f)',stats::median(v,na.rm=TRUE),base::min(v,na.rm=TRUE),base::max(v,na.rm=TRUE))
+   }
+   if (nD==2){
+      base::sprintf('%.2f (%.2f-%.2f)',stats::median(v,na.rm=TRUE),base::min(v,na.rm=TRUE),base::max(v,na.rm=TRUE))
+   }
+ 
 }
 
 #' Construct a string to report median and quartiles

man/get.median.Rd

@@ -4,10 +4,12 @@
 \alias{get.median}
 \title{Construct a string to report median and range}
 \usage{
-get.median(v)
+get.median(v, nD = 0)
 }
 \arguments{
 \item{v}{a vector of values}
+
+\item{nD}{number of decimals to print}
 }
 \value{
 a combined string