1 / 30
文档名称:

第五讲语言函数.ppt

格式:ppt   大小:3,748KB   页数:30页
下载后只包含 1 个 PPT 格式的文档,没有任何的图纸或源代码,查看文件列表

如果您已付费下载过本站文档,您可以点这里二次下载

分享

预览

第五讲语言函数.ppt

上传人:文库新人 2021/10/21 文件大小:3.66 MB

下载得到文件列表

第五讲语言函数.ppt

相关文档

文档介绍

文档介绍:第五讲语言函数
第一页,共30页
第二页,共30页
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%
第三页,共30页
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]*
})
}
第四页,共30页
函数
作为一种对象模式,函数和操作符在R语言内部以一种特殊的方式保存,这些函数和操作符可以在R语言中被调用
在使用R语言的过程中我们可以调用R语言各种包中携带的函数,也可以根据实际需要定义自己的函数
第五页,共30页
函数的定义和调用格式
函数的定义格式
function_name<-function(arg_1,arg_2,…)
{
expression
}
函数的调用格式
function_name(arg_1,arg_2,…)
第六页,共30页
例子
xor <- function(x, y) { (x | y) & !(x & y) }
第七页,共30页
> x<-c(T,T,F,F)
> y<-c(T,F,T,F)
> xor(x,y)
[1] FALSE TRUE TRUE FALSE
异或:相异返回TRUE,相同返回FALSE.
第八页,共30页
例子:冒泡法排序
冒泡法排序算法:从第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 第三次扫描后的数据
第九页,共30页
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)