#data=truelove
#distancematrix<-calc.dist(truelove)
#Truelove_bins<-make.bin(distancematrix,type="ALL",p.dist=20)
#binsize<-Truelove_bins[1][[1]] #truelove lowland bin sizes
#binname<-Truelove_bins[2][[1]] #truelove lowland bin names
#covariances<-make.covar(truelove,distancematrix,binsize,binname)
#covariances
# path model for the truelove dataset
#spatial_model<-'
# Gram ~ Moisture
# N_Fix ~ Bryoph + Lich + SoilCrust
# SoilCrust ~ Bryoph + Lich + Gram + Shrubs + Forbs
# Bryoph ~ Gram + Shrubs + Forbs + Moisture
# Lich ~ Moisture + Forbs + Gram + Shrubs + Bryoph
# Forbs ~ Moisture
# Gram ~~ Forbs
# Shrubs ~ Moisture
# Gram ~~ Shrubs
# Shrubs ~~ Forbs
# '
#
#results<-runModels(spatial_model,covariances)
#The above script produces the sesem object stored as truelove_results
data=truelove_results
modelsummary(truelove_results)
Run the code above in your browser using DataLab