## load data
data('simRates', package='INSPEcT')
data('simData3rep', package='INSPEcT')
## generate a new data set with 3 replicate to make the comparison
newTpts <- c(0, 1/6)
simData3rep_2 <- makeSimDataset(simRates, newTpts, 3, seed=2)
## compare
diffrates <- compareSteady(simData3rep, simData3rep_2)
## visualize results
diffrates
Run the code above in your browser using DataLab