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



\section{\texorpdfstring{Rafael Sposito}{Rafael Sposito}}
\label{sec:rafael_sposito}


Mestrando em Ciência Ambiental, USP. 
Área de interesse: Ecologia Florestal; Manejo de Produtos Florestais Não Madeireiros; Comunidades Tradicionais.

\href{media/bie5782/01_curso_atual/alunos/trabalho_final/rafaelsposito/ex7-23.r}{ex7-23.r}\href{media/bie5782/01_curso_atual/alunos/trabalho_final/rafaelsposito/ex6.r}{ex6.r}\href{media/bie5782/01_curso_atual/alunos/trabalho_final/rafaelsposito/ex5.r}{ex5.r}
\href{media/bie5782/01_curso_atual/alunos/trabalho_final/rafaelsposito/ex4.r}{ex4.r}\}\}
\href{media/bie5782/01_curso_atual/alunos/trabalho_final/rafaelsposito/ex8-2.r}{ex8-2.r}

\textbf{Proposta do trabalho final}

Plano A

Criar uma função para avaliar a viabilidade do manejo de diferentes produtos florestais não madeireiros (pfnm) como alternativa de geração de renda em comunidades ribeirinhas/indígenas(populações tradicionais). A função deverá calcular/estimar: (i) a quantidade de horas de trabalho necessária e (ii) a quantidade de pfnm que deve ser comercializada para que um determinado
valor de renda monetária seja alcançado. Para isso, deve ser utilizado na função o seguinte conjunto de dados: preço praticado nos mercados locais dos pfnms que se quer comercializar(preço por quilo/saca/etc. - dependendo como o produto é negociado localmente); tempo necessário para coletar uma unidade - quilo/saca/etc. - do pfnm; renda monetária desejada. Lembrar que os custos da atividade de manejo com mão-de-obra e equipamentos de trabalho devem ser considerados para o cáculo da renda desejada (renda líquida). A função poderá ser aplicada tanto para um único pfnm, como para vários pfnms simultaneamente. Como resultado, a
função deverá apresentar a quantidade de horas de trabalho necessária e a quantidade de pfnms que devem ser comercializadas, fatores imprescindíveis para avaliar a viabilidade do manejo de pfnms.

Plano B

Criar uma função para estimar o potencial de produção de frutos de populações naturais. Os dados de entrada seriam (i) a quantidade de fruto que um indivíduo adulto produz em média e (ii) sua densidade (indivíduos/ha). O dado de saída da função seria a quantidade de frutos/ha (potencial de produção de frutos). 

\paragraph{\texorpdfstring{comentário Melina}{comentario Melina}}
\label{sec:comentario_melina}


OLÁ, MELINA. OBRIGADO PELA RESPOSTA. RESPONDI DIRETAMENTE AO LONGO DE SEU COMENTÁRIO.

O seu plano A parece bem factível, apesar de eu ter ficado um pouco confusa. Vê se eu entendi, os argumentos que você vai dar para a função são: preço unitário do produto, tempo de coleta por unidade, renda desejada, investimento inicial(custo mão de obra, equipamentos).(ISSO MESMO!) E o que vc espera de saída é: tempo necessário de trabalho e quantidade de produto comercializado para atingir a renda desejada.(EXATO!) Bom, acho que os cálculos para isso são simples, né? Um questão crucial é a unidade a ser trabalhada e a conformidade com as entradas e saídas, por exemplo se vc vai fazer os cálculos por pessoa, por cooperativa, etc. (CORRETO. PENSEI E FAZER POR PESSOA). Para aplicar a função para mais de um pfnm, vc tem que prestar atenção aos tipos de objetos que serão usados nos argumentos (vetores por exemplo) e garantir que a função faça os cálculos corretos para cada produto separadamente. Por exemplo, se vc tem 2 produtos em que os preços, o tempo de coleta e os custos são diferentes, mas a renda desejada é a mesma, tem que garantir que sua função faça as operações de maneira correta.(EXATAMENTE. A IDEIA É TER UMA FUNÇÃO QUE SEJA VERSÁTIL, NO SENTIDO DE ESTIMAR A CONTRIBUIÇÃO QUE DIFERENTES PRODUTOS, NUMA MESMA COMUNIDADE, PODEM DAR PARA COMPOR UMA DETERMINADA RENDA MONETÁRIA DESEJADA). Um incremento nos dados de saída da função poderiam ser a diferença entre as horas necessárias e quantidade de produtos comercializados, se vc colocar mais de um produto para ser calculado (apenas uma sugestão de incremento)(LEGAL!). Este resultado poderia ser interessante se houvesse a necessidade de escolha de um produto focal para comercialização. Tente também tornar a função o mais generalizada possível em relação aos dados q vc insere e os possíveis resultados.

