Skip to content

Commit

Permalink
Remove dimnames when printing parameters
Browse files Browse the repository at this point in the history
  • Loading branch information
@thomvolker
thomvolker committed Apr 9, 2024
1 parent 754baeb commit c6c8261
Showing 1 changed file with 16 additions and 16 deletions.
32 changes: 16 additions & 16 deletions R/print.R
View file
Original file line number Diff line number Diff line change
Expand Up @@ -24,7 +24,7 @@ print.ulsif <- function(x, digits = max(3L, getOption("digits") - 3L), ...) {
cat("\nOptimal sigma: ", paste(format(x$sigma_opt, digits, ...)), "\n",
"Optimal lambda: ", paste(format(x$lambda_opt, digits, ...)), "\n", sep = "")
cat("Optimal kernel weights (loocv):")
cat(str(x$alpha_opt), "\n")
cat(str(unname(x$alpha_opt)), "\n")
invisible(x)
}

Expand All @@ -51,7 +51,7 @@ print.summary.ulsif <- function(x, digits = max(3L, getOption("digits") - 3L), .
cat("\nOptimal sigma: ", paste(format(x$sigma_opt, digits, ...)), "\n",
"Optimal lambda: ", paste(format(x$lambda_opt, digits, ...)), "\n", sep = "")
cat("Optimal kernel weights (loocv):")
cat(str(x$alpha_opt), "\n")
cat(str(unname(x$alpha_opt)), "\n")
cat("Pearson divergence between P(nu) and P(de): ", paste(format(x$PE, digits = digits, ...)), "\n", sep = "")
if (!is.null(x$p_value)) {
cat("Pr(P(nu)=P(de))",
Expand Down Expand Up @@ -89,7 +89,7 @@ print.kliep <- function(x, digits = max(3L, getOption("digits") - 3L), ...) {
if (!is.null(x$cv_score)) {
cat("\nOptimal sigma (", paste(x$nfold), "-fold cv): ", paste(format(x$sigma_opt, digits = digits, ...), collapse = " "), "\n", sep = "")
cat("Optimal kernel weights (", paste(x$nfold), "-fold cv): ", sep = "")
cat(str(x$alpha_opt))
cat(str(unname(x$alpha_opt)))
} else {
cat("\nOptimal sigma: NULL (no cross-validation)\n", sep = "")
cat("Optimal kernel weights: NULL (no cross-validation)\n", sep = "")
Expand Down Expand Up @@ -124,7 +124,7 @@ print.summary.kliep <- function(x, digits = max(3L, getOption("digits") - 3L), .
cat("Optimal sigma: ", paste(format(x$sigma_opt, digits, ...)), "\n",
"Optimal lambda: ", paste(format(x$lambda_opt, digits, ...)), "\n", sep = "")
cat("Optimal kernel weights (loocv):")
cat(str(x$alpha_opt), "\n")
cat(str(unname(x$alpha_opt)), "\n")
cat("Kullback-Leibler divergence between P(nu) and P(de): ", paste(format(x$UKL, digits = digits, ...)), "\n", sep = "")
if (!is.null(x$p_value)) {
cat("Pr(P(nu)=P(de))",
Expand Down Expand Up @@ -165,7 +165,7 @@ print.lhss <- function(x, digits = max(3L, getOption("digits") - 3L), ...) {
cat("Optimal sigma: ", paste(format(x$sigma_opt, digits, ...)), "\n",
"Optimal lambda: ", paste(format(x$lambda_opt, digits, ...)), "\n", sep = "")
cat("Optimal kernel weights (loocv):")
cat(str(x$alpha_opt), "\n")
cat(str(unname(x$alpha_opt)), "\n")
invisible(x)
}

Expand All @@ -192,7 +192,7 @@ print.summary.lhss <- function(x, digits = max(3L, getOption("digits") - 3L), ..
cat("Optimal sigma: ", paste(format(x$sigma_opt, digits, ...)), "\n",
"Optimal lambda: ", paste(format(x$lambda_opt, digits, ...)), "\n", sep = "")
cat("Optimal kernel weights (loocv):")
cat(str(x$alpha_opt), "\n")
cat(str(unname(x$alpha_opt)), "\n")
cat("Pearson divergence between P(nu) and P(de): ", paste(format(x$PE, digits = digits, ...)), "\n", sep = "")
if (!is.null(x$p_value)) {
cat("Pr(P(nu)=P(de))",
Expand Down Expand Up @@ -234,7 +234,7 @@ print.spectral <- function(x, digits = max(3L, getOption("digits") - 3L), ...) {
cat("\nOptimal sigma: ", paste(format(x$sigma_opt, digits, ...)), "\n",
"Optimal subspace: ", paste(format(x$J_opt, digits, ...)), "\n", sep = "")
cat("Optimal kernel weights (loocv):")
cat(str(x$alpha_opt), "\n")
cat(str(unname(x$alpha_opt)), "\n")
invisible(x)
}

Expand All @@ -261,7 +261,7 @@ print.summary.spectral <- function(x, digits = max(3L, getOption("digits") - 3L)
cat("\nOptimal sigma: ", paste(format(x$sigma_opt, digits, ...)), "\n",
"Optimal subspace: ", paste(format(x$J_opt, digits, ...)), "\n", sep = "")
cat("Optimal kernel weights (loocv):")
cat(str(x$alpha_opt), "\n")
cat(str(unname(x$alpha_opt)), "\n")
cat("Pearson divergence between P(nu) and P(de): ", paste(format(x$PE, digits = digits, ...)), "\n", sep = "")
if (!is.null(x$p_value)) {
cat("Pr(P(nu)=P(de))",
Expand Down Expand Up @@ -297,9 +297,9 @@ print.naivedensityratio <- function(x, digits = max(3L, getOption("digits") - 3L
" Number of numerator samples: ", nrow(as.matrix(x$df_numerator)), "\n",
" Number of denominator samples: ", nrow(as.matrix(x$df_denominator)), "\n", sep = "")
cat(" Numerator density:")
cat(str(stats::predict(x, newdata = x$df_numerator)))
cat(str(unname(stats::predict(x, newdata = x$df_numerator))))
cat(" Denominator density:")
cat(str(stats::predict(x, newdata = x$df_denominator)), "\n")
cat(str(unname(stats::predict(x, newdata = x$df_denominator))), "\n")

invisible(x)
}
Expand Down Expand Up @@ -327,9 +327,9 @@ print.naivesubspacedensityratio <- function(x, digits = max(3L, getOption("digit
" Number of numerator samples: ", nrow(as.matrix(x$df_numerator)), "\n",
" Number of denominator samples: ", nrow(as.matrix(x$df_denominator)), "\n", sep="")
cat(" Numerator density:")
cat(str(stats::predict(x, newdata = x$df_numerator)))
cat(str(unname(stats::predict(x, newdata = x$df_numerator))))
cat(" Denominator density:")
cat(str(stats::predict(x, newdata = x$df_denominator)), "\n\n")
cat(str(unname(stats::predict(x, newdata = x$df_denominator))), "\n\n")

invisible(x)
}
Expand All @@ -355,9 +355,9 @@ print.summary.naivedensityratio <- function(x, digits = max(3L, getOption("digit
" Number of numerator samples: ", x$n[1], "\n",
" Number of denominator samples: ", x$n[2], "\n", sep="")
cat(" Density ratio for numerator samples:")
cat(str(x$dr$dr[1:x$n[1]]))
cat(str(unname(x$dr$dr[1:x$n[1]])))
cat(" Density ratio for denominator samples:")
cat(str(x$dr$dr[(x$n[1]+1):(x$n[1]+x$n[2])]), "\n\n")
cat(str(unname(x$dr$dr[(x$n[1]+1):(x$n[1]+x$n[2])])), "\n\n")

cat("Squared average log density ratio difference for numerator and denominator samples (SALDRD): ",
paste(format(x$SALDRD, digits = digits, ...)), "\n", sep = "")
Expand Down Expand Up @@ -396,9 +396,9 @@ print.summary.naivesubspacedensityratio <- function(x, digits = max(3L, getOptio
" Number of numerator samples: ", x$n[1], "\n",
" Number of denominiator samples: ", x$n[2], "\n", sep="")
cat(" Density ratio for numerator samples:")
cat(str(x$dr$dr[1:x$n[1]]))
cat(str(unname(x$dr$dr[1:x$n[1]])))
cat(" Density ratio for denominator samples:")
cat(str(x$dr$dr[(x$n[1]+1):(x$n[1]+x$n[2])]), "\n\n")
cat(str(unname(x$dr$dr[(x$n[1]+1):(x$n[1]+x$n[2])])), "\n\n")

cat("Squared average log density ratio difference for numerator and denominator samples (SALDRD): ",
paste(format(x$SALDRD, digits = digits, ...)), "\n", sep = "")
Expand Down

0 comments on commit c6c8261

Please sign in to comment.