\documentclass[a4paper, oneside, 10pt]{article}
\usepackage[english]{babel}
\usepackage[unicode]{hyperref}
\usepackage[utf8x]{inputenc}
\usepackage{listings}
\usepackage{graphicx}
\graphicspath{{media/}}
\usepackage{longtable}
\date{\today}
\title{}
\author{}
\begin{document}



\section{\texorpdfstring{Pedro Balieiro}{Pedro Balieiro}}
\label{sec:pedro_balieiro}


\includegraphics[keepaspectratio=true,width=0.8\textwidth]{bie5782/01_curso_atual/alunos/trabalho_final/pedrobalieiro/dsc_0121}


\texttt{ Mestrando em Saúde e Meio Ambiente UNIVILLE. Trabalha com Ecologia e Citogenética de Pequenos Mamíferos}



\section{\texorpdfstring{Trabalho final}{Trabalho final}}
\label{sec:trabalho_final}


\subsection{\texorpdfstring{Plano A}{Plano A}}
\label{sec:plano_a}


\texttt{Índice de Especificidade de Ectoparasitas:}

O índice é calculado para cada espécie de hospedeiro.

 SI=(ri/∑ri/i)*100 

Onde:

ri é o número de parasitas por individuos por um dado número de espécies (representado pelo i). Note-se que, no denominador os valores de ri, são calculados para cada uma das espécies de hospedeiros e somados para todas as espécies. O valor é dado em porcentagem (\%).

\texttt{O penso em colocar como entrada um dataframe desta forma.}\begin{longtable}{|l|l|l|l|}
\hline
\textbf{ spp. de Hospedeiros } & \textbf{ sp.1 } & \textbf{ sp.2 } & \textbf{ sp.3 } \\ 
\hline
 
\textbf{ Nº de ind. de hospedeiros } & \textbf{ xx } & \textbf{ xx } & \multicolumn{1}{|r|}{\textbf{	xx }} \\ 
\hline
 
\textbf{ sp.x (Espécies de parasitas) } & \textbf{ xxx (nº indivíduos) } & \textbf{ xxx (nº indivíduos) } & \textbf{ xxx (nº indivíduos) } \\ 
\hline
 
\textbf{ sp.y } & \textbf{ xxx (nº indivíduos) } & \textbf{ xxx (nº indivíduos) } & \textbf{ xxx (nº indivíduos) } \\ 
\hline
 
\end{longtable}



MARSHALL, A.G. The ecology of ectoparasitic insects. London: Academic Press, 1981. 459 p.

\subsection{\texorpdfstring{Plano B}{Plano B}}
\label{sec:plano_b}


A partir de diferentres argumentos como:

Número de hospedeiros infestados, Número de hospedeiros examinados etc

A função irá calcular os seguinte indices:

\texttt{ Intensidade média de ectoparasita }

 IMP= ƩXI/HI 

ƩXI= Somatória indivíduos de parasitas, em uma determinada espécie de hospedeiro. 

HI= Número de hospedeiros infestados

\texttt{ Coeficiente de Dominância }

 CD= (Ʃxi/Ʃti)*100 

Ʃxi= Somatório dos indivíduos de ectoparasitas de uma determinada espécie,  em cada espécie hospedeiro

Ʃti= Somatório do número de ectoparasitas de todas as espécies encontradas em todos os hospedeiros

\texttt{ Índice de Infestação (II) }

 II= (HI/HE)x100 

Onde:

HI= Número de hospedeiros infestados 

HE= Número de hospedeiros examinados

BOTELHO, J.R. \& LINARDI, P. M. 1996. Interrelações entre ectoparasitos e roedores em ambientes silvestres e urbano de Belo Horizonte, Minas Gerais, Brasil. Rev. Brasileira de Entomologia. 40 (3/4): 425 – 430.

Olá\\
A proposta A me parece muito simples, já que envolve o cálculo de apenas um índice simples, que não exige nenhuma transformação dos dados de entrada. Como a proposta B envolve o cálculo de mais índices, ela me parece mais interessante e sugiro que você siga com ela. Se entendi bem, os mesmos dados de entrada da proposta B podem ser usados para calcular o índice da proposta A, então talvez seja possível você implementar as duas propostas na mesma função.
\\
----\emph{\href{mailto:deboraycb@gmail.com}{ Débora}}

Concordo com a Debora, siga pela B e se tiver gás inclua o índice da A. 
 --- \emph{\href{mailto:aleadalardo@gmail.com}{Alexandre Adalardo de Oliveira} 2014/04/25 19:04}

