@@ -1,6 +1,6 @@

 Package: celda

 Title: CEllular Latent Dirichlet Allocation

-Version: 0.99.35

+Version: 0.99.36

 Authors@R: c(person("Joshua", "Campbell", email = "camp@bu.edu", role = c("aut", "cre")),

              person("Sean", "Corbett", email = "scorbett@bu.edu", role = c("aut")),

 	     person("Yusuke", "Koga", email="ykoga07@bu.edu", role = c("aut")),

@@ -20,20 +20,6 @@

 #'   Default 'blue'.

 #' @param varLabel Character vector. Title for the color legend.

 #' @return The plot as a ggplot object

-#' @examples

-#' data(celdaCGSim, celdaCGMod)

-#' celdaTsne <- celdaTsne(counts = celdaCGSim$counts,

-#'     celdaMod = celdaCGMod)

-#' plotDimReduceGrid(celdaTsne[, 1],

-#'     celdaTsne[, 2],

-#'     matrix = celdaCGSim$counts,

-#'     xlab = "Dimension1",

-#'     ylab = "Dimension2",

-#'     varLabel = "tsne",

-#'     size = 1,

-#'     colorLow = "grey",

-#'     colorMid = NULL,

-#'     colorHigh = "blue")

 #' @importFrom reshape2 melt

 #' @export

 plotDimReduceGrid <- function(dim1,

@@ -43,18 +43,3 @@ The plot as a ggplot object

 Creates a scatterplot given two dimensions from a data

  dimensionality reduction tool (e.g tSNE) output.

 }

-\examples{

-data(celdaCGSim, celdaCGMod)

-celdaTsne <- celdaTsne(counts = celdaCGSim$counts,

-    celdaMod = celdaCGMod)

-plotDimReduceGrid(celdaTsne[, 1],

-    celdaTsne[, 2],

-    matrix = celdaCGSim$counts,

-    xlab = "Dimension1",

-    ylab = "Dimension2",

-    varLabel = "tsne",

-    size = 1,

-    colorLow = "grey",

-    colorMid = NULL,

-    colorHigh = "blue")

-}