Help

LP              package:nenhum                R Documentation


Estimativa populacional(N) pelo metodo de Lincoln Peterson em populaciones com graficos descriptivos.



Description:

Calcula o N da estimativa populacional pelo metodo de Lincoln Peterson produzindo uma saida grafica composta por 3 graficos descritivos 
(Plot, Boxplot e Barplot) para varios eventos de captura recatura. a estrutura do N é um valor numerico


Usage:

     LP(data)


Arguments:

data: data frame com 8 colunas na orden: 

 Identificacion : id     : Factor w/ 200 levels "1","10","100",..: 191 12 125 169 18 145 34 104 80 93 ...
 idade (a= Adulto, j=Joven,i=idoso ) : Factor w/ 3 levels "a","i","j": 1 3 3 1 2 3 3 1 2 2 ...
 sexo  (f=Femea, m=macho) : Factor w/ 2 levels "f","m": 1 2 1 1 2 2 2 1 2 1 ...
 Condicion reproductiva:(c= castrado, e=entero) con_rep: Factor w/ 2 levels "c","e": 2 2 2 1 2 2 2 2 2 1 ...
 Numero de animais marcado na primeira vez: n1 : num  0 0 1 0 1 0 1 0 0 1 ...
 Numero de animais marcado na segunda vez:n2     : num  1 1 0 1 0 1 0 1 0 1 ...
 Numero de animais recapturadosm2     : num  1 1 1 1 0 0 1 1 0 0 ...
 Inquerito: inq  ()  : int  1 1 1 1 1 1 1 1 1 1 ...
  

Value: 

N: Estimativa populacional para cada inquerito con graficos descriptivos (plot, boxplot, barplot)


Example 


####Banco de dados creado inventado para simular os dados de uma populacao x 

tabela <- matrix("Nas",nrow=200,ncol=4)
idade <- sample(c("j","a","i"),prob=c(0.25,0.50,0.25),size=200,replace=T)
sexo <- sample (c("m","f"), prob=c(0.60,0.40),size=200,replace=T)
condrep <- sample (c("c","e"),prob=c(0.30,0.70),size=200,replace=T)

for(i in 1:200)
{
  tabela[i,1] <- i
  tabela[i,2]<- idade[i]
  tabela[i,3]<-sexo[i]
  tabela[i,4]<- condrep[i]
}
tabela <- data.frame(id=tabela[,1],idade=tabela[,2],sexo=tabela[,3],con_rep=tabela[,4])
tabela


####Creacao de um inquerito simulado composto por 20 eventos de captura e recaptura 
####como entrada para provar a funcao

inquerito <- NULL
for (i in 1:20) {
  ran <- sample(200, 1)
  tmp <- sample(tabela[, 1], ran)
  tmp <- tabela[tmp, ]
  inq <- cbind(tmp, sample(c(0, 1), ran, replace = T),
               sample(c(0,1), ran,replace=T),
               sample(c(0,1), ran,replace=T),
               rep(i, ran))
  
  inquerito <- rbind(inquerito, inq)
}
names(inquerito) <- c('id', 'idade', 'sexo', 'con_rep', 'n1', 'n2', 'm2', 'inq')

inquerito


###Testando!!!

LP(inquerito)
  


Author(s):
  
  Tatiana Jimenez Villegas

  
References:
  
  SUTHERLAND WJ. Ecological census technique: a handbook. New York: Cambridge University Press, 2006. 448 p.
  
  Schmidt, Paige M., Lopez, Roel R.Pierce, Brian L. Estimating free-roaming cat densities in urban areas: 
  comparison of mark-resight and distance sampling   Wildlife Biology in Practice, v.3,i.1, 2007, 18-27p