结果不同为什么?

s1 <- function(x, y = substitute(x)) { x <- x + 1; y }
s2 <- function(x, y) { if(missing(y)) y <- substitute(x); x <- x + 1; y }
a <- 10
s1(a) # 11s2(a) # a谢谢！

直接在function里定义缺省值的话，他会在最后用到的时候执行，这里就是最后一句。而用if语句的话，一开始就执行了，后面就没他什么事了。回答完毕。不好意思一开始回答错了，非常抱歉
ps：stata版大改行了？

这是R特有的一个性质，叫做lazy evaluation, 只有在需要的时候才evaluate他的值
所以这两个函数evaluate的时间不同
s1里面，y=substitue(x) 是最后执行y语句时候才evaluate的(虽然他是再函数定义里面，但是因为没需要所以一直没有evaluate)，这个时候 x变成11了，所以y是11
s2里面，y一开始就evaluate了，这个时候x才是10，所以y是10

求证1加1 发表于 2013-4-16 08:25
直接在function里定义缺省值的话，在函数全局都会有效，也就是一直到函数执行完毕，y=x恒成立。而用if语句的 ...

这个解释肯定不对, 比如

s1 <- function(x, y = substitute(x)) { y; x <- x + 1; y }
s1(10) 还是 10

ntsean 发表于 2013-4-16 09:40
这个解释肯定不对, 比如

s1

对对 不好意思 我刚才脑子抽风了 非常抱歉

ntsean 发表于 2013-4-16 09:37
这是R特有的一个性质，叫做lazy evaluation, 只有在需要的时候才evaluate他的值
所以这两个函数evaluate的时间不同
s1里面，y=substitue(x) 是最后执行y语句时候才evaluate的(虽然他是再函数定义里面，但是因为没需要所以一直没有evaluate)，这个时候 x变成11了，所以y是11
s2里面，y一开始就evaluate了，这个时候x才是10，所以y是10

这里s1(a)的结果是11，s2(a)的结果是a

dxystata 发表于 2013-4-16 11:37
这里s1(a)的结果是11，s2(a)的结果是a

我想可能 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的理解。

求证1加1 发表于 2013-4-16 08:25
直接在function里定义缺省值的话，他会在最后用到的时候执行，这里就是最后一句。而用if语句的话，一开始就执行了，后面就没他什么事了。回答完毕。不好意思一开始回答错了，非常抱歉
ps：stata版大改行了？

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

dxystata 发表于 2013-4-16 12:16
最近用R写点东西，需要恶补！

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