% deaktiver environments fra Sweave
\let\Soutput\relax
\let\Sinput\relax
\newcounter{Routput}
\lstnewenvironment{Soutput}[1][]{%
  \refstepcounter{Routput}%
  \newcommand\mylstname{\small R-udskrift \theRoutput}%
  \lstset{style=SASdisplayBasic, columns=fixed,
    title=\mylstname, basicstyle=\SASOutputFont,
    language={}, #1}%
}{}
\newcounter{Rcode}
\lstnewenvironment{Sinput}[1][]{%
  \refstepcounter{Rcode}%
  \newcommand\mylstname{\small R-kode \theRcode}%
  \lstset{style=SASdisplayBasic, columns=flexible,
    title=\mylstname, basicstyle=\SASCodeFont,
    language=R, keywordstyle=\normalfont\bfseries\ttfamily,
    #1}%
}{}