Author: Reza Nirumand
Date: 2015-10-23
When app starts:
CheckSurvival<-function(dt){
Survived <- predict(rf, prepareTestData(dt))
if(Survived[1]==1)
{
return("Wow! you could have survived the disaster!!")
}
else
return("Oh no! Sorry it seems you were not lucky!")
}