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



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


\section{\texorpdfstring{Shirley Famelli}{Shirley Famelli}}
\label{sec:shirley_famelli}


Doutoranda em Recursos Florestais, ESALQ/USP, plano de pesquisa intitulado: ,,Área de vida, uso e seleção de hábitat de Hydromedusa maximiliani (Testudines, Chelidae) no Parque Estadual Carlos Botelho, SP", sob orientação do Prof. Dr. Jaime Bertoluci.

\section{\texorpdfstring{Exercícios}{Exercicios}}
\label{sec:exercicios}


Linque para a página dos meus exercícios resolvidos: 

\section{\texorpdfstring{Proposta para o trabalho final}{Proposta para o trabalho final}}
\label{sec:proposta_para_o_trabalho_final}


Criar uma função para fazer análise alométrica de dados e que leve em consideração a colinearidade existente... fazer a análise e retirar o efeito de variáveis altamente correlacionadas.8-O

\section{\texorpdfstring{Comentários}{Comentarios}}
\label{sec:comentarios}


Dependendo do objetivo da análise alométrica, a colinearidade não é importante, por exemplo:  estimar a biomassa em função da altura e diâmetro de uma árvore. Falta a problematização: calcular o que para que? 
Sugestão: O problema não precisa ser simples, nem tampouco estatístico. Precisa ter coerência e ser bem apresentado: produzir uma tarefa (dados de saída) a partir dos ingredientes (dados de entrada).  
Faltou plano B!

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


Pensar em algo mais simples! :-|

\section{\texorpdfstring{Página de ajuda da função}{Pagina de ajuda da funao}}
\label{sec:pagina_de_ajuda_da_funao}
\lstset{frame=single}
\begin{lstlisting}
 
alo.reprod.r             package:nenhum                R Documentation



Plota regressões lineares entre a massa corpórea das fêmeas versus quatro variáveis biométricas dos filhotes, gerando um gráfico em jpg com alta definição que é salvo em sua área de trabalho.


Description:

Plota regressões lineares entre a massa corpórea das fêmeas versus quatro variáveis biométricas de seus filhotes/ovos (“Comprimento Médio dos Ovos", “Largura Média dos Ovos", “Volume Médio dos Ovos", “Volume Total da Ninhada"), tendo como saída um gráfico jpg com os quatro plots de relações.


Usage:

     alo.reprod(x)


Arguments:

x: data.frame que contenha na primeira coluna a massa corpórea das fêmeas (não incluir rótulos de dados nas colunas), seguida por quatro colunas com as variáveis biométricas dos filhotes/ovos, na seguinte sequência: “Comprimento Médio dos Ovos", “Largura Média dos Ovos", “Volume Médio dos Ovos" e “Volume Total da Ninhada".
 

Details:

A entrada de dados não deverá ser um data.frame e deverá seguir a seguinte sequência: “Massa Corpórea das Fêmeas", “Comprimento Médio dos Ovos", “Largura Média dos Ovos", “Volume Médio dos Ovos" e “Volume Total da Ninhada". 



Value:

Para cada variável biométrica dos filhotes/ovos é gerado um gráfico de sua relação com a massa corpórea das Fêmeas



Author(s):

Shirley Famelli

famelli@usp.br


References:

GAYON, J. History of the concept of allometry. American Zoologist, Cary, v. 40, p. 748-758, 2000.

REISS, M.J. The allometry of growth and reproduction. Cambridge University Press, 1991. 200 p.
FAMELLI,S. Ecologia reprodutiva e análise de viabilidade de uma população do cágado Hydromedusa maximiliani (Testudines, Chelidae) no Parque Estadual Carlos Botelho, SP. Dissertação (Mestrado em Ecologia Aplicada) - Escola Superior de Agricultura “Luiz de Queiroz", Universidade de São Paulo, São Paulo, 2009.


 
Examples:

Para iniciar, carregue seu data.frame no R, pois a função só funciona para essa classe de dados.

.................


alometria<- read.table("fêmeas_ovodas.csv", h=T, sep=",")

RODE A FUNÇÃO...

alo.reprod (alometria)

\end{lstlisting}



\section{\texorpdfstring{Código da Função}{Codigo da Funao}}
\label{sec:codigo_da_funao}
\lstset{frame=single}
\begin{lstlisting}

alo.reprod <- function(x)
		{
		jpeg(filename = "Relações Biométricas Fêmeas_Filhotes.jpg", quality = 100)
		par(mfrow= c(2,2))
		plot(x[,1]~x[,2], xlab="Massa Corpórea", ylab="Comprimento Médio dos Ovos")
		abline(lm(x[,1]~x[,2]),col="red", lty=2)
		plot(x[,1]~x[,3], xlab="Massa Corpórea", ylab="Largura Média dos Ovos")
		abline(lm(x[,1]~x[,3]), col="red", lty=2)
		plot(x[,1]~x[,4], xlab="Massa Corpórea", ylab="Volume Médio dos Ovos")
		abline(lm(x[,1]~x[,4]), col="red", lty=2)
		plot(x[,1]~x[,5], xlab="Massa Corpórea", ylab="Volume Total da Ninhada")
		abline(lm(x[,1]~x[,5]),col="red", lty=2)
		dev.off()
		cat('\n Um gráfico da função foi salvo em sua área de trabalho com o nome "Relações Biométricas Fêmeas_Filhotes.jpg"\n') 
		par(mfrow= c(2,2))
		plot(x[,1]~x[,2], xlab="Massa Corpórea", ylab="Comprimento Médio dos Ovos")
		abline(lm(x[,1]~x[,2]),col="red", lty=2)
		plot(x[,1]~x[,3], xlab="Massa Corpórea", ylab="Largura Média dos Ovos")
		abline(lm(x[,1]~x[,3]), col="red", lty=2)
		plot(x[,1]~x[,4], xlab="Massa Corpórea", ylab="Volume Médio dos Ovos")
		abline(lm(x[,1]~x[,4]), col="red", lty=2)
		plot(x[,1]~x[,5], xlab="Massa Corpórea", ylab="Volume Total da Ninhada")
		abline(lm(x[,1]~x[,5]),col="red", lty=2)
		}
             
\end{lstlisting}



\section{\texorpdfstring{Arquivos da Função}{Arquivos da Funao}}
\label{sec:arquivos_da_funao}


\href{media/bie5782/01_curso_atual/alunos/trabalho_final/famelli/peso_fêmeas_ovadas.csv}{Data Frame}
\href{media/bie5782/01_curso_atual/alunos/trabalho_final/famelli/função_alo.reprod.r}{Script da Função}

\end{document}
