# run the model
set.seed(1)
test = FALSE
if(test){
mod = sim.BipartiteEvol(nx = 8,ny = 4,NG = 1000,
D = 3, muP = 0.1 , muH = 0.1,
alphaP = 0.12,alphaH = 0.12,
rP = 10, rH = 10,
verbose = 100, thin = 5)
#build the genealogies
gen = make_gen.BipartiteEvol(mod)
plot(gen$H)
#compute the phylogenies
phy1 = define_species.BipartiteEvol(gen,threshold=1)
#build the network
net = build_network.BipartiteEvol(gen, phy1)
trait.id = 1
plot_net.BipartiteEvol(gen,phy1,trait.id, net,mod, nx = 10, spatial = FALSE)
}
Run the code above in your browser using DataLab