Ошибка: неожиданный «}» в «}»

Question

У меня есть следующий фрагмент кода:

TB <- data.frame(1,2,3,4,5,6,7,8,9,1,2,3,4,5,6,7,8,9) 


TB$BIG_value <- apply(TB,1,function(r){ 
sr <- sort(r[9:14],decreasing = TRUE) 
value <- sr[1] - 0.5*sr[3] - 0.25*sr[4] - 0.125*sr[5] - 0.0625*sr[6] 
defaltv <- data.frame(c(1)) 
if((value==0)[1,1]{ 
    defaltv 
}else{ 
    value 
} 
}) 

Целью Это является создание нового столбца в туберкулезу, значение которого является либо функцией столбцов 9 : 14 или 1, если функция возвращает 0.

Если я запустил код за пределами применения, он работает, однако внутри него возвращается несколько ошибок с сообщением «Ошибка:« неожиданно »} в«} ».

Благодаря

Answer 1

Вы несбалансированные скобки в:

if((value==0)[1,1]{