エラー - IFUNCTION（J、D、X）：タイプのオブジェクトの閉鎖は「subsettable

Question

ではありません、私は以下のこの小さな問題のためにエラーを取得しておくのです：

assignment5<- read.csv(file="C:/Users/Marjolein/Desktop/assignment5data.csv",header=TRUE,se p=";") 
d <- as.vector(assignment5[["demand"]]) 

x<-400 
n <- 1461 

IFunction <- function (j,d,x){ 
if (d[j] <= x) 
    { 
    I <- 1 
    } else 
     { 
     I <- 0 
     } 
     return(I) 
} 

for (j in 1:(n)){ 
    I[j] <- IFunction(j,d,x) 
    I 
} 

The error is: Error in I[j] <- IFunction(j, d, x) : 
    object of type 'closure' is not subsettable 

だから私は、何かが間違っていると推測します。 I [j] < - IFunction（j、d、x）。以来、私は機能として私を見ていますが、値として見えるはずです

私を助けることができる人がいますか？種類に関しては

、

Marjolein straathof

Answer 1

I機能です。別の変数名を選択します。

あなたは、変数名を入力し、何が起こるか見てこれをテストすることができます：「オブジェクトが見つかりません」は

> I 

function (x) 
{ 
    structure(x, class = unique(c("AsIs", oldClass(x)))) 
} 

> J 

Error: object 'J' not found 

はあなたのために良いニュースです：それは何かで使用されていません。ベクトルのように使い始める前に、あなたがしたいことをRに知らせる必要があります。

J <- NA 
for (j in 1:(n)){ 
    J[j] <- IFunction(j,d,x) 
    J 
}