引言

本文编写的函数是符号函数sgn，符号函数的定义如下：
f(x)={1,x>00,x=0−1,x<0f(x)=\left\{ \begin{aligned} 1 ,x >0 \\ 0, x = 0 \\ -1, x <0\\ \end{aligned} \right. f(x)=⎩⎪⎨⎪⎧1,x>00,x=0−1,x<0
R语言内部没有这个内置函数。我们可以通过function、if函数很简单的定义自己的符号函数，因为if函数不能向量化判断，所以很难写成向量化的函数。在写自己的算法的时候如果表达式中用到符号函数就会在模拟的时候变得很慢。本文就从逻辑函数的角度来定义符号函数。

函数

if函数

非向量化的

> sgn_x <- function(x){+   if(x > 0) return(1)
+   else if(x < 0) return(-1)
+   else return(0)
+ }
> x = -5:5
> x[1] -5 -4 -3 -2 -1  0  1  2  3  4  5
> sgn_x(x)
[1] -1
Warning messages:
1: In if (x > 0) return(1) else if (x < 0) return(-1) else return(0) :条件的长度大于一，因此只能用其第一元素
2: In if (x < 0) return(-1) else return(0) :条件的长度大于一，因此只能用其第一元素
> sgn_x(10.5)
[1] 1
> sgn_x(0)
[1] 0
> sgn_x(-0.5)
[1] -1

向量化的

> sgn_v <- function(x){+   for(i in 1:length(x)) x[i] <- sgn_x(x[i])
+   return(x)
+ }
> x = -5:5
> x[1] -5 -4 -3 -2 -1  0  1  2  3  4  5
> sgn_v(x)[1] -1 -1 -1 -1 -1  0  1  1  1  1  1

逻辑函数

> sgn <- function(x){+   2*(x > 0) + (x == 0) - 1
+ }
> x = -5:5
> x[1] -5 -4 -3 -2 -1  0  1  2  3  4  5
> sgn(x)[1] -1 -1 -1 -1 -1  0  1  1  1  1  1

总结

可以看出sgn_v这是一个伪向量化的函数，实际还是循环

R语言——符号函数（向量化）相关推荐

R语言自定义函数之趣味程序--老虎机
****R语言自定义函数之趣味程序--老虎机**** 自定义函数自定义规则自定义格式案例:老虎机老虎机符号准备老虎机结果分类老虎机得分计算开始老虎机试玩获奖感言自定义函数 R语言作 ...
R语言str_trim函数去除字符串中头部和尾部的空格
R语言str_trim函数去除字符串中头部和尾部的空格目录 R语言str_trim函数去除字符串中头部和尾部的空格 #导入包和库 #仿
R语言sqrt函数为数值开平方根实战
R语言sqrt函数为数值开平方根实战目录 R语言sqrt函数为数值开平方根实战 #基本语法 #sqrt函数开平方根
R语言数学函数：abs绝对值、sqrt平方根、ceiling向上近似整数、floor向下近似整数、trunc去除小数部分、round近似到指定小数位、signif近似到有效数字、三角函数、指数、对数
R语言数学函数:abs绝对值.sqrt平方根.ceiling向上近似整数.floor向下近似整数.trunc去除小数部分.round近似到指定小数位.signif近似到有效数字.三角函数.指数.对数 ...
R语言sd函数计算数值标准差实战（Standard Deviation）
R语言sd函数计算数值标准差实战(Standard Deviation) 目录 R语言sd函数计算数值标准差实战(Standard Deviation) #基本语法 #sd
R语言optimize函数一维优化实战
R语言optimize函数一维优化实战目录 R语言optimize函数一维优化实战 #基础语法 #优化用户自定义的函数
R语言rev函数对数据对象（向量、dataframe通过行或者列）反序实战
R语言rev函数对数据对象(向量.dataframe通过行或者列)反序实战目录 R语言rev函数对数据对象(向量.dataframe通过行或者列)反序实战
R语言用户自定义函数的语法结构、编写自定义统计值计算函数（使用ifelse结构计算均值和标准差等）、编写自定义日期格式化（format）函数（switch函数使用不同分枝格式化日期数据）、应用自定函数
R语言用户自定义函数的语法结构.编写自定义统计值计算函数(使用ifelse结构计算均值和标准差等).编写自定义日期格式化(format)函数(switch函数使用不同分枝格式化日期数据).应用自定函数 ...
R语言merge函数全连接dataframe数据（Full (outer) join）、merge函数进行全连接必须将参数all设置为true（all=TRUE）、默认merge函数通过公共列名合并数
R语言merge函数全连接dataframe数据(Full (outer) join).merge函数进行全连接必须将参数all设置为true(all=TRUE).默认merge函数通过公共列名合并数 ...
R语言percent函数用百分比表示数值实战
R语言percent函数用百分比表示数值实战目录 R语言percent函数用百分比表示数值实战 #仿真数据

R语言——符号函数（向量化）

目录

引言

函数

if函数

逻辑函数

总结

R语言——符号函数（向量化）相关推荐

最新文章

热门文章