R script output.vec TRUE/FALSE to be t/f