# NOT RUN {
# setting parameters for tests
set.seed(2)
M = 10 # number of species
ming = 1.67 # gradient minimum...
maxg = 1.78 # ...and maximum
nfrac = 24 # number of gradient fractions
locs = seq(ming, maxg, length=nfrac) # gradient locations
tol = rep(0.005, M) # species tolerances
h = ceiling(rlnorm(M, meanlog=11)) # max abundances
## creating parameter matrices for each density gradient
opt1 = rnorm(M, mean=1.7, sd=0.005) # species optima
params1 = cbind(opt=opt1, tol=tol, h=h) # put in a matrix
opt2 = rnorm(M, mean=1.7, sd=0.005) # species optima
params2 = cbind(opt=opt2, tol=tol, h=h) # put in a matrix
param_l = list(
'12C-Con_rep1' = params1,
'13C-Cel_rep1' = params2
)
# }
# NOT RUN {
# simulating phyloseq object
physeq = HTSSIP_sim(locs, param_l)
physeq
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab