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



\section{\texorpdfstring{Luana Santos de Souza}{Luana Santos de Souza}}
\label{sec:luana_santos_de_souza}


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


Mestranda em Ciência Florestal, FCA-UNESP Botucatu. O título de minha dissetação é:  ,,Enriquecimento florestal em áreas do cinturão verde de São Paulo", orientadora: Dra. Vera Lex Engel.

\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/luanabiounesp/luana_exerc1_f.r}{exerc1}
\href{media/bie5782/01_curso_atual/alunos/trabalho_final/luanabiounesp/luana_exerc2.r}{exerc2}\href{media/bie5782/01_curso_atual/alunos/trabalho_final/luanabiounesp/luana_exerc3.r}{exerc3}\}\}
\href{media/bie5782/01_curso_atual/alunos/trabalho_final/luanabiounesp/exerc4.r}{exerc4}
\href{media/bie5782/01_curso_atual/alunos/trabalho_final/luanabiounesp/exerc6.r}{exerc5}
\href{media/bie5782/01_curso_atual/alunos/trabalho_final/luanabiounesp/exerc5.r}{exerc6}
\href{media/bie5782/01_curso_atual/alunos/trabalho_final/luanabiounesp/exerc7.r}{exerc7}\href{media/bie5782/01_curso_atual/alunos/trabalho_final/luanabiounesp/exercfinal8.r}{exerc8}\}\}

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


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


Ao longo da disciplina questionamos os valores não numéricos (NA), o que seriam? Dados perdidos, por exemplo? A minha função considerará os NAs  como indivíduos mortos em um determinado plantio. Estes serão quantificados, e feita a porcentagem de indivíduos mortos por coleta. Posteriormente, os Nas serão retirados para que seja feita a média e variância do crescimento das mudas.

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


A função fará uma análise multivariada dos fatores que afetam o crescimento de mudas em um plantio. Para chegar ao melhor modelo de previsão, serão utilizados fatores amplamente conhecidos, como luminosidade, regime pluviométrico, temperatura, entre outros.

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


No plano A a questão não é o NA, mas sim o cálculo de mortalidade. NA é uma entidade que significa dado faltante em banco de dados, isso não é questionável, sim um padrão. Ele pode representar a mortalidade caso seja definido isso na estruturação do banco de dados. O importante é que se está medindo o tamanho do indivíduo, na coluna da medida deveria constar NA quando o indivíduo morre. 
Acho que a proposta A é viável, mas precisa definir melhor a estrutura do dado de entrada (i.e. os dados sobre o indivíduo em diferentes censos, há diferentes parcelas ou localidades, etc..). Importante tb é definir o formato e o que constará no objeto de saída (medias e variâncias por parcela, por localidade, por intervalo de tempo (t1 até tn)?). A proposta B é difícil de avaliar. Pelo que entendi vc. propoem fazer uma função que produza uma análise multivariável? Qual análise? PCA? ALém disso, vc. precisa dominar algebra matricial para fazer uma função como essa. Novamente faltou explicar qual o formato de dados de entrada e saída. --- \emph{\href{mailto:adalardo@usp.br}{Alexandre Adalardo de Oliveira} 2010/03/31 17:02}

\subsubsection{\texorpdfstring{Resposta}{Resposta}}
\label{sec:resposta}


Serão utilizados dados de indivíduos em uma mesma área, e gerada média e variância por intervalo de tempo. 

\subsubsection{\texorpdfstring{Help}{Help}}
\label{sec:help}
\lstset{frame=single}
\begin{lstlisting}



Media               package:nenhum                R Documentation

    Função Média

Média do crescimento de mudas com exclusão dos NA (indivíduos mortos)


Description:

Calcula a média de crescimento de mudas, no entanto, diferente das outras funções, padroniza os Nas
como mudas que morreram.


Usage:

    med<-function(x,na.rm=TRUE)

Arguments:

 x: Vetor numérico. Valores de uma amostra.
 
Ausente: função que retira os NAs.

Soma= função que soma todos os valores da amostra

Nobs= função que conta todos os valores da amostra

Med= média das amostras




Details:

Inicialmente os NAs são encontrados, retirados e posteriormente é calculada a
 média de crecimentos indivíduos vivos em um intervalo de tempo (tempo0 e tempo1).

Value:

Média de indivíduos vivos e números de indivíduos mortos


Warning:

O número de individuos mortos serve apenas para fins exploratórios.


Author(s):

Luana Santos de Souzal

luanabiounesp@uol.com.br



Examples:

    med(dados) ## Calcula a média dos dados retirando os NAs, que neste caso
    ##foram padronizados como in divíduos perdidos
    
    
    
    
  Vari               package:nenhum                R Documentation




    Função Vari

Variância do crescimento de mudas com exclusão dos NA


Description:

Calcula a variância de crescimento de mudas, no entanto, diferente das outras funções, padroniza os Nas
como mudas que morreram.


Usage:

    vari<-function(x)

Arguments:

 x: Vetor numérico. Valores de uma amostra.

med:Função que calcula a média( função anterior)

disvquad: Calcula a diferença entre os valores de uma amostra e a média

varia: Calcula a variância entre as médias



Details:

Inicialmente os NAs são encontrados, retirados e posteriormente é calculada a
 variância do crecimentos de indivíduos vivos em um intervalo de tempo (tempo0 e tempo1).

Value:

Variância de indivíduos vivos


Warning:

O número de individuos mortos serve apenas para fins exploratórios.


Author(s):

Luana Santos de Souzal

luanabiounesp@uol.com.br



Examples:

    var(dados) ## Calcula a média dos dados retirando os NAs, que neste caso
    ##foram padronizados como in divíduos perdidos

    
\end{lstlisting}



\subsubsection{\texorpdfstring{Função}{Funao}}
\label{sec:funao}
\lstset{frame=single}
\begin{lstlisting}


crescimento<-read.table("cresci.txt",header=TRUE,sep="\t",dec=",",as.is=TRUE)


dif=(as.numeric(crescimento$tempo1))-(as.numeric(crescimento$tempo0))

###A variância e a media e calculada atraves da diferenca entre o tamanho 
###das mudas em dois periodos(tempo0, tempo1)



   ###Função que retorna número de indivíduos vivos e número demortos####

med<-function(x,na.rm=TRUE)
	{
	if(na.rm==TRUE)
		{
		ausente=(na.omit(x))
		n.NA=length(x)-length(ausente)
 		cat("\t", n.NA,"mudas mortas\n")
		}
		else
		{
		ausente=x
		}
		
		####Fução que calcula a variância no crecimento des mudas ####
		###Os dados da variância de diferentes espécies ou locais podem calculados e
     utilizados para outros cálculos estatísticos como teste t e ANOVA#####
  
  vari<-function(x)
	{
	source("med.r")
  med=media(x)
	disvquad=(ausente-media)^2
	varia=sum(disvquad)/(length(dif)-1)
	return(varia)
   }
 ###retorna a variância apernas com as mudas vivas###
 

     

### imagino que seja possível criar apenas uma função para retirar os nas,
 calcular as médias e a variância, no entanto, 
 eu nao consegui avancar alem disso!####

\end{lstlisting}



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

\end{document}
