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



\section{\texorpdfstring{Ana Carolina Luchetta}{Ana Carolina Luchetta}}
\label{sec:ana_carolina_luchetta}


Formada em Ciências Biológicas pela UNESP, com habilitação em Biologia Marinha e Gerenciamento Costeiro.
Área de atuação: Quelônios marinhos.

\subsection{\texorpdfstring{Meus Exercícios}{Meus Exercicios}}
\label{sec:meus_exercicios}


Linque para a página com os meus exercícios resolvidos \href{media/bie5782/01_curso_atual/alunos/trabalho_final/ana_carolina_luchetta/exercicio1.r}{exercicio1.r}

\href{media/bie5782/01_curso_atual/alunos/trabalho_final/ana_carolina_luchetta/exercicio2.r}{exercicio2.r}

\href{media/bie5782/01_curso_atual/alunos/trabalho_final/ana_carolina_luchetta/exercício3.r}{exercicio3.r}

\href{media/bie5782/01_curso_atual/alunos/trabalho_final/ana_carolina_luchetta/exercicio4.r}{exercicio4.r}

\href{media/bie5782/01_curso_atual/alunos/trabalho_final/ana_carolina_luchetta/exercício_5.txt}{exercicio\_5.txt}

\href{media/bie5782/01_curso_atual/alunos/trabalho_final/ana_carolina_luchetta/aula6.txt}{aula6.txt}

\href{media/bie5782/01_curso_atual/alunos/trabalho_final/ana_carolina_luchetta/aula7.txt}{aula7.txt}

\href{media/bie5782/01_curso_atual/alunos/trabalho_final/ana_carolina_luchetta/exercício_8.txt}{exercicio\_8.txt}

\subsection{\texorpdfstring{Proposta de Trabalho Final}{Proposta de Trabalho Final}}
\label{sec:proposta_de_trabalho_final}


\subsubsection{\texorpdfstring{Principal}{Principal}}
\label{sec:principal}


Fazer uma função que compare as observações de animais marinhos (em números de observação) com variáveis de parâmetros abióticos (como temperatura, estado do mar, ...), retornando qual desses fatores influencia mais no apaecimento desses animais.

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


Calcular as probabilidades de se morrer em acidentes com os mais diversos tipos de transporte (carro, moto, avião) em São Paulo de acordo com os dados oficiais do governo.

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


Daniel:

Principal - O número de variáveis, tanto de espécies quanto de parâmetros poderia ser determinado pelo usuário. Sua função poderia servir para avaliar o número de observações em um determinado período (e.g., vários anos), também utilizando as variáveis ambientais abióticas observadas em cada observação. Com estas informações você poderia desenvolver uma função para determinar períodos do ano em que os animais são mais facilmente observados (frequência/atividade).

Plano B - Trabalhe na sua proposta principal.

Ale: Concordo com o Musgo (Daniel.. desculpa! é costume). Precisa definir melhor o que a função irá fazer e quais os parâmetros de entrada. Ou seja, não é apenas uma análise particular, mas uma função para realizar análises similares ou de diferentes maneiras (manipulando os argumentos).

\subsection{\texorpdfstring{Minha Função (observacaodeanimais)}{Minha Funao observacaodeanimais}}
\label{sec:minha_funao_observacaodeanimais}
\lstset{frame=single}
\begin{lstlisting}

observacaodeanimais <- function (data.frame)
		{

par1 <- lm([,1]~[,2], data=data.frame)
par2 <- lm([,1]~[,2]+[,3], data=data.frame)
par3 <- update(par2,.~.+[,4])
par4 <- update (par3,.~.+[,5])

par(mfrow=c(2,2))
plot([,1]~[,2], data=data.frame)
abline(par1, col="blue")
abline(h=mean([,1]),col="red")

plot([,1]~[,3], data=data.frame)
abline(par2, col="blue")
abline(h=mean([,1]),col="red")

plot([,1]~[,4], data=data.frame)
abline(par3, col="blue")
abline(h=mean([,1]),col="red")

plot([,1]~[,5], data=data.frame)
par(mfrow=c(1,1))

anova (par4)

library(MASS) 
tudo <- lm([,1]~[,2]+[,3]+[,4]+[,5], data=data.frame)
Scope=list(upper=~[,2]+[,3]+[,4]+[,5], lower=~1) 
step <- stepAIC(tudo,Scope,direction="both") 
			}
\end{lstlisting}



\subsection{\texorpdfstring{Página de Ajuda}{Pagina de Ajuda}}
\label{sec:pagina_de_ajuda}


observacaodeanimais 		package:unknown                R Documentation

This function is to see how different parameters can affect one population observed. And which ones are not important to determinate the population.

Description:
Return graphics, with mean to represent each parameter isolated affecting the observation of this population. After that, it´s made ANOVA, and then, it´s made a stepAIC, to make the combination of all parameters.
Usage:
dados(data.frame)

Arguments:
data.frame: each parameter in each column. The first column must be the number of observation.

Details:
You must have each parameter in each column, with no empty.
The first column must be the number of individuals observed.

Value:
It will return one graphic to each relation between individuals observed and one parameter, two parameters, … It will be plotted the mean and a blue line, that is the tendency.
After that, it will be done an ANOVA, which represent analysis-of-variance and analysis-of-deviance of the parameters.
In the end, the function tests the best model of all of parameters given in the data.frame.

Author(s):
Ana Carolina Luchetta
anacarolluch@bol.com.br

References:
Ferreira, D.F. (2009) Recursos Computacionais Utilizando R
\url{http://www.dex.ufla.br/~danielff/RRC0.pdf}

See Also:
plot and abline to plot the preliminary graphics
stepAIC in package MASS

Examples:
How can water temperature, air temperature, salinity and state of the sea can affect the number of turtles observed in the sea.
data.frame $\leftarrow$ matrix(c(5;25;23;15;0; 6;27;25;17;1; 3;23;22;12;0; 7;25;24;10;0; 8;27;25;13;1; 4;28;26;17;0;0;22;20;19;0;3;25;22;12;0), ncol=5, nrow=8)

\subsection{\texorpdfstring{Arquivo da Função}{Arquivo da Funao}}
\label{sec:arquivo_da_funao}


HELP: \href{media/bie5782/01_curso_atual/alunos/trabalho_final/ana_carolina_luchetta/ajuda.r}{ajuda.r}
FUNÇÃO: \href{media/bie5782/01_curso_atual/alunos/trabalho_final/ana_carolina_luchetta/função_observação.r}{funcao\_observacao.r}

\end{document}
