From 605f5c1600f0bd7a40b995efb95be518aec85608 Mon Sep 17 00:00:00 2001 From: Bill Denney Date: Tue, 16 Apr 2024 10:14:04 -0400 Subject: [PATCH] More minor code formatting --- R/vpcstats_fun.R | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/R/vpcstats_fun.R b/R/vpcstats_fun.R index d0d9c00..57b51f2 100644 --- a/R/vpcstats_fun.R +++ b/R/vpcstats_fun.R @@ -61,8 +61,8 @@ vpcstats.tidyvpcobj <- function(o, vpc.type =c("continuous", "categorical"), qpr ylvls <- sort(unique(obs$y)) - # categorical binless vpcstats() ---- if(method$method == "binless"){ + # categorical binless vpcstats() ---- xobs <- obs$x xsim <- sim$x sp <- method$sp @@ -204,14 +204,14 @@ vpcstats.tidyvpcobj <- function(o, vpc.type =c("continuous", "categorical"), qpr if (isTRUE(predcor)) { if (isTRUE(varcorr)) { - qobs <- obs[, quant_loq(ypcvc, probs=qpred, blq=blq, alq=alq, type = quantile.type), by=stratbin] + qobs <- obs[, quant_loq(ypcvc, probs=qpred, blq=blq, alq=alq, type = quantile.type), by=stratbin] qsim <- sim[, quant_loq(ypcvc, probs=qpred, blq=FALSE, alq=FALSE, type = quantile.type), by=.stratbinrepl] } else { - qobs <- obs[, quant_loq(ypc, probs=qpred, blq=blq, alq=alq, type = quantile.type), by=stratbin] + qobs <- obs[, quant_loq(ypc, probs=qpred, blq=blq, alq=alq, type = quantile.type), by=stratbin] qsim <- sim[, quant_loq(ypc, probs=qpred, blq=FALSE, alq=FALSE, type = quantile.type), by=.stratbinrepl] } } else { - qobs <- obs[, quant_loq(y, probs=qpred, blq=blq, alq=alq , type = quantile.type), by=stratbin] + qobs <- obs[, quant_loq(y, probs=qpred, blq=blq, alq=alq, type = quantile.type), by=stratbin] qsim <- sim[, quant_loq(y, probs=qpred, blq=FALSE, alq=FALSE, type = quantile.type), by=.stratbinrepl] }