R语言学习五 函数、循环、条件表达

编写函数

函数名 = function (参数 1，参数 2…)
{
函数体
函数返回值
}

std = function(x) { sqrt(var(x)) }

例1：无参数

welcome = function() print(“welcome to use R”)
welcome()
[1] “welcome to use R”

例2：单参数

welcome.sb = function(names) print(paste(“welcome”,names,”to use R”))
welcome.sb(“Mr fang”)
[1] “welcome Mr fang to\nuse R”

例3： t 统计量

sim.t=function(n){
mu=10;sigma=5;
x=rnorm(n,mu,sigma)
(mean(x)-mu)/(sd(x)/n)
}
sim.t(5)
[1] 1.902354

例4：

sim.t = function(n,mu=10,sigma=5){
x=rnorm(n,mu,sigma)
(mean(x)-mu)/(sd(x)/n)
}

sim.t(5) # 样本含量为 5，均值为 10，标准差为 5
sim.t(5,0,1) # 样本含量为 5，均值为 0，标准差为 1

循环

for 循环的句法是：
for (变量 in 取值向量) {
表达式…
}

例1：

x.sum = function(x){
s = 0
for(i in 1:length(x)) s = s + x[i]
s
}
x.sum(x=1:10)

例2：

par(mfrow=c(2,2))
for(i in c(2,5,10,25)) hist(rt(100,df=i),breaks=10)

while(条件)
{循环体}

条件表达式

将一组数中的负数变成正数

abs.x=function(x){
if (x[x<0]) {x[x<0]=-x[x<0]}
x
}
abs.x(c(3,-3))
[1] 3 3

if（条件）表达式
或是
if（条件） {
表达式}
else{
表达式
}