最近在学习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
}
接着就报错了
函数式是这样的：