R语言中没有指针

x <- c(13,5,12)
sort(x)
#但是x的值没有变化

#如果函数输出包含多个变量
#返回列表
oddsevens <- function(v){
  odds <- which(v%%2==1)
  evens <- which(v%%2==0)
  list(o=odds,e=evens)
}```

#对上级层次或者全局变量进行写

使用<<-或者assign()

two <- function(u){

调用函数后，这里就会创建一个全局变量u

u <<- 2u
z <- 2z
}
x<-2
two(x)

使用这个运算符对变量进行写会导致对上级环境层次的查找，

直到遇到该变量的第一个层次

f <- function(){
inc <- function(){x <<- x+1}
x <- 3
inc()
return(x)
}
f()

inc()将对f()中的x进行读写,上级环境层次

two <- function(u){

表示指定对顶层全局变量进行写操作

pos参数的值-1，positive integer,sys.frame

assign("u",2u,pos = .GlobalEnv)
z <- 2z
}```

闭包包含函数的参数，函数体以及调用时的环境

#闭包包含一个可以创建局部变量的函数
#并且创建另外一个函数可以访问该变量
counter <- function(){
  ctr <- 0
  #ctr的环境层次只比f高一个层次，所以是f
  #所在层次的一部分，然后会打包返回给counter()的调用方
  f <- function(){
    ctr <<- ctr + 1
    cat("this count currently has value",ctr,"\n")
  }
  return(f)
}
#c1和c2都包含对f()的一个拷贝
c1 <- counter()
c2 <- counter()```

#置换函数

x <- c(1,2,4)

function to get or set the names of an object

names(x) <- c("a","b","c")

将数赋值给函数调用的结果

x <- "names<-"(x,value=c("a","b","c"))

还有一个类似的是"["(x,value)

调用的是names<-()函数，由于有特殊符号

所以为"names<-"()

左边不是变量名的赋值语句都可以看成置换函数

x[3] <- 8 #equals to "[<-"()

"[<-"()用于写入变量，而"["()用于读

x <- c(8,88,5,12,13)
"["(x,3)

用value值替换2,3个元素

x <- "[<-"(x,2:3,value=99:100)
x[2:3] <- 99:100```

可记录元素修改次数的向量类

#construct a new object of class bookvec
newbookvec <- function(x){
  tmp <- list()
  #the vector to count
  tmp$vec <- x
  #the counts of the writes,刚开始的时候count初始化为0
  tmp$wrts <- rep(0,length(x))
  #用class函数给这个列表赋予类的属性
  class(tmp) <- "bookvec"
  return(tmp)
}
#function to read
#类似于列表的读取操作，读取特定类"["(x,pos)
"[.bookvec" <- function(bv,subs){
  return(bv$vec[subs])
}
#function to write
#写入特定类(列表)"[<-"(x,pos,value)
"[<-.bookvec" <- function(bv,subs,value){
  bv$wrts[subs] <- bv$wrts[subs]+1
  bv$vec[subs] <- value
  #返回整个对象
  return(bv)
}```

#使用source()读取代码文件

source("xyz.R")

要使用edit()修改f1()函数

f1 <- edit(f1)

创建新函数

f2 <- edit(f1)

修改默认编辑器

options(editor = "/usr/bin/vim")```

二元运算符

#%开始和结束的函数，两个参数都是某种数据类型
#返回同样类型的值
"%a2b%" <- function(a,b) return(a+2*b)
3 %a2b% 5```

#匿名函数

f <- function(x) x/c(2,8)
z <- matrix(c(1,2,3,4,5,6),nrow = 3)

按行进行应用f到z

y <- apply(z,1,f)

或者是使用匿名函数

y <- apply(z,1,function(x) x/c(2,5))```