美文网首页
R--编程结构(二)

R--编程结构(二)

作者: KevinCool | 来源:发表于2016-03-21 09:28 被阅读58次

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 <- 2
z
}
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 <- 2
z
}```

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

#闭包包含一个可以创建局部变量的函数
#并且创建另外一个函数可以访问该变量
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))```

相关文章

  • R--编程结构(二)

    R语言中没有指针 使用<<-或者assign() two <- function(u){ 调用函数后,这里就会创建...

  • R--编程结构(一)

    相当于while(1) i<-1repeat{i <- i+4if(i>10) break}i``` next,停...

  • R--面向对象的编程

    OOP methods()找到给定泛型函数的所有实现方法 methods(print) 星号是不可见函数,不在默认...

  • (4)Linux_权限

    权限 UGO权限 对 root账号 不起作用 1. ll /etc/group:- rw- r-- r-- (总共...

  • Day15-操作系统文件属性(3)

    文件属性详细说明:文件权限rw- r-- r-- 文件权限包含9个权限位 12位权限属主: (r 读) (w 写)...

  • 2018-09-14

    2.14文件和目录权限chmod ls -l rw- r-- r-- 九位,前三位 可以读写不可执行 ,所有者的权...

  • 汇编程序基础

    汇编程序基础 一、汇编程序基本结构 二、汇编指令 1.汇编指令基本结构 三、伪指令 1.段定义 2.数据定义 数据...

  • linux目录权限

    一、 --- 代表只能查看目录本身的信息,即只可以执行ls -ld [目录名] 二、r-- 可以查看到目录内的文件...

  • xdl2

    指令式编程 顺序结构 分支结构 循环结构 变量作用域

  • 编程范式

    结构化编程 结构化编程采用顺序结构,分支结构,循环结构代替goto语句,它对程序控制权的直接转移进行了限制和规范。...

网友评论

      本文标题:R--编程结构(二)

      本文链接:https://www.haomeiwen.com/subject/qjsklttx.html