diff --git a/R/Metadata_Table.R b/R/Metadata_Table.R
index 45d6873..7844672 100644
--- a/R/Metadata_Table.R
+++ b/R/Metadata_Table.R
@@ -22,11 +22,11 @@
 #' 
 #' # Return dimensional reductions
 #' metadata <- MetadataTable(SO = seurat.object, return.cell.embeddings = TRUE)
-#' umap_coordinates <- metadata %>% dplyr::select(Barcode, seurat_clusters, contains("UMAP"))
+#' umap.coordinates <- metadata %>% dplyr::select(Barcode, seurat_clusters, contains("UMAP"))
 #' 
 #' ## Plot 
 #' library(ggplot2)
-#' ggplot(umap_coordinates, aes(x = UMAP_1, y = UMAP_2, colour = seurat_clusters)) + 
+#' ggplot(umap.coordinates, aes(x = UMAP_1, y = UMAP_2, colour = seurat_clusters)) + 
 #' geom_point(size = 0.1) + theme_bw()
 #' }
 #' 
diff --git a/tests/testthat/test-Metadata_Table.R b/tests/testthat/test-Metadata_Table.R
index 151b71e..3d0176c 100644
--- a/tests/testthat/test-Metadata_Table.R
+++ b/tests/testthat/test-Metadata_Table.R
@@ -1,9 +1,11 @@
-# load data
-seurat.object <-readRDS(test_path("fixtures", "SO_moduleScore.rds"))
+
 
 # run tests
 test_that("reductions are returned", {
   
+  # load data
+  seurat.object <-readRDS(test_path("fixtures", "SO_moduleScore.rds"))
+  
   metadata <-
     MetadataTable(SO = seurat.object,
                   return.cell.embeddings = TRUE)
@@ -16,6 +18,9 @@ test_that("reductions are returned", {
 
 test_that("function returns correct class", {
   
+  # load data
+  seurat.object <-readRDS(test_path("fixtures", "SO_moduleScore.rds"))
+  
   metadata <-
     MetadataTable(SO = seurat.object,
                   return.cell.embeddings = TRUE)