第五讲 r语言函数.ppt

文档介绍：第五讲函数
for (count in 1:length(MemInfo$Price))
{
if (MemInfo$Frequency[count]=="266")
case<-1
else if(MemInfo$Frequency[count]=="333")
case<-2
else
case<-3
switch(case,
{
MemInfo$Price[count]<-MemInfo$Price[count]*
},
{
MemInfo$Price[count]<-MemInfo$Price[count]*
},
{
MemInfo$Price[count]<-MemInfo$Price[count]*
})
}
例子:将频率为266,333,400的内存的价格分别增加10%,15%,12%
for (count in 1:length(MemInfo$Price))
{
if (MemInfo$Frequency[count]==266)
case<-1
else if(MemInfo$Frequency[count]==333)
case<-2
else
case<-4

switch(case,
"1"={
MemInfo$Price[count]<-MemInfo$Price[count]*
},
"2"={
MemInfo$Price[count]<-MemInfo$Price[count]*
},
"4"={
MemInfo$Price[count]<-MemInfo$Price[count]*
})
}
函数
作为一种对象模式,函数和操作符在R语言内部以一种特殊的方式保存,这些函数和操作符可以在R语言中被调用
在使用R语言的过程中我们可以调用R语言各种包中携带的函数,也可以根据实际需要定义自己的函数
函数的定义和调用格式
函数的定义格式
function_name<-function(arg_1,arg_2,…)
{
expression
}
函数的调用格式
function_name(arg_1,arg_2,…)
例子
xor <- function(x, y) { (x | y) & !(x & y) }
> x<-c(T,T,F,F)
> y<-c(T,F,T,F)
> xor(x,y)
[1] FALSE TRUE TRUE FALSE
异或:相异返回TRUE,相同返回FALSE.
例子:冒泡法排序
冒泡法排序算法:从第i个元素开始两两进行比较,并将较大的数值往后推移
65,97,76,13,27,49,58
1: [65,76,13,27,49,58,] 97 第一次扫描后的数据
2: [65,13,27,49,58,] 76,97 第二次扫描后的数据
3: [13,27,49,58,] 65,76,97 第三次扫描后的数据
4: [13,27,49,] 58,65,76,97 第三次扫描后的数据
BubbleSort<-function(Datas,bDesc) #定义冒泡法排序函数bubbleSort()
{
if (!(Datas))
{
stop("'Datas' must be atomic'")
}
i=length(Datas)-1
while (i>0)
{
nLastExchangeIndex=0
j=0
for (j in 1:i)
{
if ((bDesc && Datas[j]>Datas[j+1])||(!bDesc && Datas[j]<Datas[j+1]))
{
TempData=Datas[j]
Datas[j]=Datas[j+1]
Datas[j+1]=TempData
nLastExchangeIndex=j
}
}
i=nLastExchangeIndex
}
Datas
}B