diff --git a/R/splinewithsimultaneousconfint.R b/R/splinewithsimultaneousconfint.R index c51e60e..f4c5d15 100644 --- a/R/splinewithsimultaneousconfint.R +++ b/R/splinewithsimultaneousconfint.R @@ -48,6 +48,7 @@ SplineWithSimultaneousConfIntervals <- function(outcome, y.tick.format = NULL, x.grid.width = 1, y.hovertext.format = ".1f", + y.zero = FALSE, title = NULL, x.title = NULL, y.title = NULL, @@ -168,12 +169,13 @@ SplineWithSimultaneousConfIntervals <- function(outcome, # Create plot plot.data <- pred$fit - names(plot.data) <- pred$predictor + names(plot.data) <- if (inherits(pred$predictor, "POSIXct")) strftime(pred$predictor) + else pred$predictor pp <- Line(plot.data, colors = mean.color, line.thickness = mean.weight, title = title, x.title = x.title, y.title = y.title, y.tick.format = y.tick.format, y.hovertext.format = y.hovertext.format, global.font.family = global.font.family, global.font.color = global.font.color, - title.font.size = title.font.size, x.grid.width = x.grid.width, + title.font.size = title.font.size, x.grid.width = x.grid.width, y.zero = y.zero, y.title.font.size = y.title.font.size, x.title.font.size = x.title.font.size, y.tick.font.size = y.tick.font.size, x.tick.font.size = x.tick.font.size, hovertext.font.size = hovertext.font.size, legend.show = FALSE, ...) diff --git a/man/SplineWithSimultaneousConfIntervals.Rd b/man/SplineWithSimultaneousConfIntervals.Rd index 26fad3d..2dea70b 100644 --- a/man/SplineWithSimultaneousConfIntervals.Rd +++ b/man/SplineWithSimultaneousConfIntervals.Rd @@ -21,6 +21,7 @@ SplineWithSimultaneousConfIntervals( y.tick.format = NULL, x.grid.width = 1, y.hovertext.format = ".1f", + y.zero = FALSE, title = NULL, x.title = NULL, y.title = NULL, @@ -74,6 +75,8 @@ See https://github.com/d3/d3/blob/master/API.md#number-formats-d3-format} \item{y.hovertext.format}{A string representing a d3 formatting code See https://github.com/d3/d3/blob/master/API.md#number-formats-d3-format} +\item{y.zero}{Whether the y-axis should include zero.} + \item{title}{Character; chart title.} \item{x.title}{Character, x-axis title; defaults to chart input values;