人们不能正确编写该函数:(帮助
ella<-function(prezzi,rendimenti,r,b,Time){
prezzi<-t(prezzi)
rendimenti<-t(rendimenti)
a<-length(prezzi)
x<-rchisq(1,a)
k<-round(x,0)
S<-prezzi[k]
X<-prezzi[a]
n<-a-k
n1<-a-k+1
varianza=(var(rendimenti))
sigma=sqrt(varianza)
if(S < X){
put_america<-matrix(0,n1,n1)
put_america<-BinomialTreeOption("pa",S,X,Time,r,b,sigma,n)
S1<-put_america[, n1]+X
BinomialTreePlot(put_america)
return(S1)
}else{
call_america<-matrix(0,n1,n1)
call_america<-BinomialTreeOption("ca",S,X,Time,r,b,sigma,n)
S2<-call_america[, n1]+X
return(S2)}}