我在R中输入的代码如下，

> v<-seq(0,1000,length=21)
> r<-rnorm(100000)
> for (x in v){
+     y<-mean(log(x*exp(0.1+0.2*r)+(1000-x)*1.1,10))
+     print(y)
+ }

[1] 3.041393
[1] 3.041911
[1] 3.042383
[1] 3.042809
[1] 3.043191
[1] 3.04353
[1] 3.043824
[1] 3.044076
[1] 3.044284
[1] 3.04445
[1] 3.044574
[1] 3.044655
[1] 3.044694
[1] 3.044691
[1] 3.044645
[1] 3.044556
[1] 3.044425
[1] 3.04425
[1] 3.044031
[1] 3.043768
[1] 3.04346
> max(y)
[1] 3.04346

> y<-mean(log(x*exp(0.1+0.2*r)+(1000-x)*1.1,10))
> max(y)
[1] 3.04346


我想找出这里的最大值，可是出来的只是最后一个结果，请问要怎么用函数找出最大的y呢？谢谢！