## Not run:
# # 1) generate data with an iid matrix of 1000 x 3
# data <- cbind(matrix(rnorm(1000*3,mean=0,sd=1), nrow=1000, ncol=3),
# matrix(rnorm(1000*3,mean=0.5,sd=1), nrow=1000, ncol=3),
# matrix(rnorm(1000*3,mean=-0.5,sd=1), nrow=1000, ncol=3))
# colnames(data) <- c("S1","S1","S1","S2","S2","S2","S3","S3","S3")
#
# # 2) sMap resulted from using by default setup
# sMap <- sPipeline(data=data)
#
# # 3) animate sMap
# # output as a <a href="visHexAnimate.pdf">pdf</a> file
# visHexAnimate(sMap, filename="visHexAnimate", filetype="pdf")
# # output as a <a href="visHexAnimate.mp4">mp4</a> file
# visHexAnimate(sMap, filename="visHexAnimate", filetype="mp4")
# # output as a <a href="visHexAnimate.gif">gif</a> file
# visHexAnimate(sMap, filename="visHexAnimate", filetype="gif")
# ## End(Not run)
Run the code above in your browser using DataLab