R言語のelse文の場合は "}"で予期しない '}]

Question

データマイニングの対象でボンド値の計算を行っています。私は他の機能があれば問題があります。 **

> } 
Error: unexpected '}' in "}" 

**

私はすでに私の問題ではなくのどれに関連するすべてのトピックを読んで：ここでは、エラーメッセージがある...

P<-1000 #original value - Menh gia trai phieu 
T<-20 #maturity - Thoi han trai phieu - semi 
r<-.06 #annual rate - Lai suat yeu cau 
C<-30 #present value of coupons - Lai dinh ki 

BV <- function(P,C,r,t,T){ #t = -th year 
    #Find coupon Bon Value at time t mat T - Gia trai phieu 
    tmat <- T-t # How many years have you get your bonds for? 
    acrued <- C*2*t #already paid 
    if(tmat != 0) { #include interim coupons 
     i <- seq(1,2*tmat) #BVsemi - seq()=for loop 
     acrued + sum(C/(1+r/2)^i) + P/(1+r/2)^(2*tmat) 
    }else{ 
     acrued + P/(1+r/2)^(2*tmat) 
    } 
} 

ですそれらはうまくいきます... この問題の光を私に見せてください...

ありがとう

Hoang Anh

Answer 1

問題は再現されません。私はあなたのコードをコピーして、何のエラーも受けなかった。

> P<-1000 #original value - Menh gia trai phieu 
> T<-20 #maturity - Thoi han trai phieu - semi 
> r<-.06 #annual rate - Lai suat yeu cau 
> C<-30 #present value of coupons - Lai dinh ki 
> 
> BV <- function(P,C,r,t,T){ #t = -th year 
+  #Find coupon Bon Value at time t mat T - Gia trai phieu 
+  tmat <- T-t # How many years have you get your bonds for? 
+  acrued <- C*2*t #already paid 
+  if(tmat != 0) { #include interim coupons 
+   i <- seq(1,2*tmat) #BVsemi - seq()=for loop 
+   acrued + sum(C/(1+r/2)^i) + P/(1+r/2)^(2*tmat) 
+  }else{ 
+   acrued + P/(1+r/2)^(2*tmat) 
+  } 
+ } 
>