-1
我有一个失败,因为花括号的工作守则ifelse声明发出花括号问题 - 的R - 内for循环
o1 = read.table('/Users/manshi/Desktop/PSYC57H3/PSYC57_Homework3/Object1.csv', header=TRUE, sep=",")
PredictedValue = vector(mode = 'numeric', length = 100)
PredictionError = vector(mode = 'numeric', length = 100)
PredictedValue[1] = 0
AlAccepts = vector(mode = 'logical', length = 100)
for (trial in 1:100){
ifelse (AlAccepts[trial] == FALSE, 0, 1) {
PredictionError[trial] = o1$Reward[trial] - PredictedValue[trial]
PredictedValue[trial + 1] = PredictedValue[trial] + .3*PredictionError[trial]
} ifelse (AlAccepts[trial] == TRUE, 0, 1) {
PredictedValue[trial + 1] = PredictedValue[trial]
}
}
,我得到的错误信息是:
> for (trial in 1:100){
+ ifelse (AlAccepts[trial] == FALSE, 0, 1) {
Error: unexpected '{' in:
"for (trial in 1:100){
ifelse (AlAccepts[trial] == FALSE, 0, 1) {"
> PredictionError[trial] = o1$Reward[trial] - PredictedValue[trial]
> PredictedValue[trial + 1] = PredictedValue[trial] + .3*PredictionError[trial]
> } ifelse (AlAccepts[trial] == TRUE, 0, 1) {
Error: unexpected '}' in " }"
> PredictedValue[trial + 1] = PredictedValue[trial]
> }
Error: unexpected '}' in " }"
> }
Error: unexpected '}' in "}"
>
我在做什么错?
在r中,同时存在ifelse()函数和if(){} else {}构造。我认为你在寻找后者。 –
你应该改变'ifelse'为'其他if' – tbradley