TPH <- c()

TPH <- NULL

どちらでもよい。