leaffur · leaffur · Jun 26, 2025 · Jun 26, 2025 · Jun 26, 2025
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Type: Package
 Package: CASE
 Title: Cell-type-specific And Shared EQTL fine-mapping
-Version: 0.2.3
+Version: 0.3.0
 Authors@R: c(
     person("Chen", "Lin", , "[email protected]", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0001-9821-2578")),

diff --git a/R/CASE.R b/R/CASE.R
@@ -88,7 +88,7 @@ CASE <- function(Z = NULL, R, hatB = NULL, hatS = NULL, N, V = NULL, cs = TRUE,
     t2 = Sys.time()
     res$time = difftime(t2, t1, units = "secs")
     if (cs){
-        res$sets <- get_credible_sets(res$pip, R = R, verbose = verbose)
+      res$sets <- get_credible_sets(res$pip, R = R, verbose = verbose)
     }
 
     return(res)

diff --git a/man/CASE.Rd b/man/CASE.Rd
diff --git a/man/CASE_test.Rd b/man/CASE_test.Rd
diff --git a/man/CASE_train.Rd b/man/CASE_train.Rd
diff --git a/man/get_credible_sets.Rd b/man/get_credible_sets.Rd
diff --git a/vignettes/Introduction_to_CASE.Rmd b/vignettes/Introduction_to_CASE.Rmd
@@ -27,6 +27,8 @@ set.seed(1000)
 
 ## The example data
 
+The example genotype was generated by R package `CorBin`.
+
 ```{r}
 data("example_data")
 attach(example_data)