Replace data.frame with data.table