Add `ci_method` attribute to outputs

[IndrajeetPatil]

library(correlation)

x <- correlation(mtcars, select = c("wt", "mpg"))
names(attributes(x))
#>  [1] "names"                "row.names"            "coefficient_name"    
#>  [4] "ci"                   "data"                 "class"               
#>  [7] "modelframe"           "n"                    "method"              
#> [10] "bayesian"             "p_adjust"             "partial"             
#> [13] "multilevel"           "partial_bayesian"     "bayesian_prior"      
#> [16] "include_factors"      "additional_arguments"

y <- correlation(mtcars, select = c("wt", "mpg"), bayesian_ci_method = "eti")
names(attributes(y))
#>  [1] "names"                "row.names"            "coefficient_name"    
#>  [4] "ci"                   "data"                 "class"               
#>  [7] "modelframe"           "n"                    "method"              
#> [10] "bayesian"             "p_adjust"             "partial"             
#> [13] "multilevel"           "partial_bayesian"     "bayesian_prior"      
#> [16] "include_factors"      "additional_arguments"

^{Created on 2022-06-19 by the reprex package (v2.0.1)}