Correction in median

R/stats.R

@@ -28,14 +28,14 @@ get.mean<-function(v,nD=0){
 #' @export
 
 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))
+   x=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))
+      x=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))
+      x=base::sprintf('%.2f (%.2f-%.2f)',stats::median(v,na.rm=TRUE),base::min(v,na.rm=TRUE),base::max(v,na.rm=TRUE))
    }
- 
+   x
 }
 
 #' Construct a string to report median and quartiles