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



\section{\texorpdfstring{Marianne Azevedo Silva}{Marianne Azevedo Silva}}
\label{sec:marianne_azevedo_silva}


\centering\includegraphics[keepaspectratio=true,width=0.8\textwidth]{bie5782/01_curso_atual/alunos/trabalho_final/azevedosilva.m/foto}


Sou Graduada em Ciências Biológicas pela UNICAMP e mestre pelo Programa de Pós Graduação em Ecologia da UNICAMP sob orientação do Prof. Paulo S. Oliveira. Atualmente sou doutoranda pelo mesmo Programa e orientador. Tenho minha formação voltada a ecologia molecular. Em minhas pesquisas tenho especial interesse em descrever os padrões locais de distribuição da diversidade genética intraespecífica, bem como entender os fatores que a determinam e a mantém em sistemas naturais. Atualmente, o sistema biológico com a qual trabalho inclui formigas do Cerrado, embora também tenha interesse em outros sistemas.

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



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



\subsection{\texorpdfstring{I. Meus Exercícios}{I Meus Exercicios}}
\label{sec:i_meus_exercicios}


Link para a página com os meus exercícios resolvidos \href{http://ecor.ib.usp.br/doku.php?id=05_curso_antigo:r2018:alunos:trabalho_final:azevedosilva.m:exec}{.:exec}

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



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



\subsection{\texorpdfstring{II. Trabalho Final - Propostas}{II Trabalho Final  Propostas}}
\label{sec:ii_trabalho_final__propostas}


\subsubsection{\texorpdfstring{II.I Proposta A: Suficiência amostral em trabalhos com diversidade genética}{III Proposta A Suficiencia amostral em trabalhos com diversidade genetica}}
\label{sec:iii_proposta_a_suficiencia_amostral_em_trabalhos_com_diversidade_genetica}


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


Tamanho amostral adequado é essencial em qualquer estudo empírico cujo objetivo seja fazer inferências sobre a população a partir de uma amostragem\footnote{Fonte: \url{https://en.wikipedia.org/wiki/Sample_size_determination}}. Em geral, avaliar a suficiência amostral é uma prática frequente em trabalhos de ecologia. No entanto, em outras áreas, como genética de populações, tal abordagem ainda é dificilmente incorporada às análises de dados. Alguns trabalhos tem buscado estabelecer generalizações a respeito do tamanho amostral adequado para estimativa de diversidade genética das populações (e.g. Hale \emph{et al.} 2012). Apesar desse esforço, é sabido que essa suficiência amostral pode variar com o tipo de marcador molecular, nível de polimorfismo dos \emph{loci} e história natural das espécies. Sendo assim, esta proposta tem como objetivo desenvolver uma função que permita aos pesquisadores interessados em genética de populações avaliar se, dado o conjunto de \emph{loci} microssatélites genotipado, seu esforço amostral foi suficiente para inferir a diversidade genética das populações ou grupos de indivíduos diplóides sob estudo.

\paragraph{\texorpdfstring{Planejamento da Função}{Planejamento da Funao}}
\label{sec:planejamento_da_funao}


\textbf{Entrada:} sample.suff (dados, \texttt{col.ID},  \texttt{col.pop}, \texttt{col.loci}, \texttt{na.code}, \texttt{IC.plot}, \texttt{gen.div}, \texttt{nsim})
\begin{itemize}
  \item  dados = data frame no qual cada linha corresponde a um indivíduo e as colunas possuem informação da identificação do indivíduo, identificação da população e alelos dos \emph{loci} genotipados
  \item \texttt{col.ID} = número da coluna com identificação dos indivíduos (classe: integer, \texttt{col.ID}\textgreater 0)
  \item \texttt{col.pop} = número da coluna com identificação da população a qual o indivíduo pertence (classe: integer, \texttt{col.pop}\textgreater 0)
  \item \texttt{col.loci} = intervalo que corresponde às colunas correspondentes aos \emph{loci} (classe: integer, \texttt{col.loci}\textgreater 0)
  \item \texttt{na.code} = código utilizado para dados faltantes
  \item \texttt{IC.plot} = vetor lógico (TRUE/FALSE) indicando se intervalos de confiança devem ser plotados
  \item \texttt{gen.div} = estimativa de diversidade genética a ser calculada, podendo ser: Heterozigosidade esperada e observada (He e Ho, respectivamente), riqueza alélica (Ar) ou riqueza de alelos privados (pA) (classe: character)
  \item \texttt{nsim} = número de simulações (classe: integer, \texttt{nsim}\textgreater 0)
  \item \underline{Observação}: Caso haja tempo disponível, pretende-se colocar na função o argumento \texttt{mol.marker}, o qual permitirá escolher entre marcadores microssatélites e marcadores SNPs 
\end{itemize}


\textbf{Verificando os parâmetros}
\begin{itemize}
  \item dados é da classe data.frame com 1 indivíduo por linha? Se não, pára e escreve: ,,Objeto de entrada deve ser um data.frame com um indivíduo por linha"
  \item \texttt{col.ID}, \texttt{col.pop} e \texttt{col.loci} são números inteiros e maiores que zero? Se não, pára e escreve: ,,col.ID, col.pop e col.loci devem ser números inteiros maiores que zero"
  \item cada \emph{locus} está organizado em duas colunas, uma para cada alelo? Se não, pára e escreve ,,Cada \emph{locus} deve estar organizado em duas colunas correspondentes aos alelos. Por exemplo (colocar uma linha de exemplo)"
  \item \texttt{IC.plot} é um vetor lógico? Se não, pára e escreve: ,,IC.plot deve ser um vetor lógico (TRUE/FALSE)"
  \item \texttt{gen.div} é um objeto da classe character com uma das opções de estimativa de diversidade genética (He, Ho, Ar, pA)? Se não, pára e escreve: ,,gen.div deve ser uma das opções: ,,He", ,,Ho", ,,Ar", ,,pA" "
  \item \texttt{nasim} é um número inteiro maior que zero? Se não, pára e escreve: ,,nasim deve ser um número inteiro maior que zero"

  \begin{itemize}
    \item Se \texttt{nasim} for menor que 1000, continua, mas dá um warning: ,,Um número baixo de simulações pode afetar seus resultados!"
  \end{itemize}
  \end{itemize}


\textbf{Pseudo-código}
      \begin{enumerate}
  \item Carregar pacotes necessários (PopGenReport\footnote{\url{https://cran.r-project.org/web/packages/PopGenReport/index.html}} e Adegenet\footnote{\url{https://cran.r-project.org/web/packages/adegenet/index.html}})
  \item Transformar \texttt{dados} (data frame) em objeto genind (para isso, os argumentos \texttt{col.ID}, \texttt{col.pop} e \texttt{col.loci} serão usados
  \item Criar um objeto \texttt{simula.allpop} como sendo uma lista vazia (permite inserção de quantos objetos forem necessários dentro da lista)
  \item Entrar em um ciclo (1) \texttt{for} com contador \texttt{i} de 1 até o número total de populações. Ou seja, para cada população irá fazer:

  \begin{enumerate}
    \item Criar objeto \texttt{simula.media} com NAs correspondente ao número de indivíduos da população
    \item Criar objeto \texttt{simula.ICsup} com NAs correspondente ao número de indivíduos da população
    \item Criar objeto \texttt{simula.ICinf} com NAs correspondente ao número de indivíduos da população
    \item Entrar em um ciclo (2) \texttt{for} com contador \texttt{j} de 1 até número de indivíduos da população

      \begin{enumerate}
      \item Criar objeto \texttt{simula.nind} com NAs correspondente a \texttt{nsim}
      \item Entrar em um ciclo(3) 'for' com contador \texttt{k} de 1 até \texttt{nsim}

          \begin{enumerate}
        \item simular a estimativa escolhida de \texttt{gen.div} para uma subamostragem de tamanho \texttt{j} da população (usar função sample com size=j e replace=T). Cada simulação é armazenada no objeto\texttt{simula.nind} na posição \texttt{k}
      \end{enumerate}
      \item Armazenar a média de \texttt{simula.nind} no objeto \texttt{simula.media} na posição \texttt{j}
      \item Armazenar o intervalo de confiança superior de \texttt{simula.nind} no objeto \texttt{simula.ICsup} na posição \texttt{j}
      \item Armazenar o intervalo de confiança inferior de \texttt{simula.nind} no objeto \texttt{simula.ICinf} na posição \texttt{j}
    \end{enumerate}
    \item Armazenar no objeto \texttt{simula.allpop} na posição \texttt{i} um data frame com 5 colunas sendo elas: \underline{numero de individuos amostrados} (de 1 até número total de indivíduos na população), \underline{populacao} (nome da população repetido em todas as linhas), \underline{media} (médias armazenadas no objeto \texttt{simula.media}), \underline{ICsup} (intervalos de confiança superiores armazenados no objeto \texttt{simula.ICsup}), \underline{ICinf} (ntervalos de confiança inferiores armazenados no objeto \texttt{simula.ICinf})
  \end{enumerate}
  \item Juntar todos os data frames do objeto \texttt{simula.allpop} em um único data frame \texttt{gen.div.rarefaction}
  \item Plotar gráfico da estimativa de diversidade genética em função do número de indivíduos. Para o plot usar: (i) função layout() - no lado esquerdo o gráfico e no direito legenda com as cores de cada população; (ii) uma cor para cada população
  \item Se \texttt{IC.plot} for igual a TRUE, plotar no gráfico as linhas correspondentes aos intervalos de confiança superiores e inferiores das simulações. Nesse caso, as linhas devem ser da cor da população correspondente, mas com um tipo diferente. Legenda deve conter as cores das populações e o que cada tipo de linha indica.
  \item Retornar uma lista sendo que o primeiro objeto é a estimativa de diversidade genética observada para as populações e o segundo objeto é o data frame \texttt{gen.div.rarefaction}
\end{enumerate}


\textbf{Saída}
\begin{itemize}
  \item Gráfico com estimativa de diversidade genética em função do tamanho amostral simulado da população (podendo ou não apresentar o intervalo de confiança das simulações)
  \item Objeto da classe list (\texttt{gen.div.rarefaction}), contendo, para cada população, a média e os intervalos de confiança superior e inferior da estimativa de diversidade genética em cenários simulados com diferentes números de indivíduos.
\end{itemize}


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

 Comentários Vitor Rios
Mariana, parabéns pelas propostas, bem pensadas e bem estruturadas. Você pode seguir com qualquer uma das duas, mas eu gostei mais da primeira, me parece que seria útil para quem trabalha com genética de populações
\href{mailto:vrios81@gmail.com}{Vitor}
 Resposta aos Comentários
Oi Vitor! Obrigada por ler as propostas e pelo feedback! Vou seguir com a primeira proposta. Em caso de dúvidas, escrevo para você =)


\subsubsection{\texorpdfstring{II.II Proposta B: Adequação alimentar}{IIII Proposta B Adequaao alimentar}}
\label{sec:iiii_proposta_b_adequaao_alimentar}


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


A população brasileira tem sido, com alta frequência, alvo de doenças como desnutrição, obesidade, diabetes e hipertensão, todas amplamente associadas a hábitos alimentares inadequados. Frente a isso, esforços governamentais tem sido aplicados a fim de de orientar os brasileiros a terem uma alimentação mais saudável e com escolhas alimentares adequadas. Para atingir esse objetivo, o Ministério da Saúde lançou o ,,Guia alimentar para uma alimentação saudável"\footnote{\url{http://bvsms.saude.gov.br/bvs/publicacoes/guia_alimentar_populacao_brasileira_2008.pdf}}\footnote{\url{http://189.28.128.100/dab/docs/portaldab/publicacoes/guia_alimentar_bolso.pdf}}, o qual é atualizado periodicamente. Com o intuito de auxiliar a adequação alimentar de brasileiros adultos, essa proposta tem a finalidade de desenvolver uma função que avalie se uma pessoa:
\begin{enumerate}
  \item está dentro do limite de peso ideal para seu sexo e altura
  \item está tendo uma ingestão adequada de macronutrientes segundo as diretrizes da Organização Mundial da Saúde (diretrizes estas também presentes no guia alimentar do Ministério da Saúde)
\end{enumerate}


Caso o peso e alimentação não estejam de acordo com as estimativas ideais, e se for do desejo da usuário, a função pode retornar um objeto com sugestões de consumo diário variado para uma alimentação saudável que esteja de acordo com as orientações do Ministério da Saúde. 

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


\textbf{Entrada:} adeq.alimentar (recordatorio.semanal, \texttt{peso}, \texttt{altura}, \texttt{idade}, \texttt{sexo}, \texttt{ativ.fisica}, \texttt{cardapio})
\begin{itemize}
  \item recordatorio.semanal = data frame com o recordatório de ao menos uma semana (7 dias) da alimentação do usuário. Cada linha deve corresponder a um dia da semana e deve haver 5 colunas, sendo elas: \underline{n.refeicoes} (número de refeições feitas no dia), \underline{P} (quantidade de proteínas ingeridas no dia), \underline{L} (quantidade de lipídios ingeridos no dia), \underline{C} (quantidade de carboidratos complexos ingeridos no dia) e \underline{A} (quantidade de açucar livre consumido no dia). As colunas de P a A devem estar em unidade de quilocalorias (usuário pode ser basear no Anexo C \href{http://bvsms.saude.gov.br/bvs/publicacoes/guia_alimentar_populacao_brasileira_2008.pdf}{deste guia} para montar seu data frame).
  \item \texttt{peso} = massa do usuário em quilogramas (classe: numeric, \texttt{peso}\textgreater 0)
  \item \texttt{altura} = altura do usuário em metros (classe: numeric, \texttt{altura}\textgreater 0)
  \item \texttt{idade} = idade do usuário em anos (classe: integer, 19\textless \texttt{idade}\textless 65)
  \item \texttt{sexo} = sexo do usuário (classe: character, devendo ser ,,H" para homens ou ,,M" para mulheres)
  \item \texttt{ativ.fisica} = intensidade da atividade física realizada pelo usuário (classe: character, podendo ser ,,sedentario", ,,pouco ativo", ,,ativo" ou ,,muito ativo")
  \item \texttt{cardapio} = vetor lógico (TRUE/FALSE) indicando se sugestões de consumo diário variado para adequação alimentar devem ser geradas 
\end{itemize}


\textbf{Verificando parâmetros}
\begin{itemize}
  \item recordatorio.semanal é um data frame, contendo, pelo menos, 7 linhas e 5 colunas, tal que cada linha corresponde a um dia da semana e as colunas correspondem a \underline{n.refeicoes}, \underline{P}, \underline{L}, \underline{C} e \underline{A}? se não, pára e escreve: ,,Recordatório deve ser um data frame, onde cada linha corresponde a um dia da semana e as colunas devem seguir o seguinte formato: (colocar uma linha com um exemplo)"
  \item \texttt{peso} e \texttt{altura} são números maiores que zero? Se não, pára e escreve: “peso e altura devem ser números maiores que zero”
  \item \texttt{idade} é um némero inteiro maior que 19 e menor que 65? Se não, aparecer um warning: ,,Cálculos incluídos nesta função foram desenvolvidos para indivíduos adultos. Para crianças, adolescentes e idosos há cálculos específicos que não estão incluídos nessa função!"
  \item \texttt{sexo} é igual a \underline{,,H"} ou \underline{,,M"}? Se não, pára e escreve: ,,sexo deve ser H (para homens) ou M (para mulheres"
  \item \texttt{ativ.fisica} é um objeto da classe character com uma das opções de intensidade da atividade física (sedentario, pouco ativo, ativo ou muito ativo? Se não, pára e escreve: “ativ.fisica deve ser uma das opções: ,,sedentario", ,,pouco ativo", ,,ativo" ou ,,muito ativo" ”
  \item \texttt{cardapio} é um vetor lógico? Se não, pára e escreve: ,,cardapio deve ser um vetor lógico (TRUE/FALSE)"
\end{itemize}


\textbf{Pseudo-código}
\begin{enumerate}
  \item Estimar peso ideal \texttt{pi}\footnote{ \texttt{pi} = IMC desejável para adultos * \texttt{altura}\textsuperscript{2}} 

  \begin{enumerate}
      \item se \texttt{sexo} = ,,H", IMC desejável = 22 Kg/m\textsuperscript{2}
      \item se \texttt{sexo} = ,,M", IMC desejável = 21 Kg/m\textsuperscript{2}
    \end{enumerate}
  \item Estimar adequação de peso \texttt{ap} $\Rightarrow$ \texttt{ap} = (\texttt{peso}/\texttt{pi})*100
  \item Plotar \texttt{peso} e \texttt{pi} com intervalos de confiança de mais ou menos 10\% de \texttt{pi}\footnote{variação de \texttt{pi} que ainda é considerada como peso ideal}

  \begin{enumerate}
    \item se \texttt{ap} ≤ 70, colocar um texto no gráfico ,,Desnutrição grave"
    \item se   70.1 ≤ \texttt{ap} ≤ 80, colocar um texto no gráfico ,,Desnutrição moderada"
    \item se 80.1 ≤ \texttt{ap} ≤ 90, colocar um texto no gráfico ,,Desnutrição leve"
    \item se 90.1 ≤ \texttt{ap} ≤ 110, colocar um texto no gráfico ,,Eutrofia (dentro do peso ideal)"
    \item se 110.1 ≤ \texttt{ap} ≤ 120, colocar um texto no gráfico ,,Soprepeso"
    \item se \texttt{ap} \textgreater  120, colocar um texto no gráfico ,,Obesidade"
  \end{enumerate}
  \item Substituir a string de \texttt{ativ.fisica} por valor correspondente

  \begin{enumerate}
    \item se \texttt{sexo} = ,,H":

      \begin{enumerate}
      \item se \texttt{ativ.fisica} = ,,sedentario" substitui pelo valor 1
      \item se \texttt{ativ.fisica} = ,,pouco ativo" substitui pelo valor 1.11
      \item se \texttt{ativ.fisica} = ,,ativo" substitui pelo valor 1.25
      \item se \texttt{ativ.fisica} = ,,muito ativo" substitui pelo valor 1.48
    \end{enumerate}
    \item se \texttt{sexo} = ,,M":

      \begin{enumerate}
      \item se \texttt{ativ.fisica} = ,,sedentario" substitui pelo valor 1
      \item se \texttt{ativ.fisica} = ,,pouco ativo" substitui pelo valor 1.12
      \item se \texttt{ativ.fisica} = ,,ativo" substitui pelo valor 1.27
      \item se \texttt{ativ.fisica} = ,,muito ativo" substitui pelo valor 1.45
    \end{enumerate}
    \end{enumerate}
  \item Calcular necessidade de energia estimada \texttt{nee} para o \texttt{peso}

  \begin{enumerate}
    \item se \texttt{sexo} = ,,H" usar a fórmula: 662 - (9.53 * \texttt{idade}) + \texttt{ativ.fisica} * (15.9 * \texttt{peso}) + (539.6 * \texttt{altura})
    \item se \texttt{sexo} = ,,M" usar a fórmula: 354 - (6.91 * \texttt{idade}) + \texttt{ativ.fisica} * (9.36 * \texttt{peso}) + (726 * \texttt{altura})
  \end{enumerate}
  \item Calcular média de \texttt{recordatorio.semanal\$n.refeicoes} e armazenar no objeto \texttt{mean.n.refeicoes}
  \item Fazer um teste t para ver se \texttt{mean.n.refeicoes} é significativamente diferente de 5\footnote{número ideal de refeições ao dia(café, lanche da manhã, almoço, lanche da tarde e janta}

  \begin{enumerate}
    \item se teste t for significativo, escrever na tela ,,Você deve ajustar seu número de refeições para 5 refeições ao dia, incluindo café da manhã, lanche da manhã, almoço, lanche da tarde e janta"
  \end{enumerate}
  \item Calcular intervalos de confiança superior e inferior da média das porcentagens diárias de \texttt{recordatorio.semanal\$P} em relação a \texttt{nee} e armazenar nos objetos \texttt{ICsup.p} e \texttt{ICinf.p}, respectivamente

  \begin{enumerate}
    \item se \texttt{ICsup.p} e \texttt{ICinf.p} estiverem contidos no intervalo de 15\% a 20\%\footnote{consumo diário de proteínas em relação ao NEE segundo a OMS}, escrever ,,Seu consumo diário de proteínas está bom!"
    \item caso contrário, escrever ,,Seu consumo diário de proteínas precisa ser ajustado"
  \end{enumerate}
  \item Calcular intervalos de confiança superior e inferior da média das porcentagens diárias de \texttt{recordatorio.semanal\$L} em relação a \texttt{nee} e armazenar nos objetos \texttt{ICsup.l} e \texttt{ICinf.l}, respectivamente

  \begin{enumerate}
    \item se \texttt{ICsup.l} e \texttt{ICinf.l} estiverem contidos no intervalo de 20\% a 30\%\footnote{consumo diário de lipídios em relação ao NEE segundo a OMS}, escrever ,,Seu consumo diário de lipídios está bom!"
    \item caso contrário, escrever ,,Seu consumo diário de lipídios precisa ser ajustado"
  \end{enumerate}
  \item Calcular intervalos de confiança superior e inferior da média das porcentagens diárias de \texttt{recordatorio.semanal\$C} em relação a \texttt{nee} e armazenar nos objetos \texttt{ICsup.c} e \texttt{ICinf.c}, respectivamente

  \begin{enumerate}
    \item se \texttt{ICsup.c} e \texttt{ICinf.c} estiverem contidos no intervalo de 45\% a 65\%\footnote{consumo diário de carboidratos complexos em relação ao NEE segundo a OMS}, escrever ,,Seu consumo diário de carboidratos complexos está bom!"
    \item caso contrário, escrever ,,Seu consumo diário de carboidratos complexos precisa ser ajustado"
  \end{enumerate}
  \item Calcular intervalos de confiança superior e inferior da média das porcentagens diárias de \texttt{recordatorio.semanal\$A} em relação a \texttt{nee} e armazenar nos objetos \texttt{ICsup.a} e \texttt{ICinf.a}, respectivamente

  \begin{enumerate}
    \item se \texttt{ICsup.a} e \texttt{ICinf.a} estiverem contidos no intervalo de 0\% a 10\%\footnote{consumo diário de açucares simples em relação ao NEE segundo a OMS}, escrever ,,Seu consumo diário de açucares simples está bom!"
    \item caso contrário, escrever ,,Seu consumo diário de açucares simples precisa ser ajustado"
  \end{enumerate}
  \item Se \texttt{cardapio} = TRUE

  \begin{enumerate}
    \item Carregar uma base de dados de alimentos disponibilizado no Anexo C \href{http://bvsms.saude.gov.br/bvs/publicacoes/guia_alimentar_populacao_brasileira_2008.pdf}{deste guia}\footnote{será reorganizada em um único data frame que inclua uma coluna \texttt{\$tipo} correspondente ao grupo de alimentos}     
    \item Calcular necessidade de energia estimada ideal \texttt{nee.ideal} para o \texttt{pi}

      \begin{enumerate}
      \item se \texttt{sexo} = ,,H" usar a fórmula: 662 - (9.53 * \texttt{idade}) + \texttt{ativ.fisica} * (15.9 * \texttt{pi}) + (539.6 * \texttt{altura})
      \item se \texttt{sexo} = ,,M" usar a fórmula: 354 - (6.91 * \texttt{idade}) + \texttt{ativ.fisica} * (9.36 * \texttt{pi}) + (726 * \texttt{altura})
    \end{enumerate}
    \item criar um objeto \texttt{sugestoes.diarias} da classe lista vazio
    \item se 90.1 ≤ \texttt{ap} ≤ 110, entrar em um ciclo \texttt{for} com contador \texttt{i} de 1 até 7

      \begin{enumerate}
      \item para cada \texttt{i} amostrar alimentos (com reposição) tal que a soma total de kcal seja igual a \texttt{nee} e cuja partição respeite as porcentagens de cada grupo de alimentos sugeridas pelo Ministério da saúde\footnote{45\% cereais/tubérculos/raízes; 3\% feijões; 11\% frutas; 3\% legumes e verduras; 18\% leite e derivados; 10\% carnes e ovos; 4\% óleo e gordura; 6\% açucares simples}. Armazenar cada ciclo em \texttt{sugestoes.diarias[i]}
    \end{enumerate}
    \item se \texttt{ap} \textless  90,  entrar em um ciclo \texttt{for} com contador \texttt{i} de 1 até 7

      \begin{enumerate}
      \item para cada \texttt{i} amostrar alimentos (com reposição) tal que a soma total de kcal seja igual a \texttt{nee.ideal}+ 500 cal e cuja partição respeite as porcentagens de cada grupo de alimentos sugeridas pelo Ministério da saúde. Armazenar cada ciclo em \texttt{sugestoes.diarias[i]}
    \end{enumerate}
    \item se \texttt{ap} \textgreater  110, entrar em um ciclo \texttt{for} com contador \texttt{i} de 1 até 7

      \begin{enumerate}
      \item para cada \texttt{i} amostrar alimentos (com reposição) tal que a soma total de kcal seja igual a \texttt{nee.ideal}- 500 cal e cuja partição respeite as porcentagens de cada grupo de alimentos sugeridas pelo Ministério da saúde. Armazenar cada ciclo em \texttt{sugestoes.diarias[i]}
    \end{enumerate}
    \end{enumerate}
  \item Retornar o objeto \texttt{sugestoes.diarias}
\end{enumerate}


\textbf{Saída}
\begin{itemize}
  \item Gráfico comparativo de peso atual do usuário com o peso ideal, com informação do nível de nutrição do usuário
  \item Impressões na tela com relação à adequação do consumo de macronutrientes do usuário em relação às diretrizes da OMS
  \item Objeto da classe list(\texttt{sugestoes.diarias}), contendo, para cada dia da semana, uma lista de sugestões de alimentos adequados para manutenção, ganho ou perda de peso do usuário e que respeita a proporção diária de cada grupo de alimento sugerida pelo Ministério da Saúde.
\end{itemize}


\textbf{Observações adicionais:} Dadas as condições que devem ser respeitadas em cada ciclo \texttt{for} da proposta B e minhas limitações como usuária do R, para desenvolver tais ciclos provavelmente será necessário ajuda dos monitores. Por isso, os ciclos não estão bem desenvolvidos nesta proposta.  

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



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



\subsection{\texorpdfstring{III. Trabalho Final - Versão Final}{III Trabalho Final  Versao Final}}
\label{sec:iii_trabalho_final__versao_final}


\subsubsection{\texorpdfstring{III.I Proposta escolhida}{IIII Proposta escolhida}}
\label{sec:iiii_proposta_escolhida}


Link para a página com a proposta escolhida, incluindo alterações e respectivas justificativas: \href{http://ecor.ib.usp.br/doku.php?id=05_curso_antigo:r2018:alunos:trabalho_final:azevedosilva.m:func}{.:func}

\subsubsection{\texorpdfstring{III.II Código da função e arquivo da função}{IIIII Codigo da funao e arquivo da funao}}
\label{sec:iiiii_codigo_da_funao_e_arquivo_da_funao}


Link para a página com o código e o arquivo da função: \href{http://ecor.ib.usp.br/doku.php?id=05_curso_antigo:r2018:alunos:trabalho_final:azevedosilva.m:cod}{.:cod}

\subsubsection{\texorpdfstring{III.III Página de ajuda (help) da função}{IIIIII Pagina de ajuda help da funao}}
\label{sec:iiiiii_pagina_de_ajuda_help_da_funao}


Link para a página com o help e o arquivo contendo o conjunto de dados de exemplo para executar a função: \href{http://ecor.ib.usp.br/doku.php?id=05_curso_antigo:r2018:alunos:trabalho_final:azevedosilva.m:help}{.:help}

\end{document}
