# NOT RUN {
library(EmbedSOM)
library(ggplot2)
# simulate a simple dataset
e <- cbind(rnorm(10000),rnorm(10000))
PlotGG(e, data=data.frame(Expr=runif(10000))) +
geom_point(aes_string(color="Expr"))
# }
Run the code above in your browser using DataLab