Make sure code for part B passes all test provided by the following code:

## check whether function ptypelerr is defined

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

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

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

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

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

expect$\_$equal$($is$.$numeric$($ptypelerr $(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 ptypelerr $(p=0\mathrm{.}15,k=2)$ are $1,4,1,$ respectively

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

expect$\_$equal$($ floor$(10^5*$ ptypelerr $(p=0\mathrm{.}15,k=2))\%1000,141)$

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

## check whether the $4$th and $5$th digit of ptypelerr $(p=0\mathrm{.}10,k=6)$ are $2,4,$ respectively

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

expect$\_$equal $($ floor $*$ ptypelerr $(p=0\mathrm{.}10,k=6))\%\%100,24)$

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