RStudio循环中if判断时，出现错误: 意外的'{' in: " }

for(c in 1:length(FileSource)){
  FileSource[[c]] <- read.table(FileName[[c]])
  X <- FileSource[[c]][,1]
  Y <- FileSource[[c]][,2]
  X2Y_score <- HCR(X,Y,score_type = "bic",is_anm = TRUE)[["score"]]
  Y2X_score <- HCR(Y,X,score_type = "bic",is_anm = TRUE)[["score"]]
  if(X2Y_score > Y2X_score){
    correct_num = correct_num + 1
  }
  else(X2Y_score < Y2X_score){
    error_num = error_num + 1
  }
}

Accuracy <- correct_num/7000

望采纳，是不是
这个错误是由于if语句的语法错误导致的，应该将else后面的括号去掉，改为else if，即：

if(X2Y_score > Y2X_score){
    correct_num = correct_num + 1
}
else if(X2Y_score < Y2X_score){
    error_num = error_num + 1
}