资源描述：
《第五讲 R语言函数ppt课件.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、第五讲 函数for(countin1:length(MemInfo$Price)){if(MemInfo$Frequency[count]=="266")case<-1elseif(MemInfo$Frequency[count]=="333")case<-2elsecase<-3switch(case,{MemInfo$Price[count]<-MemInfo$Price[count]*1.1},{MemInfo$Price[count]<-MemInfo$Price[count]*1.15},{MemInfo$Price[count]<-MemInfo$P
2、rice[count]*1.12})}例子:将频率为266,333,400的内存的价格分别增加10%,15%,12%for(countin1:length(MemInfo$Price)){if(MemInfo$Frequency[count]==266)case<-1elseif(MemInfo$Frequency[count]==333)case<-2elsecase<-4switch(case,"1"={MemInfo$Price[count]<-MemInfo$Price[count]*1.1},"2"={MemInfo$Price[count]<-Mem
3、Info$Price[count]*1.15},"4"={MemInfo$Price[count]<-MemInfo$Price[count]*1.12})}函数作为一种对象模式,函数和操作符在R语言内部以一种特殊的方式保存,这些函数和操作符可以在R语言中被调用在使用R语言的过程中我们可以调用R语言各种包中携带的函数,也可以根据实际需要定义自己的函数函数的定义和调用格式函数的定义格式function_name<-function(arg_1,arg_2,…){expression}函数的调用格式function_name(arg_1,arg_2,…)例子xor<
4、-function(x,y){(x
5、y)&!(x&y)}>x<-c(T,T,F,F)>y<-c(T,F,T,F)>xor(x,y)[1]FALSETRUETRUEFALSE异或:相异返回TRUE,相同返回FALSE.例子:冒泡法排序冒泡法排序算法:从第i个元素开始两两进行比较,并将较大的数值往后推移65，97，76，13，27，49，581：[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
6、，65，76，97第三次扫描后的数据BubbleSort<-function(Datas,bDesc)#定义冒泡法排序函数bubbleSort(){if(!is.atomic(Datas)){stop("'Datas'mustbeatomic'")}i=length(Datas)-1while(i>0){nLastExchangeIndex=0j=0for(jin1:i){if((bDesc&&Datas[j]>Datas[j+1])
7、
8、(!bDesc&&Datas[j]9、j+1]Datas[j+1]=TempDatanLastExchangeIndex=j}}i=nLastExchangeIndex}Datas}B>x<-rnorm(100,1,1)>y<-BubbleSort(x,TRUE)>plot(x)>plot(y)调用BubbleSort函数练习5.1编写一个函数，给出两个数之后，直接给出这两个数的平方和。定义二元操作符在R语言中，可以将函数定义成一个操作符以方便地使用。形式为：%anything%%%余数%*%矩阵内积%/%整除%in%交集%o%数组外积%x%KroneckerProductsonArrays"%<-
10、>%"<-function(x,y){TempData=Datas[x]Datas[x]<<-Datas[y]Datas[y]<<-TempDataDatas}例子：交换向量中的两个数据Datas=c(65,97,76,13,27,49,58)2%<->%4->datasDatas[1]65137697274958R语言中个操作符号的优先级别1::显示调用各包的共同函数2$@数据列表子集操作符号3^求幂操作4-+一元操作符5:序列操作符号%xyz%各种定义操作符号,包括R语言系统固有的定义符号%x%,%%,%/%,%*%,%o%,%in%等7*/二元操作符,算术
11、运算符号8+-算术运输符
