Aqui você vê as diferenças entre duas revisões dessa página.
Ambos lados da revisão anteriorRevisão anteriorPróxima revisão | Revisão anterior | ||
roteiro:meta_habitat [2012/06/01 18:43] – [Usando um Tira-Manchas] mortara | roteiro:meta_habitat [2024/01/09 18:18] (atual) – edição externa 127.0.0.1 | ||
---|---|---|---|
Linha 11: | Linha 11: | ||
[[roteiro: | [[roteiro: | ||
+ | |||
+ | A função: | ||
+ | |||
+ | < | ||
+ | meta.comp< | ||
+ | F1 <- 1-(pe/i1) | ||
+ | F2 <- pe/i1-i1/i2 | ||
+ | if(F1< | ||
+ | Nt <- l*c | ||
+ | N <- floor(Nt*(1-D)) | ||
+ | resultado=matrix(nrow=tf, | ||
+ | n1 <- floor(fi1*N) | ||
+ | n2 <- floor(fi2*N) | ||
+ | antes <- sample(rep(c(2, | ||
+ | resultado[, | ||
+ | resultado[1, | ||
+ | for(t in 2:tf){ | ||
+ | depois <- rep(0, | ||
+ | pi1=i1*sum(antes==1)/ | ||
+ | pi2=i2*sum(antes==2)/ | ||
+ | depois[antes==1]< | ||
+ | depois[antes==2]< | ||
+ | depois[antes==0] <- sample(c(0, | ||
+ | d1< | ||
+ | depois[antes!=1][d1==1] <- 1 | ||
+ | resultado[t, | ||
+ | antes <- depois | ||
+ | } | ||
+ | plot(1: | ||
+ | | ||
+ | | ||
+ | lines(1: | ||
+ | if(plot.eq==T){ | ||
+ | abline(h=F1, | ||
+ | abline(h=F2, | ||
+ | } | ||
+ | if(D> | ||
+ | legend(" | ||
+ | invisible(resultado) | ||
+ | } | ||
+ | </ | ||
Vamos começar com uma simulação sem destruição de hábitat, em que temos coexistência das duas espécies. A espécie competitivamente inferior tem três vezes mais capacidade de colonização. | Vamos começar com uma simulação sem destruição de hábitat, em que temos coexistência das duas espécies. A espécie competitivamente inferior tem três vezes mais capacidade de colonização. |