Допустим, у меня есть следующие векторы:
time <- c(306,455,1010,210,883,1022,310,361,218,166)
status <- c(1,1,0,1,1,0,1,1,1,1)
gender <- c(1,1,1,1,1,1,2,2,1,1)
И я превращаю его в эти данные:
dataset <- data.frame(time, status, gender)
Я хочу перечислить факторы в третьем столбце, используя этофункция (p / s: простите за незрелость. Я все еще учусь):
getFactor<-function(dataset){
result <- list()
result["Factors"] <- unique(dataset[[3]])
return(result)
}
И все, что я получаю, это:
getFactor(dataset)
$Factors
[1] 1
Warning message:
In result["Factors"] <- unique(dataset[[3]]) :
number of items to replace is not a multiple of replacement length
Я пытался использовать levels
, новсе, что я получаю, это пустой список.Мой вопрос (1), почему это происходит?и (2) есть ли другой способ получить список факторов в функции?