Calculate the bootstrap confidence interval using the function boot.ci and the inputs bootResults and type $=$ perc. Comment on your results. Store the results in bootci.

# bootci $<-$

boot$\_$ci $<-$ boot.ci$($bootResults$,$ type $=$ "perc"$)$

cat$("$Bootstrap Confidence Interval:", boot$\_$ci$percent$[4$:$5],"$

$")$

# your code here