第五讲语言函数.ppt

第1页，共30页，星期日，2025年，2月5日第2页，共30页，星期日，2025年，2月5日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$Price[count]*1.12})}例子:将频率为266,333,400的内存的价格分别增加10%,15%,12%第3页，共30页，星期日，2025年，2月5日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]-MemInfo$Price[count]*1.15},4={MemInfo$Price[count]-MemInfo$Price[count]*1.12})}第4页，共30页，星期日，2025年，2月5日函数作为一种对象模式,函数和操作符在R语言内部以一种特殊的方式保存,这些函数和操作符可以在R语言中被调用在使用R语言的过程中我们可以调用R语言各种包中携带的函数,也可以根据实际需要定义自己的函数第5页，共30页，星期日，2025年，2月5日函数的定义和调用格式函数的定义格式function_name-function(arg_1,arg_2,…){expression}函数的调用格式function_name(arg_1,arg_2,…)第6页，共30页，星期日，2025年，2月5日例子xor-function(x,y){(x|y)!(xy)}第7页，共30页，星期日，2025年，2月5日x-c(T,T,F,F)y-c(T,F,T,F)xor(x,y)[1]FALSETRUETRUEFALSE异或:相异返回TRUE,相同返回FALSE.第8页，共30页，星期日，2025年，2月5日例子:冒泡法排序冒泡法排序算法:从第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，65，76，97第三次扫描后的数据第9页，共30页，星期日，2025年，2月5日BubbleSort-function(Datas,bDesc)#定义冒泡法排序函数bubbleSort(){if(!is.atomic(Datas)){stop(Datasmustbeatomic)}i=length(Datas)-1while(i0){nLastExchangeIn