Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ut ports to variables
- dataset1 <- maml.mapInputPort(1) # class: data.frame
- #Create the AgeGroup bins
- dataset1$AgeGroup <- ifelse(is.na(dataset1$Age), NA, ifelse(dataset1$Age < 2, "Baby", ifelse(dataset1$Age < 16, "Young", ifelse(dataset1$Age > 60, "Old", "Middle"))))
- #Parse the Name for Title
- getTitle <- function(name) {return (sub(" ", "", unlist(strsplit(name, "[,.]"))[2]))}
- dataset1$Title=apply(matrix(dataset1$Name),1,getTitle)
- #Aggregate the family memebrs together
- dataset1$FamilyMembers=dataset1$SibSp+dataset1$Parch
- #Have another go at AgeGroup to fill in the blanks
- dataset1$AgeGroup <- ifelse(is.na(dataset1$Age), ifelse((dataset1$Title=="Master"|dataset1$Title=="Miss"), "Young","Middle") ,dataset1$AgeGroup)
- # Select data.frame to be sent to the output Dataset port
- maml.mapOutputPort("dataset1");
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement