added R modeling for titanic data set