我想可能 substitute(x) 返回的object的类型是 name
所以你可以用 class(s2(a))
因为substitute 不自动evaluate 里面的参数。
如果 eval(substitute(x))那么就返回a的值了

"求证1加1" 的看法 与"ntsean" 的观点都是很有启发性，而且很热心。【他举的例子可以参考】

我个人对R不太熟，哈！ 不过印象中，substitute用在字符串吗？
坦白说，我个人对于{ } 也就是statements 在阅读上有点困扰，哈！ 可能是中Stata的语法毒。

s1 <- function(x, y = substitute(x)) { x <- x + 1; y }
s2 <- function(x, y) { if(missing(y)) y <- substitute(x); x <- x + 1; y }
s3 <- function(x, y) { if(missing(y)) { y <- x + 1} ;y}
s4 <- function(x, y = substitute(x)) { y; x <- x + 1; y }
s5 <- function(x, y = substitute(x)) { x <- x + 1; y }
a <- 10
s1(a)
s2(a)
s3(a)
s4(a)
s5(a)

为什么s1(a)是11，s2(a)是a，s3(a)是11，s4(a)是a，s5(a)是11
感觉我只是重复stata版主"dxystata"的问题，而且再加问几个…
不过这些差异可以帮助个人对于自建function的理解。

最近用R写点东西，需要恶补！

哈！ 我也是，我是因为要用到 R 的 np package，只好恶补一阵子 R，最近在恶补 Rats，反正缺什么就补什么，不过很容易语法乱乱乱就是了！

h3327156兄对R也很兴趣啊！

这叫钻牛角尖； 直接定义s<-function(x,y=x) {x<-x+1;y}
a=10,b=12
则  程序是按顺序执而已也
s(a)=11,因为先执行x<-x+1=11，然后执行y<-x=11;最后执行输出y=11,函数中未要求输出x
s(a,b)=12,因为先执行x<x+1=11,然后执行y<-b=12,最后执行输出y=12,函数中未要求输出x
若定义：s<-function(x,y=x) {y;x<x+1,y}
则按序：
s(a)=10,因为先执行y<-x=10,再执行x<-x+1=11,再执行y<-y=10(这特别注意y 前已赋值为10），最后输出y
为10，函数未要求输出x ..

其实，电脑还很简单的，它就是按你下达命令的序执行，不会跳的，你觉奇，是你在跳。请见回贴。

其实，电脑还很简单的，它就是按你下达命令的序执行，不会跳的，你觉奇，是你在跳。请见回贴。

若定义：s<-function(x,y=x) {y;x<x+1;y}
则按序：
a=10
b=12
s(a)=10,因为先执行y<-x=10,再执行x<-x+1=11,再执行y<-y=10(这特别注意y 前已赋值为10），最后输出y
为10，函数未要求输出x
s(a,b)=12,因为先执行y<-b=12;再执行x<-x+1=11,再执行y<-y=12(这特别注意y 前已赋值为12），最后输
出y为12，函数未要求输出x
若定义：s<-function(x,y=x) {if (missing(y)) y<-x;x<-x+1;y}
道理也是这样
s(a)=10
s(a,b)=12