xtoy<-function(x){
if (x<0){
y=1-x
}
if (x>0){
y=1+x
}else{ stop("x的域沒有定義為0")}
上面的代碼在R中運行後
妳要用的時候就:xtoy(某個數)