# NOT RUN {
data(maize_65)
# Calculation of toxic internal concentration of individuals :
res <- ecoToxic(alandscape, anindividuals, atoxicintensity,
mintime=1, maxtime=60, kin=0.25, kout=0.5, deltat=0.1)
# time series of toxic internal concentration for the 1st individual:
plot(alandscape, res, numind=1)
# Simulate pollen dispersion
tox <- toxicIntensity(maize.landscape,maize.emitted_pollen,1,61)
# Simulate ecotoxicological for individuals plot ecotoxicology of individual 1.
ind2<-ecoToxic(maize.landscape,maize.individuals,objectT=tox,maxtime=61)
# draw result for individual 1.
plot(maize.landscape,ind2,objectT=tox,numind=1)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab