rename IC.quantile -> IC_quantile

kkholst · Dec 21, 2023 · de34820 · de34820
1 parent 01b14f2
commit de34820
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/estimate.default.R b/R/estimate.default.R
@@ -14,7 +14,7 @@ estimate.data.frame <- function(x, ...) {
 }
 
 
-IC.quantile <- function(x, estimate, probs=0.5, ...) {
+IC_quantile <- function(x, estimate, probs=0.5, ...) {
  x <- na.omit(x)
  f0 <- density(x, ...)
  ## U <- function(est) (tau - (x <= est))
@@ -69,7 +69,7 @@ estimate.array <- function(x, type="mean", probs=0.5, ...) {
  simplify=FALSE))
  ic <- c()
  for (i in seq_len(NCOL(x))) {
- ic <- cbind(ic, do.call(IC.quantile,
+ ic <- cbind(ic, do.call(IC_quantile,
  c(list(x[,i], probs=probs), density.args)))
  }
  }