Merge pull request #17 from leaffur/working

Add verbose

Author: leaffur

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", , "c.lin@yale.edu", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0001-9821-2578")),

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)

man/CASE.Rd

@@ -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)