0
下記のコードを参照してください。問題です誤った出力の場合はElseステートメントR
extractTitle<- function(name){
name<-as.character(name)
if (length(grep("Miss.",name))>0){
return("Miss.")
}else if (length(grep("Master.",name))>0){
return("Master.")
}else if (length(grep("Mrs.",name))>0){
return("Mrs.")
}else if (length(grep("Mr.",name))>0){
return("Mr.")
}else {
return("Other")
}
}
titles<- NULL
for (i in 1:nrow(data.combined)){
titles<- c(titles,extractTitle(data.combined[i,"name"]))
}
data.combined$title<- as.factor(titles)
親切にアドバイス:コードは、新しいVARのタイトルに「その他」に設定されているすべてのもののように正確な値を示していません。
'data.combined'を使用できますか?またはその一部、好ましくは 'dput'を使用して – zyurnaidi