R语言_第七章.pptVIP

* 第七章 R语言编程结构 1、控制语句 for break x-c(5,12,13) for(n in x) if(n==x[length(x)])break print(x^2) while i-1 while(i=10)i=i+4 repeat repeat{ i-i+4 if(i10)break } next：结束本次循环，开始下一次 repeat{ i-i+4 if(i==13)next if(i10)break } get()：R不支持对非向量的循环，而get()则可以接受一个代表对象名字的字符串参数，然后返回该对象的内容 u-matrix(c(1,2,3,1,2,4),nrow=3) v-matrix(c(8,12,20,15,10,2),nrow=3) for(m in c(u,v)){ z-get(m) print(lm(z[,2]~z[,1])) } if-else结构 正确语法 r-4 if(r==4){ x-1 } else { x-3 y-4 } r-2 if(r==4)x-1 else c(x-3,y-4) r-2 if(r==4)x-1 else { x-3 y-4 } 错误写法 r-2 if(r==4)x-1 else x-3y-4 Error in 3 y - 4 : target of assignment expands to non-language object r-2 if(r==4)x-1 else { x-3 y-4 } Error: unexpected else in else r-2 if(r==4)x-1 else {x-3 y-4} Error: unexpected symbol in if(r==4)x-1 else {x-3 y 2、算数的逻辑运算符及数值 x+y 加法 x-y 减法 x*y 乘法 x/y 除法 x^y 乘幂 x%%y 模运算 x%/%y 整数除法 x==y 等于 x=y 小于等于 x=y 大于等于 xy 标量的逻辑与运算 #当遇到向量时，只判断第一个 x||y 标量的逻辑或运算 xy 向量的逻辑与运算 x|y 向量的逻辑或运算 !x 逻辑非 3、参数的默认值 read.table(abalone.txt,header=T) 参数的默认值是header=FALSE，如果我们不改变设定，那么读取的文件的第一行就会被当做数据读取 4、返回值 可以显式调用：return(k);也可以直接输入要返回的内容:k；也可以返回复杂对象：return(k^2) 用何种方式返回，全凭用户习惯。 注：显式调用return()会略微延长执行时间。 5、函数都是对象 function()是R的一个内置函数，功能是创建函数，由形参列表和函数体组成；{也是一个函数，功能是把几条语句组织成一个单元 g-function(x){ #创建函数 return(x+1) } formals(g) #显示形参列表 body(g) #显示函数体 formals(g) $x body(g) { return(x + 1) } 函数也可以这样写： g-function(x) x body(g)-quote(2*x) g(3) [1] 6 输入函数名或用page()函数可查询函数代码，edit()函数可编辑函数代码，不管是自己写的还是库里的，当然，一些最基本的函数是用C写的，不能用上述方式查看和编辑。 6、环境与变量作用域 顶层就是指在提示符下创建的对象 w-12 f-function(y){ d-8 h-function(){ return(d*(w+y)) } return(h()) } environment(f) #测试和创建工作环境 environment: R_GlobalEnv #顶层环境 还可以用ls()来得到顶层环境下的对象名单 顶层外的其他层的对象用 ls.str()得到 作用域的层次 w-12 f-function(y){ d-8 h-function(){ return(d*(w+y)) } return(h()) } f(2) 112 w 就