我定义了一个名为S的函数，其参数为alpha：
S<-function(alpha){d<-numeric(1000)
for(i in 1:1000){d[i]<- I(EU(Lotteries_1,x,alpha)[i],EU(Lotteries_2,x,alpha)[i])}
return(sum(d))}
EU和我也是我定义的其他功能。另外，x，彩票_1和彩票2具有预定值。当我以任何单个值（例如S（2））计算时，S都可以正常工作。但是，当我尝试绘制它时，出现以下错误：
Error in -alpha %*% x[i] : non-conformable arguments
其中-alpha％*％x [i]是另一个函数T_u的定义的一部分，该函数在EU函数的定义中使用。 alpha也是函数T_u的参数。
我使用了多种方法来绘制函数。例如，我使用了以下代码：
curve(S, from=1, to=50, xlab="x", ylab="y")
任何有关为什么我在绘制S时都会出错的帮助将不胜感激！