\section{\texorpdfstring{Resolução do Trabalho Final}{Resoluao do Trabalho Final}}
\label{sec:resoluao_do_trabalho_final}


\subsection{\texorpdfstring{Plano A e B Concatenados}{Plano A e B Concatenados}}
\label{sec:plano_a_e_b_concatenados}


\paragraph{\texorpdfstring{Índices de Relações Parasita-Hospedeiro}{Indices de Relaoes ParasitaHospedeiro}}
\label{sec:indices_de_relaoes_parasitahospedeiro}


A função final indices.parasitas calcula os quatro índices:

- Coeficiente de Dominância (CD)

- Índice de Insfestação (II)

- Índice de Especificidade (SI)

- Intensidade Média de Parasitas (IMP)

A entrada (x) consiste em uma tabela, onde a primeira coluna é representada pelos indivíduos de hospedeiros examinados (ou seja parasitados ou não), nas demais colunas são representados pelo número de indivíduos de parasitas para seu respectivos hospedeiro (lembre-se que na primeira linha são colocados as espécies de parasitas.

A tabela abaixo mostra a como deve ser a entrada dos dados.\begin{longtable}{|l|l|l|l|}
\hline
\textbf{  } & \textbf{ Androlaelaps.fahrenholsi  } & \textbf{ Gigantolaelaps.wolffsohni } & \textbf{ Mysolaelaps.parvispinosa } \\ 
\hline
 
\textbf{ Akodon.sp. } & \textbf{ 5 } & \textbf{ 0 } & \textbf{ 2 } \\ 
\hline
 
\textbf{ Akodon.sp. } & \textbf{ 10 } & \textbf{ 2 } & \textbf{ 0 } \\ 
\hline
 
\textbf{ O.nigripes } & \textbf{ 0 } & \textbf{ 0 } & \textbf{ 0 } \\ 
\hline
 
\end{longtable}



\subsection{\texorpdfstring{Código da Função indices.parasitas}{Codigo da Funao indicesparasitas}}
\label{sec:codigo_da_funao_indicesparasitas}
\lstset{frame=single}
\begin{lstlisting}

indices.parasitas <-function(x) #cria a funçao para calcular os 
indices de parasitas e hospedeiros. A entrada deve ser um objeto 
de tabela contendo na primeira coluna cada indivíduo de hospedeiro, as 
demais colunas representam o numero de indivíduos de cada espécie de parasita.
  {
    
    dados2 <- x [,2:(length(dados)-1)] # cria o objeto "dados2" 
    contendo o objeto dados, porém excluindo a primeira coluna 
    que contém os nomes das espécies dos hospedeiros
    dados3 <- dados2>0 #cria objeto "dados3" com os valores de 
    "dados2" em uma matriz lógica de presença e ausência.
    
    hospedeiros <- as.factor(x[,1]) #cria vetor "hospedeiros" 
    com os nomes das espécies de hospedeiros.
     
    #Coeficiente de Dominância (CD) - para parasita
    #####################################
    xi <- apply(dados2, 2, sum) #soma o número total de parasitas
     em cada espécie de hospedeiro.
    ti <- sum(xi) #soma de todos os parasitas nos hospedeiros.
    CD <- (xi/ti)*100 #cálculo do índice e criação do objeto "CD" 
    contendo o resultado.
    ########################################  
    
    #Índice de insfestação (II)- para hosts
    ################################################
    Hi <- apply(dados3, 1, sum) #cria um objeto "Hi" de vetor com a
     soma do número de parasitas em cada indivíduo de hospedeiro.
    Hi[Hi>0] <- 1 #substitui os valores maiores que zero do vetor 
    pelo numero 1. 
    Hi2 <- tapply(Hi, hospedeiros, sum) #soma o número de individuos
     hospedeiros parasitados por espécie.
    He <- summary(hospedeiros) #obtem o número de hospedeiros examinados
     e coloca em um objeto "He".
    II <- (Hi2/He)*100 #cálculo do índice e cria objeto "II" contendo
     o resultado.
    ###################################################
     
    #Indice de Especificidade (SI) - para hosts
    ##################################################
    soma.par <- rowsum(dados2, hospedeiros) #soma o número de cada espécie 
    de parasita por cada espécie de hospedeiro. 
    ri <- soma.par/He #cria objeto "ri" contendo o número de cada espécie 
    de parasita por indivíduo de cada espécie de hospedeiro.
    Eri <- apply(ri, 2, sum) #cria objeto "Eri" contendo a soma dos valores 
    do objeto "ri" por coluna (parasitas).
    vezes <- length(He) #cria objeto "vezes" contendo o valor do número de 
    espécies de hospedeiros. 
    matriz <- matrix(rep(Eri,each=vezes), nrow=vezes, ncol=length(dados2)) 
    #cria uma matriz contendo o valor de "Eri" com repetição em todas as linhas
     de cada coluna. O número de linhas será o número de espécies de hospedeiros
      e o número de colunas o número de espécies de parasitas. 
    matriz <- as.data.frame(matriz) #a matriz é transformada em um dataframe. 
    (!O objetivo foi criar um objeto que fosse compativel com o objeto "ri",
     permitindo realizar as operações seguintes). 
    Eri <- matriz #sobescreve o objeto "Eri" pela matriz.
    SI <- (ri/Eri)*100 #calculo do índice e cria o objeto "SI" contendo o 
    resultado.
    ####################################################
    
    #Intensidade Média de Parasitas (IMP) - para hosts
    ############################################
    XI <- apply(soma.par, 1, sum) #soma do número de todos as espécies de 
    parasitas por espécie de hospedeiro. 
    HI <- Hi2 #numero de hospedeiros parasitados!
    IMP <- XI/HI #calculo do índice e cria o objeto "IMP" contendo o resultado.
    ####################################### 
  
  indices <- list(CD, II, SI, IMP) #cria uma lista contendo os índices calculados.
  names(indices) <- c("Coeficiente de Dominância (CD)", "Índice de insfestação (II)", 
  "Índice de Especificidade (SI)"," Intensidade Média de Parasitas (IMP)") #renomeia 
  cada objeto "indices" dentro da lista.
  return(indices) #output da funçao: quatro tabelas contendo os índices calculados.
  
    }
\end{lstlisting}



\subsection{\texorpdfstring{Help da Função indices.parasitas}{Help da Funao indicesparasitas}}
\label{sec:help_da_funao_indicesparasitas}
\lstset{frame=single}
\begin{lstlisting}


indices.parasitas           package: nenhum         R Documentation

Coeficiente de Domonância, Índices de Infestação e espécificidade
e Intensidade média de ectoparasitas.

Descrição:
A função calcula quatro índices relacionados as relações parasitas 
hospeiros que são amplamente usados. 
O resultados da função são quatro tabelas contandos os índices.

Uso:
indices.parasitas (x)

Argumentos: x	Objeto do tipo tablela.

Detalhes:

Para que a função funcione normalmente, a tabela de 
entrada deve ter na primeira coluna os indivídos de hospedeiros, 
nas demais colunas o número de indivíduos de cada espécie de parasita 
em seu respectivo hospedeiro. A partir da segunda coluna na primeira 
linha deve-se colocar os nomes das espécies de parasitas. Os valores 
devem ser númericos (exeto a primeira coluna e linha) e é necessario 
colocar o 0 (zero), pois a função não entende valores vazios. 

Valores:

Quatro tabelas contendo cada índice. Coeficiente de Dominância (CD), 
Índice de insfestação (II), Índice de Especificidade (SI) e 
Intensidade Média de Parasitas (IMP).


 

Autor:
Pedro Balieiro
pedrobalieiro@uol.com.br

Referencias:

MARSHALL, A.G. The ecology of ectoparasitic insects. London:
Academic Press, 1981. 459 p.

BOTELHO, J.R. & LINARDI, P. M. 1996. Interrelações entre ectoparasitos
 e roedores em ambientes silvestres e urbano de Belo Horizonte, 
Minas Gerais, Brasil. Rev. Brasileira de Entomologia. 40 (3/4): 425 - 430. 



Exemplo:

Baixe os arquivos em: http://ecologia.ib.usp.br/bie5782/doku.php?id=bie5782:01_curso_atual:alunos:trabalho_final:pedrobalieiro:start

(Não consegui criar uma tabela aleatoria gerada pelo R).

\end{lstlisting}



\paragraph{\texorpdfstring{Arquivos para Demostração}{Arquivos para Demostraao}}
\label{sec:arquivos_para_demostraao}


\href{media/bie5782/01_curso_atual/alunos/trabalho_final/pedrobalieiro/exemplo.csv}{exemplo.csv}

\href{media/bie5782/01_curso_atual/alunos/trabalho_final/pedrobalieiro/teste.indices.parasitas.r}{teste.indices.parasitas.r}

\end{document}
