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

\lstset{frame=single, language=R, title=Help.Rd}
\begin{lstlisting}

\name{SuperSumario}
\alias{SS}
%- Also NEED an '\alias' for EACH other topic documented here.
\title{ Supersumario %%  ~~function to do ... ~~ 
}
\description{ Funçao para calculo de estimativas de estatistica basica para concentraçao de metais em macroalgas, retorna os seguintes valores: 


N <número de valores de uma amostra>;
minimo <menor valor de uma amostra>;
maximo <maior valor de uma amostra>;
mediana <valor central de uma amostra>;
mediana15 <valor central dos valores abaixo do quantil de 15 porcento>;
Desvio_Padrao <valor do desvio das amostras comparado a media>;
MeMAD <valor maximo considerado natural para amostra>;
MeMAD15 <valor mínimo natural para amostra>;
coeficiente de variaçao <a variacao de dados em porcentagem>.

Nao sao valores especificos apenas para metais, essas estatisticas basicas podem ser utilizadas em outros casos.
%%  ~~ A concise (1-5 lines) description of what the function does. ~~
}
\usage{
SS(x)
}
%- maybe also 'usage' for other objects documented here.
\arguments{ 
  \item{x}{ Deve ser uma matriz numerica
%%     ~~Describe \code{x} here~~
}
Em caso de data.frame usar a funcao as.matrix() para transformar os dados}}
\details{
O cálculo é realizado utilizando cada coluna como uma variável e cada linha como uma observacao.
%%  ~~ If necessary, more details than the description above ~~
}
\value{ O resultado retornado pela funcao é um data.frame com os valores calculados em colunas e as variaveis nas linhas.
%%  ~Describe the value returned
%%  If it is a LIST, use
%%  \item{comp1 }{Description of 'comp1'}
%%  \item{comp2 }{Description of 'comp2'}
%% ...
}
\references{ 
  \ Professor Mauricio Camargo, IO-FURG.  /
  \ www.RBloggers.com  /
  \ www.stackoverflow.com.br  /
  \ Fórum da Disciplina  /
%% ~put references to the literature/web site here ~
}
\author{Michelle Cristine dos Santos-Silva  
%%  ~~who you are~~
}
\note{
%%  ~~further notes~~
}

%% ~Make other sections like Warning with \section{Warning }{....} ~

\seealso{
%% ~~objects to See Also as \code{\link{help}}, ~~~
}
\examples{
#A funcao possui uma matriz dentro dela para rodar um exemplo: 
  pode ser executada apenas por SS().
  
#Exemplo 2
matrizteste <- matrix(rnorm(600,20,1),50,12)
colnames(matrizteste) <- paste(rep("Obs",12),seq(1:12))
SS(matrizteste)

#Exemplo 3 - Quando temos um data.frame transformamos em matriz
E <- data.frame(abs(rnorm(30,3,1)),abs(rnorm(30,3,1)),abs(rnorm(30,3,1)),abs(rnorm(30,3,1)))
colnames(E) <- c("A","B","C","D")
G <- as.matrix(E)
SS(G)



% Add one or more standard keywords, see file 'KEYWORDS' in the
% R documentation directory.
\keyword{ Sumario }% use one of  RShowDoc("KEYWORDS")
\keyword{ Limites_metais}% __ONLY ONE__ keyword per line


\end{lstlisting}



\end{document}
