data anlaysis titanic data using R