fix grep statement in vnames(type="th") so that variable names are unique (and not a subset of other variable names)