自己学着写了一个函数，为什么总是报错找不到对象呢，希望大家帮我看看问题在哪。

尘土

val<-function(C,M,P,n,e){
x1=0;x2=10;
while(abs(P-y)>(P*e))
{
x=(x1+x2)/2;
y=(C*((1+x)^n-1)/((1+x)^(n+1)-(1+x)^n)+M/((1+x)^n));
if(P<y)
{
x1=x2
}
else
x2=x1
}
x;
}
val(1000,10000,2125,3,0.00001)