第五讲 r语言函数.pptVIP

第五讲　 函数 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]*1.1 }, { MemInfo$Price[count]-MemInfo$Price[count]*1.15 }, { MemInfo$Price[count]-MemInfo$Price[count]*1.12 }) } 例子:将频率为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]*1.1 }, 2={ MemInfo$Price[count]-MemInfo$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 - 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 (!is.atomic(Datas)) { stop(Datas must be atomic) } i=length(Datas)-1 while (i0) { 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]