leadership ＜- within(leadership,{
agecat ＜- NA
agecat[age ＞ 75] ＜- "Elder"
agecat[age ＞= 55 ＆ age ＜= 75] ＜- "Middle Aged"
agecat[age ＜ 55] ＜- "Young" })
manager <- c(1,2,3,4,5)
date <- c("10/24/14","10/28/14","10/01/14","10/12/14","05/01/14")
country <- c("US","US","UK","UK","UK")
gender <- c("M","F","F","M","F")
age <- c(32,45,25,39,99)
q1 <- c(5,3,3,3,2)
q2 <- c(4,5,5,3,2)
q3 <- c(5,2,5,4,1)
q4 <- c(5,5,5,NA,2)
q5 <- c(5,5,2,NA,1)
leadership <- data.frame(manager,date,country,gender,age,q1,q2,q3,q4,q5)
head(leadership)
这个是数据框。
已经尝试过空格和“+”号，还是不行。
Error in "Middle Aged" + agecat[age < 55] <- "Young" :
赋值目标擴充到非语言对象
出现这个问题。