<WRAP tabs>
  * [[ecovirt:roteiro:den_ind:di_edrcmdr|{{:ecovirt:logorcmdr01.png?20|}}]]
  * [[ecovirt:roteiro:den_ind:di_edr|{{:ecovirt:rlogo.png?20|}}]]
  * [[ecovirt:roteiro:den_ind:di_edr_passo|{{:ecovirt:prompt.png?20|}}]]
</WRAP>

====== Crescimento denso-independente com estocasticidade demográfica - Roteiro no Ecovirtual ======
{{section>ecovirt:roteiro:den_ind:di_ed_base#crescimento_denso-independente_com_estocasticidade_demografica}}

====A distribuição binomial====

{{section>ecovirt:roteiro:avisos#roteiro_ecovirtual}}


Vamos nos familiarizar com a ideia de distribuições de probabilidades, calculando valores da distribuição binomial. No menu do **R Commander** clique em //Distribuições// -> //Distribuições discretas// ->  //Distribuição binomial// -> //Gráfico da distribuição binomial//. Uma janela como esta vai se abrir:

{{ :ecovirt:roteiro:den_ind:binomial_plot_dialog.png |}}

com as opções:

^Opção ^ O que faz^
^''Experimentos da binomial'' | número de tentativas, no caso $N_0$|
^''Probabilidade de sucesso''| probabilidade de sucesso a cada tentativa, no caso probabilidade de cada indivíduo sobreviver|
^''Gráfico de função de massa'' / ''gráfico de função cumulativa''| fazer gráfico de probabilidades por valor ou probabilidades acumuladas até este valor? |


Faça o gráfico de nosso exemplo:
  - Na opção ''Experimentos da binomial'' escreva $2$
  - Na opção ''Probabilidade de sucesso'': escreva $0.5$
  - Deixe marcada a opção ''Gráfico de função de massa''
  - Clique em ''Apply''

{{section>ecovirt:roteiro:den_ind:di_ed_base#a_distribuicao_binomial}}


==== Simulação no computador ====

{{section>ecovirt:roteiro:den_ind:di_ed_base#simulacao_no_computador}}

No menu do **EcoVirtual** clique em //Ecovirtual// -> //One Population// -> //Demographic Stochasticity//. Uma janela de diálogo como esta vai se abrir:

{{ :ecovirt:roteiro:math:onepop_demo_stoc_dialog.png |}}

{{section>ecovirt:roteiro:den_ind:di_ed_base#parametros}}

====Distribuição dos tamanhos populacionais====

Vamos inspecionar a distribuição dos tamanhos populacionais até o tempo $t=2$. Para isso temos que  guardar  os resultados em um objeto do R. Execute as simulações com os valores:

  * ''Enter name for last simulation data set'': sim1
  * ''Maximum time'': 2
  * ''Number of simulations'': 1000
  * ''Initial size'' : 20
  * ''birth rate'' :  0
  * ''death rate'': 0.693


Clique em ''OK'', e os resultados estão gravados em uma lista de 1000 tabelas no R, que chamamos ''sim1''. Cada tabela tem os tempos em que a população perdeu um indivíduo e o tamanho da população a partir daquele momento, até o tempo máximo estipulado nas opções. 

Para ver a primeira tabela, saia da janela da simulação clicando em ''Cancelar'', e copie o comando abaixo na janela ''Script'' do **Rcmdr**

<code>
sim1[[1]]
</code>
 
e agora clique em ''Submeter''. 

A tabela será exibida na janela ''Output''. Inspecione outras tabelas: execute de novo o comando, mudando o índice numérico que está entre os colchetes duplos, para qualquer valor entre um e mil.  

{{section>ecovirt:roteiro:den_ind:di_ed_base#distribuicao_dos_tamanhos_populacionais}}


===== Nascimentos e mortes =====
{{section>ecovirt:roteiro:den_ind:di_ed_base#nascimentos_e_mortes}}

===== Para saber mais =====
 {{section>ecovirt:roteiro:den_ind:di_ed_base#para_saber_mais}}


{{tag>Rcmdr uma_população crescimento_exponencial tempo_discreto tempo_contínuo estocasticidade_demografica}}