求教一个简单的R函数编写

最近在学习R，照着书上的程序语句在电脑上运行，但是到了这一步就出现错误，请教各位错在哪里了。
原程序如下（直接粘贴过来的）
size<-c(1.42,1.58,1.78,1.99,1.99,1.99,2.13,2.13,2.13,
2.32,2.32,2.32,2.32,2.32,2.43,2.43,2.78,2.98,2.98)
wear<-c(4.0,4.2,2.5,2.6,2.8,2.4,3.2,2.4,2.6,4.8,2.9,
3.8,3.0,2.7,3.1,3.3,3.0,2.8,1.7)
x<-size-min(size);x<-x/max(x)
rk<-function(x,z) # R(x,z) for cubic spline on [0,1]
{ ((z-0.5)ˆ2-1/12)*((x-0.5)ˆ2-1/12)/4-
((abs(x-z)-0.5)ˆ4-(abs(x-z)-0.5)ˆ2/2+7/240)/24
}
接着就报错了
函数式是这样的：

rk<-function(x,z){
+ ((z-0.05)^2-1/12)*((x-0.5)^2-1/12)/24
+ -((abs(x-z)-0.5)^4-(abs(x-z)-0.5)^2/2+7/240)/24
+ }

这个是我的，你确保你用的都是英文输入法吗？大括号。。。

我这里试了下你的函数，无错。。。

cfa4y 发表于 2013-2-22 17:44
我这里试了下你的函数，无错。。。

请问在这之前要要键入其他语句吗？我还不大熟悉R的语言环境，但是一运行R，直接粘帖这段语句，确实是报错呢。

tornadojan 发表于 2013-2-22 17:49
请问在这之前要要键入其他语句吗？我还不大熟悉R的语言环境，但是一运行R，直接粘帖这段语句，确实是报错 ...

如果你直接粘贴的话，要粘贴这个，不然R会自动再给你加几个+号的。

记住先粘贴到记事本里，然后复制代码，从论坛直接复制的永远会有：本文来自: 人大经济论坛 S-Plus&R专版 版，详细出处参考： http://bbs.pingg

rk<-function(x,z){
((z-0.05)^2-1/12)*((x-0.5)^2-1/12)/24
-((abs(x-z)-0.5)^4-(abs(x-z)-0.5)^2/2+7/240)/24
}

cfa4y 发表于 2013-2-22 17:46
rk

嗯，我检查了下，问题应该是处在输入过程上，应该使用英文输入法，谢谢