# 1. Define Population and Run energySIM()
pop1 <- as.species(x=-98.7, y=34.7)
EX1=energySIM(replicates=2,days=7,env_rast=ex_raster, search_radius=200,
sigma=.1, dest_x=-108.6, dest_y=26.2, mot_x=.9, mot_y=.9,
modeled_species=pop1,
optimum_lo=.8,optimum_hi=.9,init_energy=100,
direction="R",write_results=FALSE,single_rast=TRUE,mortality = TRUE)
# 2. Run energyVIZ() on your result
energyVIZ(EX1,title="Visualizing EnergySIM results",type="plot", aspect_ratio=5/3,
label=TRUE)
energyVIZ(EX1,type="summary_table")
energyVIZ(EX1,type="strat_table")
# energyVIZ(EX1,type="gradient")
Run the code above in your browser using DataLab