diff --git a/R/RISK_CCFA.R b/R/RISK_CCFA.R
index 9d3dab3..dd82af2 100644
--- a/R/RISK_CCFA.R
+++ b/R/RISK_CCFA.R
@@ -8,6 +8,6 @@
 #' @docType data
 #' @name RISK_CCFA
 #' @usage data(RISK_CCFA)
-#' @format A phyloseq object.
+#' @format An otu table, sample data table, and taxonomy table.
 #' @references Gevers D, et al. The treatment-naive microbiome in new-onset Crohn's disease. Cell Host Microbe. 2014 Mar 12;15(3):382-392. doi: 10.1016/j.chom.2014.02.005. PMID: 24629344; PMCID: PMC4059512.
 NULL
diff --git a/data/RISK_CCFA.RData b/data/RISK_CCFA.RData
new file mode 100644
index 0000000..561f5e2
Binary files /dev/null and b/data/RISK_CCFA.RData differ
diff --git a/data/RISK_CCFA.rda b/data/RISK_CCFA.rda
deleted file mode 100644
index 4e2943a..0000000
Binary files a/data/RISK_CCFA.rda and /dev/null differ
diff --git a/man/RISK_CCFA.Rd b/man/RISK_CCFA.Rd
index c4898c1..b0a20e9 100644
--- a/man/RISK_CCFA.Rd
+++ b/man/RISK_CCFA.Rd
@@ -5,7 +5,7 @@
 \alias{RISK_CCFA}
 \title{Data from Gevers et al. (2014)}
 \format{
-A phyloseq object.
+An otu table, sample data table, and taxonomy table.
 }
 \usage{
 data(RISK_CCFA)
diff --git a/vignettes/introduction-to-fido.Rmd b/vignettes/introduction-to-fido.Rmd
index 1e88df5..5372068 100644
--- a/vignettes/introduction-to-fido.Rmd
+++ b/vignettes/introduction-to-fido.Rmd
@@ -115,8 +115,11 @@ library(fido)
 set.seed(899)
 
 data(RISK_CCFA)
+
+# making into a phyloseq object
+CCFA_phylo <- phyloseq(otu_table(as.matrix(RISK_CCFA_otu), taxa_are_rows = TRUE), sample_data(RISK_CCFA_sam), tax_table(as.matrix(RISK_CCFA_tax)))
 # drop low abundant taxa and samples
-dat <- RISK_CCFA %>% 
+dat <- CCFA_phylo %>% 
   subset_samples(disease_stat!="missing", 
                  immunosup!="missing") %>% 
   subset_samples(diagnosis %in% c("no", "CD")) %>% 
diff --git a/vignettes/introduction-to-fido.Rmd.orig b/vignettes/introduction-to-fido.Rmd.orig
index b63e69c..518a951 100644
--- a/vignettes/introduction-to-fido.Rmd.orig
+++ b/vignettes/introduction-to-fido.Rmd.orig
@@ -119,8 +119,11 @@ library(fido)
 set.seed(899)
 
 data(RISK_CCFA)
+
+# making into a phyloseq object
+CCFA_phylo <- phyloseq(otu_table(as.matrix(RISK_CCFA_otu), taxa_are_rows = TRUE), sample_data(RISK_CCFA_sam), tax_table(as.matrix(RISK_CCFA_tax)))
 # drop low abundant taxa and samples
-dat <- RISK_CCFA %>% 
+dat <- CCFA_phylo %>% 
   subset_samples(disease_stat!="missing", 
                  immunosup!="missing") %>% 
   subset_samples(diagnosis %in% c("no", "CD")) %>%