diff --git a/R/report.numeric.R b/R/report.numeric.R index 72588251..631698bf 100644 --- a/R/report.numeric.R +++ b/R/report.numeric.R @@ -206,15 +206,15 @@ report_parameters.numeric <- function(x, } text_full <- c( - "n_Obs" = text_n, - "Mean" = text_mean, - "Dispersion_Mean" = paste0("SD = ", text_sd), - "Median" = text_median, - "Dispersion_Median" = paste0("MAD = ", text_mad), - "Range" = paste0("range: ", text_range), - "Skewness" = text_skewness, - "Kurtosis" = text_kurtosis, - "Missing" = text_missing + n_Obs = text_n, + Mean = text_mean, + Dispersion_Mean = paste0("SD = ", text_sd), + Median = text_median, + Dispersion_Median = paste0("MAD = ", text_mad), + Range = paste0("range: ", text_range), + Skewness = text_skewness, + Kurtosis = text_kurtosis, + Missing = text_missing ) # Shorten --- diff --git a/R/report.sessionInfo.R b/R/report.sessionInfo.R index c13d4fe4..8dae6db5 100644 --- a/R/report.sessionInfo.R +++ b/R/report.sessionInfo.R @@ -129,9 +129,9 @@ report_table.sessionInfo <- function(x, include_R = TRUE, ...) { } data <- data.frame( - "Package" = names, - "Version" = versions, - "Reference" = citations, + Package = names, + Version = versions, + Reference = citations, stringsAsFactors = FALSE ) diff --git a/R/report_info.R b/R/report_info.R index 1e20ba07..395674d8 100644 --- a/R/report_info.R +++ b/R/report_info.R @@ -94,15 +94,15 @@ print.report_info <- function(x, ...) { ci_method <- tolower(ci_method) string_method <- switch(ci_method, - "bci" = , - "bcai" = "bias-corrected accelerated bootstrap", - "si" = , - "ci" = , - "quantile" = , - "eti" = , - "hdi" = ifelse(isTRUE(bootstrap), "na\u0131ve bootstrap", "MCMC"), - "normal" = "Wald normal", - "boot" = "parametric bootstrap", + bci = , + bcai = "bias-corrected accelerated bootstrap", + si = , + ci = , + quantile = , + eti = , + hdi = ifelse(isTRUE(bootstrap), "na\u0131ve bootstrap", "MCMC"), + normal = "Wald normal", + boot = "parametric bootstrap", "Wald" ) diff --git a/R/utils_combine_tables.R b/R/utils_combine_tables.R index 72427f0b..7c342db7 100644 --- a/R/utils_combine_tables.R +++ b/R/utils_combine_tables.R @@ -38,8 +38,8 @@ # add performance perf_vertical <- data.frame( - "Parameter" = perf_names, - "Fit" = as.numeric(performance[1, ]), + Parameter = perf_names, + Fit = as.numeric(performance[1, ]), stringsAsFactors = FALSE )