Change to tp Rdata