(ง •̀_•́)ง

楼主，我这边有个现成的SAS程序，想请问可不可以用r语言来实现这个程序，如何实现呀？

@三分饿的吧
楼主帮我看看下面这段代码为什么报错，其实结果也能出的来：
#建立leadship数据框
manager<-c(1,2,3,4,5)
date<-c("10/24/08","10/28/08","10/1/08","10/12/08","5/1/09")
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,stringsAsFactors = F)
#试图通过以下函数计算leadership中的新年龄变量agey，agey=current.date-date单位为年
>leadership$date<-as.Date(leadership$date, "%m/%d/%y")
>leadership$agey = function(leadership$date,Sys.Date()) {
Error: unexpected '$' in"leadership$agey = function(leadership$"
> from_lt = as.POSIXlt(leadership$date)
> to_lt = as.POSIXlt(Sys.Date())
> leadership$agey = to_lt$year - from_lt$year
> ifelse(to_lt$mon < from_lt$mon |
+ (to_lt$mon == from_lt$mon &to_lt$mday < from_lt$mday),
+ leadership$agey - 1, leadership$agey)
[1] 9 9 9 98
> }
Error: unexpected '}' in"}"

Q_Q