## Re-generate Count Data based on ShinyOutput Parameters, should be same as simCount in ShinyOutput
cMat <- reGenCountshiny(toyShiny)
## Generate Count Data with A New Seed based on ShinyOutput Parameters
cMat2 <- reGenCountshiny(toyShiny,NewSeed=2)
## Comparison across the output
toyShiny$simCount[1:3,1:3]
cMat[1:3,1:3]
cMat2[1:3,1:3]
Run the code above in your browser using DataLab