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），而且这个函数更容易推广到新场景
