Make sure R code pass ALL test provided by the following code:

## check whether the $6$th and $7$th decimal digits of confidence are $76$

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

expect$\_$equal$(($floor$($confidence ${?}^{**}{10}^{{?}^{{?}^{?}}}7)\%\%100==76),$ TRUE$)$

$\})!=$ TRUE$)$ stop$("$Sorry$,$ your answer is incorrect."$)$