请大家看看我这段代码有啥问题，为什么会提示“更换参数长度为零”？

pse=rep(0,Iter)
psa=rep(0,Iter)

for (j in c(1:Iter))  {
+   P=rep(0, T)
+   for (i in c(1:T)) {     
+      n=rnorm(1,0,1)
+      temp = exp(r-0.5*(s)^2 + s*n)
+ if(i>=2)
+ P= P[i-1] * temp
+ if(i==1)
+  P=initPrice*temp
+ }
+ pse[j]=P[T]
+   psa[j]=mean(P)
+ }
错误于P = initPrice * temp : 更换参数长度为零

        希望大家帮忙找找原因，多谢~

我也出了这个问题，检查了几个小时，才发现是我用了三个for循环，其中之前的是i和j,今天刚在最前面加了个循环，仍然用的i，所以才会报这个错，将第一个改成k就可以了。

怎么解决呢？

pse=rep(0,Iter)
psa=rep(0,Iter)

for (j in c(1:Iter))  {
+   P=rep(0, T)
+   for (i in c(1:T)) {     
+      n=rnorm(1,0,1)
+      temp = exp(r-0.5*(s)^2 + s*n)
+ if(i>=2)
+ P【i】= P[i-1] * temp
+ if(i==1)
+  P【i】=initPrice*temp
+ }
+ pse[j]=P[T]
+   psa[j]=mean(P)
+ }


这是欧式和亚式期权的MC模拟吧

xuruilong100 发表于 2015-1-11 12:59
pse=rep(0,Iter)
psa=rep(0,Iter)

明眼人，还望高手解答~

xuruilong100 发表于 2015-1-11 12:59
pse=rep(0,Iter)
psa=rep(0,Iter)

已经解决了，多谢~

f=read.csv(file.choose(),header=TRUE,sep=",")
f[is.na(f)]<-2
a<-f[,1]
b<-levels(factor(a))
k<-length(b)
for(i in 1:k){
c<-subset(f,f$LICENSEPLATENO==b[i])
c$GPS_TIME<-as.character(c$GPS_TIME)
d<-as.numeric(strptime(c$GPS_TIME,format = "%Y/%m/%d %H:%M"))
data<-sort(d)
e<-c[order(d),]
g<-length(e$EFF)
e[is.na(e$EFF)]<-0
for(j in 2:g){
if(e$EFF[j]==1&e$EFF[j-1]==0&e$EFF[j+1]==1){
print(j)
e<-e[j,]
names(e)<-NULL
write.table(e,file="C:/Users/Administrator/Desktop/b.csv",sep=',',append=TRUE)
}else{next}
}}
运行后提示Error in if (e$EFF[j] == 1 & e$EFF[j - 1] == 0 & e$EFF[j + 1] == 1) { :
  参数长度为零
望高手解答

zjkky2008 发表于 2015-1-11 14:53
已经解决了，多谢~

是什么原因啊，我最经也碰到了