# Loads example data
data(birds)
# The niche metrics using distances among resources and assuming equal availability of resources
nichepref(birdsbreed, D = resourceD)
nichevar(birdsbreed, D = resourceD)
nichecentroid(birdsbreed, D = resourceD)
# The niche metrics using distances among resources and computes
# 95 percent confidence intervals
nichepref(birdsbreed, D = resourceD, mode="multiple",
Np = rowSums(birdsbreed), Nq = 100)
nichevar(birdsbreed, D = resourceD, mode="multiple",
Np = rowSums(birdsbreed), Nq = 100)
nichecentroid(birdsbreed, D = resourceD, mode="multiple",
Np = rowSums(birdsbreed), Nq = 100)
# Same computations with different resource availability
nichepref(birdsbreed, D = resourceD,
q = c(0.18, 0.24, 0.22, 0.21, 0.15), mode="multiple")
nichevar(birdsbreed, D = resourceD,
q = c(0.18, 0.24, 0.22, 0.21, 0.15), mode="multiple")
nichecentroid(birdsbreed, D = resourceD,
q = c(0.18, 0.24, 0.22, 0.21, 0.15), mode="multiple")
# The niche metrics using distances among resources and
# computes 95 percent confidence intervals
nichepref(birdsbreed, D = resourceD,
q = c(0.18, 0.24, 0.22, 0.21, 0.15), mode="multiple",
Np = rowSums(birdsbreed), Nq = 100)
nichevar(birdsbreed, D = resourceD,
q = c(0.18, 0.24, 0.22, 0.21, 0.15), mode="multiple",
Np = rowSums(birdsbreed), Nq = 100)
nichecentroid(birdsbreed, D = resourceD,
q = c(0.18, 0.24, 0.22, 0.21, 0.15), mode="multiple",
Np = rowSums(birdsbreed), Nq = 100)
Run the code above in your browser using DataLab