Update tools_as_typed_vector.R

removed uncalled code from typed vector.