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



\section{\texorpdfstring{Camila Gastaldi Blanco}{Camila Gastaldi Blanco}}
\label{sec:camila_gastaldi_blanco}


Mestranda em Zoologia, Instituto de Biociência de Botucatu, UNESP. Trabalho com ecologia de costões rochosos e minha tese é:  ,,Macrofauna associada aos bancos de mexilhão Perna perna: padrões naturais, pressão de predação e o efeito da pesca", orientação: Profa.Dra. Tânia Marcia Costa e Prof.Dr. Ronaldo Adriano Christofoletti 

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


\href{media/bie5782/01_curso_atual/alunos/trabalho_final/camila_blanco/aula_1.r}{aula\_1.r}
\href{media/bie5782/01_curso_atual/alunos/trabalho_final/camila_blanco/aula_2.r}{aula\_2.r}
\href{media/bie5782/01_curso_atual/alunos/trabalho_final/camila_blanco/aula.3.r}{aula.3.r}
\href{media/bie5782/01_curso_atual/alunos/trabalho_final/camila_blanco/aula_4.r}{aula\_4.r}
\href{media/bie5782/01_curso_atual/alunos/trabalho_final/camila_blanco/aula_5.r}{aula\_5.r}
\href{media/bie5782/01_curso_atual/alunos/trabalho_final/camila_blanco/aula_6.r}{aula\_6.r}
\href{media/bie5782/01_curso_atual/alunos/trabalho_final/camila_blanco/aula_7.r}{aula\_7.r}
\href{media/bie5782/01_curso_atual/alunos/trabalho_final/camila_blanco/aula_8.r}{aula\_8.r}

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


Percebi com meu tcc, que possuía muitos dados não paramétricos, a dificuldade de análisá-los com os programas e análises estatísticas recorrentes,e necessidade de embasar minhas conclusões com outros tipos de análises, que poderiam até ser um pouco mais subjetivas, mas tão esclarecedoras quanto. Por isso minhas propostas se baseiam em análises multivariadas e exploratórias.

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


Criar uma função de análise de Permanova de três vias, para fatores fixos ou aleatórios, ortogonais ou aninhados, sobre uma matriz de dados (muitos dados)(biomassa ou abundãncia, por exemplo).

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


Com os mesmos parâmetros da proposta anterior criar uma função de análise exploratória, como o MDS ou SIMPER, para melhor visualização da distribuição dos dados.

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


Ale: acho interessante fazer uma função para uma análise de Permutação da MANOVA. Só acho que é um desafio grande demais para pouco tempo. A base para isso é a aula de hoje sobre MOnte-Carlo e a aula sobre ANOVA... Uma sugestão seria iniciar fazendo um teste de anova por permutação uma (peranova) e depois, passado esse primeiro desafio investir em um PERMANOVA! Para o curso uma pernova (Não acho que exista esse termo!) já é um bom desafio... O livro do Manly tem algumas dicas...

\textbf{Paulo}: Após ver seu código, faltaria permitir diferentes tipos de permutações, e não apenas embaralhar todos os valores da matriz. Por exemplo, vc poderia colocar a opção de embaralhar dentro de linhas ou dentro de colunas

\subsubsection{\texorpdfstring{Minha Função (dif.community)}{Minha Funao difcommunity}}
\label{sec:minha_funao_difcommunity}
\lstset{frame=single}
\begin{lstlisting}


dif.community<-function(matrix, dim=(matrix))
	{
	med.total=mean(matrix) 
	dif.obs=sum(abs(apply(matrix,2,mean)-med.total)) 
	resultado <-rep(NA,4000)
	resultado  [1]<-dif.obs 
		for(i in 2:4000)
		{
		permutação<-matrix(sample(matrix),ncol=dim(matrix), nrow=dim(matrix)) 
		dif.simulada=sum(abs(apply(permutação,2,mean)-med.total))
		resultado[i]<-dif.simulada
		}
	hipotese=(sum(resultado<=dif.obs))/4000
	plot(density(resultado),xlab="Diferença entre locais",ylab="Frequencia",main="")
	abline(v=dif.obs, col="green")
	return(hipotese)
	}		

\end{lstlisting}



\subsection{\texorpdfstring{Página de Ajuda}{Pagina de Ajuda}}
\label{sec:pagina_de_ajuda}
\lstset{frame=single}
\begin{lstlisting}


﻿dif.community                package:nenhum                R Documentation


A função é um teste por permutação que analisa diferença 
estatística de parâmetros entre diferentes amostragens


Description:

Retorna o resultado estatístico da diferença de valores 
pré-estabelecidos (parâmetros ecológicos: abundância, 
riqueza, biomassa, diversidade, etc), entre diferentes
locais ou amostras. Essa análise utiliza a permutação 
(4000 vezes) dos valores observados e não possui premissas
de distribuição de testes de hipóteses. Produz, também,
um gráfico(densidade) para melhor visualização dos 
resultados obtidos, que possui uma linha demarcando a 
diferença observada.


Usage:

     dif.community (matrix, dim(matrix))


Arguments:

     x: matrix (numérica).
     dim(): retornar as dimensões da matriz, número de linhas e colunas.
 
Details:

Os valores das amostras são organizados em matriz, sendo cada 
coluna uma amostra ou local, a média de cada coluna é subtraída
da média total da coluna e o mesmo processo é aplicado para a
matriz permutada (com a função sample()). Dentro do processo 
de ciclos (for()) esses valores são armazenados em um resultado
que será testado em relação ao valore da diferença observado 
(dif.obs) e aplicados dentro de um gráfico (plot), inserindo
uma linha (abline)representando o valor da diferença observada.

 
Value:

Valor obtido refere-se ao p unicaudal referente ao teste de
significancia das diferenças e o gráfico gerado apresenta
todos os 4000 valores, 3999 simulados comparados com o observado
,esse explicitado pela linha verde (abline).

Obs : valores da amostra formatados em matriz (parâmetros=linhas,
locais/amostras=colunas)


Author(s):

Camila Gastaldi Blanco

gb.camila@gmail.com


References:

  
  Manly, B.F.J (2004) Randomization, Bootstrap and Monte Carlo 
  Methods in Bioloy,Second edition, University of Otago, New Zeland.


See Also:

'sample' do pacote base, utilizado para as permutações

'for' para produção dos ciclos de repetição

'plot' e 'abline' utilizados para o 


Examples:


    Diferença dos valores de riqueza de espécies animais em 
    seis costões rochosos diferentes:

    dif.community(matrix)

    matrix<-matrix(c(5,5,3,5,7,4,11,6,8,5,4,8,10,12,8,7,10,7,3,4,9,4,6,9,7,
    6,7,9,7,3,9,9,7,6,7,9,7,3,9,9,10,7,6,8,8,9,9,6),ncol=6,nrow=8)



\end{lstlisting}



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


\href{media/bie5782/01_curso_atual/alunos/trabalho_final/camila_blanco/função_final_dif.community_.r}{funcao\_final\_dif.community\_.r}
\href{media/bie5782/01_curso_atual/alunos/trabalho_final/camila_blanco/pagina_de_ajuda.r}{pagina\_de\_ajuda.r}

\end{document}
