Update 6_Algorithm sanity check.R

Changed $test into $text