Create titanic.R