R中，如何让数值参数 T 的取值随 时间 times <- seq(0, 10, 2) 输出 向量 C <- c(1,2,3,4,5)中的每个元素？
T.modle <- function (time){
for(i in 1:length(times))
if (time <- times[i])  
T[i]= C[i]
T <- c(T[i])
return (T)
   }
   time=as.numeric(time)
   T=as.numeric(lapply(time,T.modle))

怎么写这个程序才正确？