N <- 10
ricker.out <- ricker(N,generateA(N),K=rep(0.01,N))
[1] "Adjusting connectance to 0.02"
[1] "Initial edge number 100"
[1] "Initial connectance 1"
[1] "Number of edges removed 89"
[1] "Final connectance 0.0111111111111111"
[1] "Final connectance: 0.0111111111111111"
noisetypes <- identifyNoisetypes(ricker.out)
[1] "Number of taxa below the abundance threshold: 9"
[1] "Number of taxa with non-significant power spectrum laws: 0"
[1] "Number of taxa with non-classified power spectrum: 1"
[1] "Number of taxa with white noise: 0"
[1] "Number of taxa with pink noise: 0"
[1] "Number of taxa with brown noise: 0"
[1] "Number of taxa with black noise: 0"
plot(ricker.out[noisetypes$brown[1],],
main = paste("Simulated OTU",noisetypes$brown[1]),
ylab = "Abundance")
Warning in min(x) : no non-missing arguments to min; returning Inf
Warning in max(x) : no non-missing arguments to max; returning -Inf
Warning in min(x) : no non-missing arguments to min; returning Inf
Warning in max(x) : no non-missing arguments to max; returning -Inf
Error in plot.window(...) : need finite 'xlim' values
Calls: plot -> plot.default -> localWindow -> plot.window
Execution halted