Create titanic2.R