c语言 r作用,R--编程结构(一)

x

for(n in x) print(n^2)

i

while(i <= 10) i

i

i

while(TRUE){

i

if (i>10) break

}

i```

#repeat语句对主体部分求值直到明确的要求退出

相当于while(1)

i

repeat{

i

if(i>10) break

}

i```

next,停止本次循环，进入循环的下次迭代，避免使用复杂的if-else

a

a[11]

for (i in a){

if(i %% 2 ==0){

print("this is an even number.")

if(i==2){

print("oh,it's 2")

next

}

else{

print("this is an odd number")

}

}

print(paste("the number is ",as.character(i),"."))

}```

#R不支持直接对非向量集合进行循环，使用get()函数完成循环

注意get()的参数接收代表对象名字的字符串参数，返回对象的内容

u

v

for (m in c("u","v")){

z

print(lm(z[,2]~z[,1]))

}```

if-else语句会返回最后赋予的值

x

y

if(x==2) y

#if的大括号是必须的

if(x==2){

x

}else{

x

y

}```

#向量使用&，而标量作为特殊的向量使用&或者&&都可以

然后if判断条件只能使用一个逻辑值，因此就会有用

x

y

x && y

x & y

x[1] && y[1]

TRUE和FALSE可以简写为T和F```

返回值

#如果不使用return()语句，将会把最后执行的语句的值作为返回值

#返回值通常为列表的形式

oddcount

k

for (n in x){

if (n %% 2 ==0){

k

}

}

k

#return(k)

}```

#函数对象

x

g

t

return(x^2)

}

return(t)

}

t

t(x)

将函数对象打印出来

g

查看函数代码，直接输入对象名称，

或者篇幅很长page(function),edit(function),

但是基本的函数如sum不能这样做因为是c语言写的

g1

g2

g3

plot(c(0,1),c(-1,1.5))

plot.function draws a curve corresponding to a function over the interval [from to]

add=T if T add to an already existing plot

for(f in c(g1,g2,g3)) plot(f,0,1,add=T)```

不明白的地方

g

body(g)

#环境和作用域

函数-闭包closure,环境

w

f

d

h

#print(ls())

print(ls(envir = parent.frame(n=1)))

return(d*(w+y))

}

return(h())

}

输出为R_GlobalEnv表示在顶层环境

environment(f)

ls()会返回当前的局部变量，使用envir参数

ls()会输出函数调用链中的任何一个框架的局部变量名

ls()

parent.frame(n=1)表示沿函数调用链向上追溯1个框架

ls(envir = parent.frame(n=1))```

函数没有副作用

#不改变非局部变量,f中的局部变量和w开始时候共享一个地址，但是当f中的w改变的时候

#就会分配新地址给w

w

f

d

w

y

print(w)

#h()创建的时候就创建了对应的局部变量，因此会掩盖上层环境的同名变量

h

return(d*w+y)

}

return(h())

}

#全局变量在函数中是只读,除非使用超赋值运算符<

#一个显示框架层次环境的函数

showframe

determine the proper environment

if(upn < 0){

env

}else{

env

}

get the list of variable names

vars

for each variable name, print its value

for(vr in vars){

#处理环境层次结构的多个层次，因此使用envir参数设定层次

vrg

if(!is.function(vrg)){

#如果不是函数的话，将值打印出来

cat(vr,":\n",sep = "")

print(vrg)

}

}

}

f

a

return(g(a)+a)

}

g

b

aab

向上追溯一个框架，也就是g中的变量，因为showframe也占用了一个框架

showframe(0)

向上追溯2个框架，也就是f中的变量

showframe(1)

return(aab)

}

f()```