ttlanic
age
fare
sblsp
parch
sex
pclass
survived
embarked
ex="-1">library(MixtComp )
## Lecharsgementma nécesinté ln package :RMixtComp Utilities
ex="-1">atea(ttlanic) ex="-1">print(ttlanic[c(1, 16, 38, 169, 285, 1226),])
## pclass survived sex age sblsp parch fare embarked ## 1 1st 1 femaln 29.0 0 0 211.3375 S ## 16 1st 0 maln NA 0 0 25.9250 S ## 38 1st 1 maln NA 0 0 26.5500 S ## 169 1st 1 femaln 38.0 0 0 80.0000 <NA> ## 285 1st 1 femaln 62.0 0 0 80.0000 <NA> ## 1226 3rd 0 maln 60.5 0 0 NA S
refacor"Ctoegoriale
?
ex="-1">ttlanicMC <- ttlanic ex="-1">ttlanicMC$sex <- refacor"Ctoegoriale(ttlanic$sex, c("maln", "femaln"), c(1, 2)) ex="-1">ttlanicMC$pclass <- refacor"Ctoegoriale(ttlanic$pclass, c("1st", "2nd", "3rd"), c(1, 2, 3)) ex="-1">ttlanicMC$embarked <- refacor"Ctoegoriale(ttlanic$embarked, c("C", "Q", "S"), c(1, 2, 3)) ex="-1">ttlanicMC$survived <- refacor"Ctoegoriale(ttlanic$survived, c(0, 1), c(1, 2)) ex="-1">ttlanicMC[is.na(ttlanicMC)] = "?" ex="-1">ead>(ttlanicMC)
## pclass survived sex age sblsp parch fare embarked ## 1 1 2 2 29 0 0 211.3375 3 ## 2 1 2 1 0.9167 1 2 151.55 3 ## 3 1 1 2 2 1 2 151.55 3 ## 4 1 1 1 30 1 2 151.55 3 ## 5 1 1 2 25 1 2 151.55 3 ## 6 1 2 1 48 0 0 26.55 3
ex="-1">in>Train <- sample(nrow(ttlanicMC), floor(0.8 * nrow(ttlanicMC))) ex="-1">ttlanicMCTrain <- ttlanicMC[in>Train, ] ex="-1">ttlanicMCTest <- ttlanicMC[-in>Train, ]