5R语言函数讲解.pptVIP

第五讲　 函数 函数 作为一种对象模式,函数和操作符在R语言内部以一种特殊的方式保存,这些函数和操作符可以在R语言中被调用 在使用R语言的过程中我们可以调用R语言各种包中携带的函数,也可以根据实际需要定义自己的函数 函数的定义和调用格式 函数的定义格式 function_name-function(arg_1,arg_2,…) { expression } 函数的调用格式 function_name(arg_1,arg_2,…) 例子 例子:冒泡法排序 冒泡法排序算法:从第i个元素开始两两进行比较,并将较大的数值往后推移 练习5.1 编写一个函数，给出两个数之后，直接给出这两个数的平方和。 定义二元操作符 %% 余数 %*% 矩阵内积 %/% 整除 %in% 交集 %o% 数组外积 %x% Kronecker Products on Arrays R语言中个操作符号的优先级别 参数名和参数缺省定义 调用函数时，可以按照参数表的定义顺次给参数逐一地设值，也可以通过参数名直接应用。 采用参数名调用函数时，参数名应用的顺序可以同函数参数定义的顺序无关。 在定义函数时可以设定一些缺省值的参数，当调用函数时，如果不设定某个参数，则这个参数将按缺省值进行处理。 函数和变量的作用范围 函数中使用的变量可以分为三种类型：参数变量、局部变量、自由变量。 参数变量即函数的参数，调用函数时将参数的数值传递给参数变量。 局部变量是指函数内部声明的变量，退出函数时这些局部变量将被清除。 参数变量和局部变量以外的变量都为自由变量。在R语言中自由变量逐级往上寻找相同名字的变量来赋值；如果没找到则产生新的自由变量。 调试 R语言不具有单步跟踪、设置断点、观察表达式等调试功能 可以用print(), cat()函数实时显示需要调试的信息 可以用browser()函数暂停程序，并进入单步执行状态 例子：小鼠下丘听觉诱发电位在麻醉过程中的变化情况 练习5.3 查看demo: Base: is.things Base: recursion * 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 }) } 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 T