library(sagenhaft)
testlib1 <- sagelibrary.simulate(taglength=10, lambda=10000,
mean.error=0.01)
testlib2 <- sagelibrary.simulate(taglength=10, lambda=20000,
mean.error=0.02, base.lib=testlib1)
testlib3 <- sagelibrary.simulate(taglength=10, lambda=10000,
mean.error=0.01, libseed=testlib1$seed)
Run the code above in your browser using DataLab