No plano B não fui capaz de entender bem como seria a função. Quais os argumentos de entrada? densidade da espécie por unidade de área, valor do fruto por alguma unidade, estrutura da população(?). Na saída vc quer a quantidade de frutos por unidade de área? como vc calcularia isso com base nos dados de entrada? Para quê serviria o valor do fruto para o cálculo da quantidade de frutos por unidade de área? será necessário criar uma função para tirar esta medida? (REESCREVI O PLANO B, ACHO QUE AGORA ESTÁ MAIS CLARO. NA VERDADE, TRATA-SE DE UMA FUNÇÃO EXTREMAMENTE SIMPLES QUE ENVOLVERIA BASICAMENTE UM CÁLCULO DE MULTIPLICAÇÃO.)

\textbf{Código da Função pfnm.viab}\lstset{frame=single}
\begin{lstlisting}

pfnm.viab=function(x)
{
 stopifnot(is.data.frame(x))  #não aceitar outro argumento que não um dataframe.
 prc.lqd=x[,3]-x[,6] #calculando o preço líquido de uma unidade comercial do produto.
 quantidade=x[,1]/prc.lqd #calculando a quantidade do produto a ser vendida para obter a renda desejada.
 esforço=x[,4]+x[,5]*quantidade  #calculando o tempo de trabalho, em horas, para coletar a quantidade calculada.
 investimento=x[,6]*quantidade #calculando o investimento financeiro necessário para coletar a quantidade calculada.
 viabilidade=rank(quantidade+esforço+investimento) #ranqueando a ordem de viabilidade
 x$quantidade=quantidade  #adicionando colunas com os novos valores no data frame.
 x$esforço=esforço
 x$investimento=investimento
 x$viabilidade=viabilidade
 resulta=x
 return(resulta)
 }

\end{lstlisting}



\textbf{Página de Ajuda/Help}

pfnm.viab	 package:nenhum               R Documentation

Viabilidade do manejo comercial de produtos florestais não madeireiros (pfnms).

Description:

Dada a renda monetária que se deseja obter com a comercialização de determinados produtos florestais não madeireiros, a função calcula, para cada produto: (i) o número de unidades comerciais (saca/caixa/litro/etc.) que deverá ser comercializado para alcançar a renda desejada, (ii) o número de horas de trabalho (esforço) necessário para produzir o número de unidades comerciais calculado e (iii) o investimento financeiro (custo de mão-de-obra) necessário para produzir o número das unidades comerciais calculado. A partir dos valores calculados, a função indica a ordem de viabilidade para o manejo comercial de cada produto apresentado à função.

Usage:

pfnm.viab(x)

Arguments:

x	Um objeto do R. Deve ser um data frame (tabela de dados) com os seguintes componentes: coluna 1: renda monetária desejada (a mesma para os diferentes produtos); coluna 2: produto florestal não madeireiro; coluna 3: preço de mercado de uma unidade comercial (saca/litro/caixa/etc.) do produto; coluna 4: número de horas gasto no deslocamento até a área de coleta do produto; coluna 5: número de horas gasto na coleta de uma unidade comercial; coluna 6: investimento financeiro necessário para produzir uma unidade comercial.

Value:

pfnm.viab retorna o data frame fornecido à função, com as seguintes colunas adicionais:
\begin{verbatim}
quantidade		número de unidades comerciais (e.g. saca/caixa/litro) do produto a ser vendida para obter a renda monetária desejada.
esforço		número de horas necessário (tempo de trabalho) para coletar a quantidade a ser vendida para obter a renda monetária desejada.
investimento	valor monetário do investimento financeiro necessário para coletar a quantidade a ser vendida para obter a renda monetária desejada.
viabilidade		ordem de viabilidade para o manejo comercial, calculado a partir do somatório dos valores de quantidade, esforço e investimento calculado para cada produto. Quanto menor o resultado do somatório, maior a viabilidade - representada pelo número 1 - e assim por diante.
\end{verbatim}


Warning:

O argumento fornecido à função deve ser obrigatoriamente um data frame, respeitando a ordem das colunas conforme indicado no argumento da função.

Author:

Rafael de Carvalho Sposito

carvalhosposito@gmail.com

Examples:

ren=1000 \#renda monetaria desejada;

pfnm=c(,,fruto de açai",,,óleo de copaíba",,,castanha do brasil") \#produtos florestais não madeireiros;

prc=c(40,30,50) \#valor monetário de uma unidade comercial do produto (saca/litro/caixa);

t.des=c(1,3,2) \#tempo gasto (em horas) no deslocamento até a área de coleta do produto;

t.col=c(2,0.4,3) \#tempo gasto (em horas) na coleta de uma unidade comercial;

inv=c(8,3,6) \#investimento financeiro necessário para coletar uma unidade (custo de mão-de-obra);

x=data.frame(ren,pfnm,prc,t.des,t.col,inv) \#criando o data frame com os objetos de interesse

pfnm.viab(x) \#gera o data frame x com as quatro novas colunas de interesse (quantidade, esforço, investimento, viabilidade).

\end{document}
