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



\section{\texorpdfstring{Érika Coelho}{Erika Coelho}}
\label{sec:erika_coelho}


\includegraphics[keepaspectratio=true,width=0.8\textwidth]{bie5782/01_curso_atual/alunos/trabalho_final/erika.coelho/img_1771}


Mestranda no Programa de Pós-Graduação da Ecologia pela Universidade Federal de Juiz de Fora - UFJF

O título da minha dissertação é ,,Caracterização do mergulho de baleias jubarte no Oceano Atlântico Sul Ocidental", orientada pelo Dr. Alexandre Zerbini e coorientação do Dr. Artur Andriolo

\href{http://ecor.ib.usp.br/doku.php?id=05_curso_antigo:r2019:alunos:trabalho_final:erika.coelho:meus_exercicios}{.:Meus exercícios}

\section{\texorpdfstring{Propostas}{Propostas}}
\label{sec:propostas}


\subsection{\texorpdfstring{Proposta A}{Proposta A}}
\label{sec:proposta_a}


\subsubsection{\texorpdfstring{Identificação da área de reprodução, migração e alimentação de baleias-jubarte}{Identificaao da area de reproduao migraao e alimentaao de baleiasjubarte}}
\label{sec:identificaao_da_area_de_reproduao_migraao_e_alimentaao_de_baleiasjubarte}


\textbf{Função:} \texttt{idarea}

\subsubsection{\texorpdfstring{Contextualização}{Contextualizaao}}
\label{sec:contextualizaao}


A baleia-jubarte (\emph{Megaptera novaeangliae}) (BOROWSKI, 1781), são conhecidas como um dos animais que realizam as migrações mais longas, podendo chegar a 6mil km, além de serem cosmopolitas.

Durante o verão se encontram em ambos os Hemisférios entre as latitudes 35° e 65° (WINN \& REICHLEY, 1985), onde se alimentam. No inverno migram para ambos os trópicos e subtrópicos entre as latitudes de 5° a 22° atrás de águas mais quentes e rasas para reprodução e cria dos filhotes (KATONA \& WHITEHEAD, 1981). A gestação dura entre 10 a 12 meses com um único filhote, que permanece com a mãe por aproximadamente um ano (WINN \& REICHLEY, 1985).

Na área de alimentação elas são conhecidas por realizarem movimentos mais abruptos, com ângulos mais fechados, nos quais são movimentos relacionados à procura de presas e alimentação. Durante a migração elas realizam uma trajetória mais retilínea, com duração em média de 40 dias, até chegar na área de reprodução ou alimentação. Durante a área de reprodução, elas também realizam movimentos mais abruptos, em fêmeas é relacionado aos movimentos dos filhotes ou ao encontro com grupos competitivos (machos que se agrupam e lutam para conseguir acasalar com a fêmea), neste caso, explicando os movimentos dos machos. 

No Hemisfério Sul existem 7 populações diferentes determinadas pela IWC (\emph{International Whaling Comission}, 1998), intituladas da letra A à G nas áreas de reprodução, e de I à IV nas áreas de alimentação (GARRIGUE et al. 2010). 

Através de estudos de telemetria satelital é possível confirmar e identificar as rotas de diversas populações. Os dados de telemetria satelital começam a ser coletados no momento em que os transmissores entram em contato com a água, e transmitidos em forma de mensagem para satélites em órbitas polares do sistema ARGOS quando o transmissor é exposto ao ar (quando a baleia sobe na superfície para respirar). A partir de então, um banco de dados é composto e processado, sendo convertido em posições geográficas e retransmitido para bases em terra, e logo programados para coletar as localizações em um arquivo chamado Location, as localizações são estimadas pelo Sistema ARGOS possuindo seis níveis de qualidade, codificadas como A, B, 0, 1, 2 ou 3 em ordem crescente de precisão (ARGOS, 1990).

A minha proposta é criar uma função que consiga identificar as três áreas (1, 2 e 3), podendo ser aplicada em diferentes populações e de acordo com a área de onde foram implantados os transmissores, na área de reprodução ou alimentação. 
A área 1 será sempre de onde os transmissores foram implantados, ou seja, se for na área de reprodução, seguirá a ordem: 1 (área de reprodução), 2 (migração) e 3 (área de alimentação). Caso seja implantado na área de alimentação, seguirá a ordem: 1 (área de alimentação), 2 (migração) e 3 (área de reprodução).

\centering\includegraphics[keepaspectratio=true,width=0.8\textwidth]{bie5782/01_curso_atual/alunos/trabalho_final/erika.coelho/captura_de_tela_2019-06-26_a_s_18.43.44}


\paragraph{\texorpdfstring{Planejamento da função}{Planejamento da funao}}
\label{sec:planejamento_da_funao}


Entrada: \texttt{idarea}(data)

\textbf{-Input}
\begin{itemize}
  \item \texttt{data} = data.frame da planilha Location com os dados obtidos pelo sistema ARGOS, contendo as colunas principais:

  \begin{itemize}
    \item Ptt = número do tag (transmissor) 
    \item Date = \texttt{,,\%H:\%M:\%S \%d-\%b-\%Y"}
    \item Quality = A, B, 0, 1, 2 e 3 (em ordem crescente de precisão)
    \item Latitude = em decimal
    \item Longitude = em decimal
  \end{itemize}
  \end{itemize}


\paragraph{\texorpdfstring{Verificando os parâmetros}{Verificando os parametros}}
\label{sec:verificando_os_parametros}

      \begin{itemize}
  \itemO objeto inserido é da classe data.frame? 

  \begin{itemize}
      \itemSe não, retorna “O objeto deve ser da classe data.frame”
    \end{itemize}
  \itemO data.frame possui as colunas necessárias? 

  \begin{itemize}
    \itemPtt, Date, Quality, Latitude, Longitude

      \begin{itemize}
      \itemSe não, retorna “Sem colunas necessárias”
    \end{itemize}
    \end{itemize}
    \end{itemize}


\paragraph{\texorpdfstring{Pseudo-código}{Pseudocodigo}}
\label{sec:pseudocodigo}

          \begin{itemize}
  \itemVerificar os parâmetros
  \itemFiltrar a coluna \texttt{Quality} para valores: 1, 2 e 3 e retornar para o mesmo data.frame
  \itemConverter os dados da coluna \texttt{Date} em POSIXct
  \itemCriar uma nova coluna com 2 valores (1 e 2) de acordo com a coluna \texttt{Date}, pegando a data da primeira transmissão, até 40 dias (valor 1) e datas após 40 dias da primeira transmissão (valor 2)
  \itemCalcular o ângulo interno de virada dos transectos  (entre um ponto e outro) pelas colunas \texttt{Latitude} e \texttt{Longitude}
  \itemCriar uma coluna \texttt{ Area}, vazia (para colocar a identificação das áreas)
  \itemSe o ângulo interno for \textless  = 110º e até 40 dias a partir da data inicial da transmissão (valor 1), é área 1

  \begin{itemize}
    \itemAdicionar na coluna \texttt{Area}, o valor 1 (área de reprodução ou área de alimentação, dependendo de qual área foi implantado os transmissores)
  \end{itemize}
  \itemSe o ângulo interno for  \textgreater = 111º ou \textless  = 180º é área 2

  \begin{itemize}
    \itemAdicionar na coluna \texttt{Area}, o valor 2 (área de migração)
  \end{itemize}
  \itemSe o ângulo interno for \textless  = 110º e depois de 40 dias a partir da data inicial da transmissão (valor 2), é área 3 

  \begin{itemize}
    \itemAdicionar na coluna \texttt{Area}, o valor 3 (área de alimentação ou área de alimentação, dependendo de qual área foi implantado os transmissores)
  \end{itemize}
  \end{itemize}


\textbf{-Output}

O mesmo data.frame, mas contendo uma nova coluna determinando a área (1, 2 e 3) de acordo com as localizações. A área 1 será sempre de onde os transmissores foram implantados podendo ser área de reprodução ou alimentação.

\begin{center}
\line(1,0){250}
\end{center}



\section{\texorpdfstring{Proposta B}{Proposta B}}
\label{sec:proposta_b}


\subsubsection{\texorpdfstring{Taxa de álcool no sangue}{Taxa de alcool no sangue}}
\label{sec:taxa_de_alcool_no_sangue}


\textbf{Função:} \texttt{txalcool}

\paragraph{\texorpdfstring{Contextualização}{Contextualizaao}}
\label{sec:contextualizaao2}


Em 2010 o consumo médio por pessoa ao ano foi de 8,8 litros. No mundo, a média é de 6,4 litros por pessoa por ano. Na Europa, a taxa chega a 9,8 litros e é o continente onde mais se consome.

No Brasil, em 2016, os homens tiveram em média, 13 litros de álcool por ano, já as mulheres, a média era de apenas 2,4 litros. As bebidas destiladas correspondem ao tipo de bebida mais consumido no mundo (44,8\%), seguido da cerveja (34,3\%) e do vinho (11,7\%). Na Região das Américas a cerveja é o tipo de bebida mais consumido (53,8\%), seguido dos destilados (31,7\%) e do vinho (13,5\%). No Brasil, a sequência é a mesma, mas as proporções são um pouco diferentes: 62\% cerveja, 34\% destilados e 3\% vinho

Além disso, existe estudo sobre ,,Beber Pesado Episódico" (BPE). É aquele porre ocasional, que faz um mal danado para o organismo. No Brasil em 2018, a taxa de pessoas com esse costume subiu de 12,7\% para 19,4\%, enquanto, no mundo, ela desceu de 20,5\% para 18,2\%.

E como a maioria das pessoas gostam de tomar uma cervejinha no fim do dia, ou nos finais de semana, é interessante saber o quanto de álcool fica no seu sangue.

Esta função poderá calcular e fornecer uma estimativa aproximada da concentração individual de álcool no sangue, de acordo com a formula de BAC (Blood Alcohol) Content ou de Widmark.

 \texttt{BAC= (Q * (T * 0.33814) * 0.06 * 100 * 1.055 / ((P * 2.20462) * CG) - (H * M)}
      \begin{itemize}
  \item \texttt{Q} = quantidade de copos, latas ou garrafas
  \item \texttt{T} = tamanho em ml do copo, lata ou garrafa (converte para libras na formula)
  \item \texttt{0.06} = um drinque padrão tem aproximadamente 6\% de etanol puro (uma cerveja de 350ml, uma taça de vinho de 150ml ou 45ml de uma dose de licor, cada um equivale a uma unidade de bebida padrão)
  \item \texttt{100*1.055} = compensação pela gravidade específica do sangue
  \item \texttt{P} = peso em kg (converte para onças na formula)
  \item \texttt{CG} = constante de gênero

  \begin{itemize}
    \item mulher: 0.55
    \item homem: 0.68 
  \end{itemize}
  \item \texttt{H} = horas bebendo
  \item \texttt{M} = metabolismo

  \begin{itemize}
    \item mulher: 0.017
    \item homem: 0.015 
  \end{itemize}
  \end{itemize}


Fontes:

\url{https://saude.estadao.com.br/noticias/geral,consumo-de-alcool-cai-no-brasil-mas-deve-voltar-a-subir-ate-2025-segundo-oms,70002512597}

\url{https://saude.abril.com.br/medicina/consumo-de-alcool-cai-11-no-brasil-mas-aumenta-entre-jovens-e-idosos/}

\url{http://www.cisa.org.br/artigo/10049/relatorio-global-sobre-alcool-saude-2018.php}

\url{https://pt.wikihow.com/Encontrar-o-Teor-de}-Álcool-no-Sangue-(Fórmula-de-Widmark)

\url{http://nonio.ese.ipsantarem.pt/avemurca/file.php/286/t5-_tiago_Taxa_de_alcoolemia.pdf}

\paragraph{\texorpdfstring{Planejamento da função}{Planejamento da funao}}
\label{sec:planejamento_da_funao2}


Entrada: \texttt{txalcool}(sex, p, q, ml, hr)

\textbf{-Input}
      \begin{itemize}
  \item \texttt{sex} = sexo: 

  \begin{itemize}
    \item m: mulher
    \item h: homem
  \end{itemize}
  \item \texttt{p} = peso em kg
  \item \texttt{q} = quantidade de bebidas por copo, lata ou garrafa 
  \item \texttt{ml} = quantidade de ml em relação ao copo, lata ou garrafa 
  \item \texttt{hr} = número de horas em que está consumindo a bebida
\end{itemize}


\paragraph{\texorpdfstring{Verificando os parâmetros}{Verificando os parametros}}
\label{sec:verificando_os_parametros2}

\begin{itemize}
  \item \texttt{sex} = classe character 
  \item \texttt{p} = classe numeric
  \item \texttt{q} = classe character
  \item \texttt{ml} = classe numeric 
  \item \texttt{hr} = classe numeric
\end{itemize}


\paragraph{\texorpdfstring{Pseudo-código}{Pseudocodigo}}
\label{sec:pseudocodigo2}

\begin{itemize}
  \item Verificar os parametros
  \item Se for mulher, o valor de CG será de 0.55
  \item Se for homem, o valor de CG será de 0.68
  \item Se for mulher, o valor de M será de 0.017
  \item Se for homem, o valor de M será de 0.015
  \item Inserir os valores na formula
  \item Calcular o tempo para zerar o álcool no sangue (BAC/M) 
\end{itemize}


\textbf{-Output}

Um resultado dizendo qual é a taxa de álcool no sangue e quantas horas irá demorar para zera-la.

Olá Érika

Sua proposta A parece bem interessante, mas eu tenho algumas perguntas:

1. Por que a ordem numerica das áreas é mais relevante que a separação qualitativa entre migração, alimentação e reprodução?

2. Como a função vai lidar com diferentes indivíduos? Por exemplo, como ela vai saber que o indivíduo 1 está se comportando como se estivesse se alimentando, mas o indivíduo 2 está se movimentando como se estivesse migrando? O output deixaria essa variação entre indivíduos clara?

Pelo que entendi de sua proposta B (corrija-me se eu estiver errado, por favor) essa proposta parece essencialmente aplicar uma fórmula, e não parece usar muito do controle de fluxo (que e necessário para a função no contexto da disciplina). A proposta do tempo necessário p/ zerar a taxa de alcool é muito legal, mas mesmo assim será que não é possível incluir mais opções de controle de fluxo na proposta? 

Isso poderia ser feito, por exemplo, permitindo que o usuário ,,inputasse" um data.frame com diferentes quantidades de cada tipo de bebida (p.e. 3 shots de tequila + 2 doses de uísque + 2 latas 269ml + uma lata 350ml de cerveja)

obs: se vc decidir pela proposta B e pela minha sugestão, tente manter o tipo de input que eu sugeri por dois motivos: (1) ele usa a ,,linguagem do usuário" e dois ele permite que vc demonstre que possui conhecimento sobre controle de fluxo. Usar a quantidade de alcool diretamente provavelmente deve resultar na falta de necessidade de controle de fluxo.

De qualquer forma, acredito que sua proposta A está bem perto de estar adequada à proposta do trabalho (tente ver a possibilidade de fazer as inclusões que eu pedi) e portanto acho que é tranquilo você começar por ela. 
A proposta B também tem potencial mas você precisa lembrar da necessidade do controle de fluxo.

Se quiser conversar mais sobre as funções (ou pedir conselhos, dicas etc) é só escrever aqui que pretendo revisar esta página dia 20/06. Vc tbm pode me mandar uma mensagem por whatsapp (11) 9-9199-3842. 

Matheus Januario

\href{http://ecor.ib.usp.br/doku.php?id=05_curso_antigo:r2019:alunos:trabalho_final:erika.coelho:trabalho_final}{.:Trabalho final}

\end{document}
