R的环境系统（汇总）

调用环境：
emptyenv()###空环境（没有父环境）
baseenv()###基环境
globalenv()###全局环境（打开R后，创建的所有对象都存储在全局环境中）

用parent.env(globalenv())###查看一个环境的父环境

用ls或者ls.str查看存储在环境中的对象。（ls命令只返回对象名称；ls.str命令则会大致展示每个对象的结构）
eg:
ls(globalenv())
ls.str(globalenv())

用$来提取某一个对象
eg:

head(globalenv()$deck,3)###head函数是提取一组数据的前6行，当然也可以单独指定

assign函数：（将对象存储到特定环境中）
eg:

assign(“new”,”hello global”,envir=globalenv())###assign（“对象名”，”对象值”，想要存储的环境名称）
globalenv()$new

一个循环函数的编写（类似于发牌）

deal<-function(){
card<-deck[1,]
assign(“deck”,deck[-1,],envir=globalenv())
card
}###随着一次次的输出，都发下一张牌

将新建立的函数存储在一个子环境中

setup<-function(deck){
DECK<-deck
DEAL<-function(){
card<-deck[1,]
assign(“deck”,deck[-1,],envir=parent.env(environment()))
card
}
SHUFFLE<-function(){
random<-sample(1:52,size=52)
assign(“deck”,DECK[random,],envir=parent.env(environment()))
}
list(deal=DEAL,shuffle=SHUFFLE)
}
cards<-setup(deck)
deal<-cards$deal shuffle<-cards$shuffle######这样就可以随意删除或修改全局环境中的deck副本，而这套系统仍然可以运行。deal、shuffle函数使用的是原始的，被保护的deck版本。