library$($testthat$)$ #in case you forgot to run the first cell $($but please run it anyways$)$

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

expect$\_$equal$($is$.$vector$($x$),$ TRUE$)$

expect$\_$equal$($is$.$vector$($y$),$ TRUE$)$

$\})!=$ TRUE$)$ stop$("$Sorry$,$ x or y was not created as a vector"$)$

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

expect$\_$equal$($is$.$numeric$($x$),$ TRUE$)$

expect$\_$equal$($is$.$numeric$($y$),$ TRUE$)$

$\})!=$ TRUE$)$ stop$("$Sorry$,$ x or y is not numeric"$)$

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

expect$\_$equal$($length$($x$),100)$

expect$\_$equal$($length$($y$),100)$

$\})!=$ TRUE$)$ stop$("$Sorry$,$ wrong length for at least one of the vectors"$)$