\documentclass[11pt,BCOR2mm,DIV14]{scrartcl}
\usepackage{lscape}

\usepackage[Glenn]{fncychap}
%For floating figures
\usepackage{wrapfig}
%For fancy tables
\usepackage{booktabs}

%For symbols in T1 encoding.
\usepackage{textcomp}

\usepackage[colorinlistoftodos, textwidth=4cm, shadow, textsize=tiny]{todonotes}

\usepackage{amsmath,amsfonts,graphicx,ncsg3,comment,typearea,pifont}
\usepackage{xcomment,color, psfrag,enumerate,scrpage2,xspace,listings,wasysym, comment}
\usepackage{termcal}

\pagestyle{scrheadings}  
\setheadsepline{.4pt}
\ihead[]{MAS1343 - Practicals and assignments}
\chead[]{}
\ohead[]{}
\ifoot[]{\textit{Dr Colin Gillespie - colin.gillespie@ncl.ac.uk}}
\cfoot[]{}
\ofoot[\pagemark]{\pagemark}

\specialcomment{Notes}{%
\marginpar{{\color{black}\Large{\ding{46}}}}
\begingroup\Large\color{red}}{%
  \endgroup}
%\excludecomment{Notes}

% \begin{Notes}{Note}
% This is a note 
% \end{Notes}


\newenvironment{notes}{\color{red} \xspace}

%\newenvironment{Notes}{\LARGE\color{red}}
%\newenvironment{Notes}{\color{red}}

\lstdefinelanguage{myR}
{
    language=R,
    otherkeywords={read.table, set.seed},
    deletekeywords={url,codes, t, Call, formula,Q, R, on,by,hat,is, col, set},            
    sensitive=true,
    morecomment=[l]{\#},
    morestring=[b]", 
    morestring=[b]',
    basicstyle =\ttfamily,
    keywordstyle=\bf\color{blue},
    showtabs=false,
    showstringspaces=false,
    literate= {~}{$\sim$}{2},
    numberstyle=\sffamily\scriptsize,
    stepnumber=1
  }
\lstset{language=myR}
\newcommand{\pen}{\marginpar{\Large{\ding{46}}}}

% fourier for math | Palatino for rm | Helvetica for ss | Courier for tt
\renewcommand{\rmdefault}{ppl} % rm
\linespread{1.05}        % Palatino needs more leading
\usepackage[scaled=0.9]{helvet} % ss
\usepackage{courier} % tt
\usepackage{fourier} % math & rm
\normalfont
\usepackage[T1]{fontenc}


\RequirePackage[unicode,hyperfootnotes=false]{hyperref}
 \hypersetup{%
   pdfborder = {0 0 0},
   bookmarksdepth = section,
   citecolor = DarkGreen,
   linkcolor = DarkBlue,
   urlcolor = DarkGreen,
 }%
\usepackage{microtype}

\begin{document}

\section*{Marking scheme}

\begin{enumerate}
\item 1 mark for naming the file correctly.
\item 1 mark for no extraneous variables.
\item 2 marks for nice code (see below).
\item \cc{MySD}: 3 marks: 1 mark if the function can be called.
\item \cc{MyDifference}: 3 marks: 1 mark if the function can be called.
\item \cc{MyMean2}: 6 marks. For each test, give a mark if the function could be
  called.
\item \cc{IsEven}: 4 marks. For each test, give a mark if the function could be called.
\item \cc{MyMedian}: 6 marks: For each test, give a mark if the function could
  be called.
\end{enumerate}
Total: 22 marks.

\subsubsection*{Other comments}

\begin{itemize}
\item If the file could not be loaded, lose three marks. Then quickly do the
  ``tests'' in your head.
\item Quickly glance through the code. Highlight (with a red pen)
\begin{itemize}
\item Code that shouldn't be there, i.e. rogue function calls, \cc{rm} calls,
  \cc{set.seed} calls. Lose one mark
\item Poorly indented code. If no attempt made, lose one mark
\end{itemize}
\end{itemize}

\end{document}