托马斯Lumley回答了这个问题in a superb post on r-help the other day。<<-是关于封闭环境的，所以你可以这样做（我再次引用他4月22日的帖子in this thread）：

make.accumulator<-function(){
    a <- 0
    function(x) {
        a <<- a + x
        a
    }
}

> f<-make.accumulator()
> f(1)
[1] 1
> f(1)
[1] 2
> f(11)
[1] 13
> f(11)
[1] 24

<<-作为词法作用域的“超级赋值”是合理的用法，而不是简单地在全局环境中赋值。为此，托马斯有以下几个选择词：
邪恶和错误的用法是修改全局环境中的变量。
非常好的建议。

根据手册第here页、
运算符<<-和->>导致在环境中搜索被赋值变量的现有定义。
我在实践中从来没有这样做过，但在我看来，assign在精确指定环境方面赢得了很多分数，甚至不必考虑R的作用域规则。<<-在环境中执行搜索，因此有点难以解释。
编辑：为了尊重@Dirk和@Hadley，听起来assign是实际分配到全局环境的适当方式（当你知道你想要的时候），而<<-是“提升”到更广泛范围的适当方式。

正如@John在他的回答中指出的，assign允许您具体指定环境。具体应用如下：

testfn <- function(x){

    x_squared <- NULL

    escape <- function(x){
        x_squared  <<- x^2
        assign("x_times_x", x*x, envir = parent.frame(n = 1))
    }

    escape(x)

    print(x_squared)
    print(x_times_x)
}

这里我们同时使用了<<-和assign。注意如果你想用<<-来赋值给顶层函数的环境，你需要声明/初始化变量。但是，对于assign，你可以用parent.frame(1)来指定封装环境。