[Returnanalytics-commits] r2319 - pkg/PerformanceAnalytics/R

[noreply at r-forge.r-project.org]

Author: peter_carl
Date: 2013-01-29 00:17:29 +0100 (Tue, 29 Jan 2013)
New Revision: 2319

Modified:
   pkg/PerformanceAnalytics/R/chart.RollingPerformance.R
Log:
- removed na.pad for fill parameter


Modified: pkg/PerformanceAnalytics/R/chart.RollingPerformance.R
===================================================================
--- pkg/PerformanceAnalytics/R/chart.RollingPerformance.R	2013-01-28 22:56:57 UTC (rev 2318)
+++ pkg/PerformanceAnalytics/R/chart.RollingPerformance.R	2013-01-28 23:17:29 UTC (rev 2319)
@@ -12,12 +12,12 @@
 #' @param fill a three-component vector or list (recycled otherwise) providing 
 #' filling values at the left/within/to the right of the data range. See the 
 #' fill argument of \code{\link{na.fill}} for details.
-#' @param na.pad deprecated; use \code{fill = NA} instead of \code{na.pad = TRUE}, 
-#' or \code{fill = NULL} instead of \code{na.pad = FALSE}
 #' @param main set the chart title, same as in \code{\link{plot}}
 #' @param ylim set the y-axis limit, same as in \code{\link{plot}}
 #' @param \dots any other passthru parameters to \code{\link{plot}} or the
 #' function specified
+#' @details The parameter \code{na.pad} has been deprecated; use \code{fill = NA} instead of \code{na.pad = TRUE}, 
+#' or \code{fill = NULL} instead of \code{na.pad = FALSE}.
 #' @author Peter Carl
 #' @seealso \code{\link{charts.RollingPerformance}},
 #' \code{\link[zoo]{rollapply}}
@@ -36,7 +36,7 @@
 #' 		main = "Rolling 24-Month Sharpe Ratio")
 #' 
 #' @export 
-chart.RollingPerformance <- function (R, width = 12, FUN = "Return.annualized", ..., na.pad = TRUE, ylim=NULL, main=NULL, fill = if(na.pad) NA else NULL)
+chart.RollingPerformance <- function (R, width = 12, FUN = "Return.annualized", ...,  ylim = NULL, main = NULL, fill = NA)
 { # @author Peter Carl
 
     # DESCRIPTION:
@@ -60,9 +60,6 @@
     columnnames = colnames(x)
 
     # Separate function args from plot args
-    if (!missing(na.pad)) {
-      warning("na.pad argument is deprecated")
-    }
     dotargs <-list(...)
     funargsmatch = pmatch(names(dotargs), names(formals(FUN)), nomatch = 0L)
 	funargs = dotargs[funargsmatch>0L]