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



\textless code\textgreater 

\#\#funcao 

LP $\leftarrow$ function(data) \{
\begin{verbatim}
N <- c()
for (i in 1:length(unique(data$inq))) {
  tmp <- subset(data, inq == i)
  N[i] <- with(tmp, ( (sum(n1) + 1)*(sum(n2) + 1) / (sum(m2) + 1) ) - 1)
}
x11()  # abre um dispositivo grafico
par(mfrow = c(3,1))
plot((N),main=("Plot de Lincoln Peterson"), xlab="inquerito")
barplot((N),main=("Barplot de Lincoln Peterson"))
boxplot((N),main=("Boxplot de Lincoln Peterson"))
return(N)
\end{verbatim}


\}

.:\href{http://ecor.ib.usp.br./doku.php?id=05_curso_antigo:r2013:alunos:trabalho_final:tatiana.jimenezv:scripfuncaolp}{ScripfuncaoLP}

.:\href{http://ecor.ib.usp.br./doku.php?id=05_curso_antigo:r2013:alunos:trabalho_final:tatiana.jimenezv:helplp}{HelpLP}

\end{document}
