R中 if短句+小函数

R中两个值选择的if语句

 a <- 3:1;
 b <- 1:3
ifelse(a > b, 1, 0)

image.png

小函数（单行函数）

 disp = function(x) x * 0.0163871

小函数

f1=function(x) abs(x-mean(x))^1
f2=function(x) abs(x-mean(x))^2
f3=function(x) abs(x-mean(x))^3

可以发现这段代码中有很多重复，并可以使用一个附加参数来提取重复代码

f=function(x,i) abs(x-mean(x))^i

这样我们便可以减少出错的概率（因为现在的代码只是原来的1/3），而且这个函数更容易推广到新场景