Diferenças

Aqui você vê as diferenças entre duas revisões dessa página.

Link para esta página de comparações

Ambos lados da revisão anteriorRevisão anterior
Próxima revisão
Revisão anterior
exercicios:exerc2 [2012/05/14 14:37] – [Média do Crescimento Populacional] adalardoexercicios:exerc2 [2024/01/09 18:18] (atual) – edição externa 127.0.0.1
Linha 14: Linha 14:
   * $ B=bN_T $   * $ B=bN_T $
   * $ D=dN_T $   * $ D=dN_T $
-onde: b = taxa de nascimento per capita a cada geração ; d = taxa de nascimento per capita a cada geração.+onde: b = taxa de nascimento per capita a cada geração ; d = taxa de mortalidade per capita a cada geração.
 Note que a taxa não muda com o tamanho da população, entretanto, o número de nascimentos e mortes é proporcional ao tamanho populacional. Vamos apenas deixar claro mais uma premissa, para fins didáticos: os nascimentos e mortalidades ocorrem simultaneamente na população (p.ex: uma planta anual). Note que a taxa não muda com o tamanho da população, entretanto, o número de nascimentos e mortes é proporcional ao tamanho populacional. Vamos apenas deixar claro mais uma premissa, para fins didáticos: os nascimentos e mortalidades ocorrem simultaneamente na população (p.ex: uma planta anual).
 Sendo //T// a escala de uma geração,  podemos então dizer que : Sendo //T// a escala de uma geração,  podemos então dizer que :
Linha 118: Linha 118:
 pardal<-read.table("pardal.txt", header=TRUE, sep="\t", as.is=TRUE) pardal<-read.table("pardal.txt", header=TRUE, sep="\t", as.is=TRUE)
 str(pardal) str(pardal)
 +head(pardal)
 pardal6= pardal[1:6,] pardal6= pardal[1:6,]
 plot(pardal6$Count ~pardal6$Year) plot(pardal6$Count ~pardal6$Year)
Linha 177: Linha 178:
 Agora, vamos supor que essa mesma população tenha dois ciclos reprodutivos anuais, portanto temos que modelar seu crescimento por semestre, o que equivale a dizer que: Agora, vamos supor que essa mesma população tenha dois ciclos reprodutivos anuais, portanto temos que modelar seu crescimento por semestre, o que equivale a dizer que:
    * $N_1=N_0 (1+0.5/2)^2  -> N_0(1+0.25)^2$    * $N_1=N_0 (1+0.5/2)^2  -> N_0(1+0.25)^2$
-Ou seja, essa população tem uma taxa de crescimento de $\lambda = 1+ 0.25 $ por semestre. Trimestralmente teria uma taxa de (1 + 0.5/3)^e assim por diante, podemos então descrever:+Ou seja, essa população tem uma taxa de crescimento de $\lambda = 1+ 0.25 $ por semestre. Trimestralmente teria uma taxa de (1 + 0.5/4)^e assim por diante, podemos então descrever:
  
 $$ \frac{N_1}{N_0}= (1+\frac{r_d}{n})^n $$ $$ \frac{N_1}{N_0}= (1+\frac{r_d}{n})^n $$
Linha 283: Linha 284:
  
 ===== Estocasticidade Ambiental ===== ===== Estocasticidade Ambiental =====
-Flutuações ambientais podem exercer efeito na taxa de crescimento instantâneo da população. De uma forma simples, podemos imaginar que essa variação funcione como um ruído no //r//, como se a população em média tivesse uma taxa, mas a cada realização ela pudesse ser um tanto diferente devido a condições externar a ela própria. +Flutuações ambientais podem exercer efeito na taxa de crescimento instantâneo da população. De uma forma simples, podemos imaginar que essa variação funcione como um ruído no //r//, como se a população em média tivesse uma taxa, mas a cada realização ela pudesse ser um tanto diferente devido a condições externar a ela própria. A implementação dessa estocasticidade ambiental em modelos contínuos é um pouco mais complicada, mas podemos imaginá-la como realizações em algum intervalo pequeno de tempo.  
-Nesse caso teríamos um //re//: o r estocásticoAbaixo criamos sorteamos 10 //re//'s de uma distribuição normal com média 0.3 e desvio padrão de 0.01.+Para um crescimento discreto a construção de simulações com estocasticidade ambiental é mais intuitivoa cada realização Lambda é afetado pela variação ambientalVamos fazê-la. 
 <code> <code>
- +npop=10 
-re = rnorm(10, mean=0.3, sd=0.05+n0=10 
-temp1:10 +lamb.med = 1.2 
-N0=1 +lamb.sd= 0.4 
-tam.pop=N0*exp(re*temp+lamb = rnorm(npop, mean=lamb.med, sd=lamb.sd
-plot(1:10, tam.poptype="l"lty=2+N0=rep(n0,npop) 
-lines(1:10exp(1:10*0.3)lwd=2) +N1=lamb*N0 
 +lamb=rnorm(npop, mean=lamb.med, sd=lamb.sd) 
 +N2=N1*lamb 
 +N3=N2*rnorm(npop,mean=lamb.med,sd=lamb.sd
 +N4=N3*rnorm(10,mean=lamb.med,sd=lamb.sd) 
 +N5=N4*rnorm(10,mean=lamb.med,sd=lamb.sd
 +Nt<-rbind(N0,N1,N2,N3,N4,N5) 
 +matplot(0:5Nt, type="l", lty=2:7)
 </code> </code>
- 
 ==== Desafio ==== ==== Desafio ====
  
-É possível adaptar a nossas funções anteriores para que possa também modelar populações com estocasticidade ambiental!+É possível adaptar a nossas função anterior de crescimento discreto para que possa também modelar populações com estocasticidade ambiental!
  
 <box 70% green |Dicas> <box 70% green |Dicas>
 O primeiro passo sempre e pensar quais argumentos vamos precisar O primeiro passo sempre e pensar quais argumentos vamos precisar
-Nesse caso, temos apenas mais um argumento o **//dpr//** : o desvio padrão de //r//. O resto continua o mesmo, lembre-se que se o **//dpr//** for 0, nosso população é determinística! Ou seja, a mesma função pode se prestar para simular ambos cenários.+Nesse caso, temos apenas mais um argumento o **//lamb.dp//** : o desvio padrão de //lambda//. O resto continua o mesmo, lembre-se que se o **//lamb.dp//** for 0, nosso população é determinística! Ou seja, a mesma função pode se prestar para simular ambos cenários.
  
  
exercicios/exerc2.1337006267.txt.gz · Última modificação: 2024/01/09 18:17 (edição externa)
www.chimeric.de Creative Commons License Valid CSS Driven by DokuWiki do yourself a favour and use a real browser - get firefox!! Recent changes RSS feed Valid XHTML 1.0