diff --git a/R/binless.R b/R/binless.R index a1c237c..9654b0e 100644 --- a/R/binless.R +++ b/R/binless.R @@ -276,7 +276,7 @@ binlessfit <- function(o, conf.level = .95, llam.quant = NULL, span = NULL, ...) } .binlessvpcstats <- function(o, qpred=c(0.05, 0.5, 0.95), conf.level=0.95, quantile.type=7, vpc.type, ...){ - y <- x <- blq <- fit <- . <- repl <- cprop <- rqssmed <- llam.med <- c.rqssmed <- NULL + y <- x <- blq <- fit <- . <- repl <- cprop <- rqssmed <- llam.med <- c.rqssmed <- lloq <- uloq <- alq <- NULL obs.fits <- o$rqss.obs.fits sim.fits <- o$rqss.sim.fits diff --git a/R/plot.R b/R/plot.R index e4e56c7..7ddf450 100644 --- a/R/plot.R +++ b/R/plot.R @@ -194,6 +194,7 @@ plot.tidyvpcobj <- function(x, #' single-value groups #' @noRd expand_vpc_stats_single_value <- function(vpc, xvar, width = 0.0001) { + n_xvar <- NULL d_vpc_stats <- vpc$stats if (!is.null(vpc$strat)) { d_vpc_stats[, n_xvar := length(unique(get(xvar))), by = names(vpc$strat)] @@ -508,7 +509,7 @@ plot_censored <- show.binning) { stopifnot(inherits(vpc, "tidyvpcobj")) - hi <- lo <- md <- xbin <- y <- NULL + hi <- lo <- md <- xbin <- y <- x <- xleft <- xright <- blq <- alq <- NULL . <- list method <- vpc$vpc.method$method diff --git a/R/vpcstats.R b/R/vpcstats.R index c461410..708d789 100644 --- a/R/vpcstats.R +++ b/R/vpcstats.R @@ -372,7 +372,7 @@ binning <- function(o, ...) UseMethod("binning") #' @rdname binning #' @export binning.tidyvpcobj <- function(o, bin, data=o$data, xbin="xmedian", centers, breaks, nbins, altx, stratum=NULL, by.strata=TRUE, ...) { - keep <- i <- NULL + keep <- i <- ypc <- y <- NULL . <- list # If xbin is numeric, then that is the bin