@@ -1,7 +1,3 @@

-for (j in 1:max(clusterindex)) {

-tmp <- dat[clusterindex == j, ]

-tmpmem <- memship[clusterindex == j, j]

-if (((j - 1)%%(mfrow[1] * mfrow[2])) == 0) {

 if (!is.na(filename)) {

 pdf(filename, height=3*mfrow[1],width=3*mfrow[2])

 }

@@ -510,3 +506,7 @@ library(shiny)

 ??inputPanel

 install.packages("DT")

 q()

+shiny::runApp('inst/shiny')

+library(vsclust)

+library(vsclust)

+shiny::runApp('inst/shiny')

@@ -23,7 +23,6 @@ BiocStyle::markdown()

 ```

 ```{r env, message = FALSE, warning = FALSE, echo = FALSE}

-library("vsclust")

 require(clusterProfiler)

 require(matrixStats)

 ```

@@ -55,6 +54,7 @@ Use the common Bioconductor commands for installation:

 if (!require("BiocManager", quietly = TRUE))

     install.packages("BiocManager")

 BiocManager::install("vsclust")

+library(vsclust)

 ```

 The  full functionality of this vignette can be obtained by additionally