Make sure your $R$ code for part $C$ passes all test provided by:

## check whether function ptypelerr is defined

if$($test$\_$that$($desc$="",$ code$=\{$

expect$\_$equal$($exists$("$ptypellerr$",$ mode$=$"function"$),$ TRUE$)$

$\})!=$ TRUE$)$ stop$("$Function ptypellerr not created!"$)$

## check whether output is numeric $($or double$)$

if $($test$\_$that$($desc$="",$ code

expect$\_$equal $($is$.$numeric$($ptypellerr $(p=0\mathrm{.}15,k=2)),$ TRUE$)$

$\})!=$ TRUE$)$ stop$("$the output is not numeric$/$double$.")$

And

## check whether the $3$ rd$,4$ th and $5$ th digit of ptypellerr $(p=0\mathrm{.}23,k=5)$ are $0,4,5,$ respectively

if $($test$\_$that$($desc$="",$ code$=\{$

expect$\_$equal $($ floor $*$ ptypeller. $(p=0\mathrm{.}23,k=5))\%\%1000==45,$ TRUE$)$

$\})!=$ TRUE$)$ stop$("$Sorry$,$ wrong answer"$)$

## check whether the $4$ th and $5$ th digit of ptypellerr $(p=0\mathrm{.}28,k=4)$ are $3,9,$ respectively

if $($test$\_$that$($desc$="",$ code$=\{$

expect$\_$equal $($ floor ptypellerr $\{$:$(p=0\mathrm{.}28,k=4))\%\%100,39$

$\})!=$ TRUE$)$ stop$("$Sorry$,$ wrong answer"$)$

## check whether ptypellerr $(p=0\mathrm{.}15,k=2)==0$

if $($test$\_$that$($desc$="",$ code

expect$\_$equal $($ ptypellerr $(p=0\mathrm{.}15,k=2)==0,$ TRUE$)$

$\})!=$ TRUE$)$ stop$("$Sorry$,$ wrong answer"$)$