代码如下，请大神指教两个}为什么一直出错，谢谢了！！
f<-function(x,n)
{
        t<-list()
        for (i in 1:(length(x)-n+1)){
                t[[1]][i]<-mean(x[i:i+n-1])
                t[[2]][i]<-var(x[i:i+n-1])
        }
        return t
}
错误: unexpected symbol in:
"}
return t"
> }
错误: 意外的'}' in "}"