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



\section{\texorpdfstring{plot(viver\textasciitilde{}R, mean=Ficando doido)}{plotvivertextasciitildeR meanFicando doido}}
\label{sec:plotviverr_meanficando_doido}


Olá!!

Depois de tanto tempo fazendo códigos, aprendendo técnicas mirabolantes de conferência de fechamento de parênteses e coisas mais... Agente acaba tendo felicidades ,,Polianas":

Aqui está o maior comando que fuciona que eu consegui fazer... hahaha\lstset{frame=single}
\begin{lstlisting}


egran=read.table("egrandis.csv",header=T,sep=",",as.is=T)
um.comando.bem.grandão <- plot(quantile(egran$ht, seq(0,1,by=0.05))~quantile(rnorm(length(quantile(egran$ht, seq(0,1,by=0.05))), mean=mean(egran$ht), sd=sd(egran$ht)),seq(0,1,by=0.05)),main="Grandão")

\end{lstlisting}



Tudo bem... é simples... mas já to feliz!! \textasciicircum{}\textasciicircum{}

\end{document}
