错误：意想不到的“}”“}”

我有以下的代码块：错误：意想不到的“}”“}”

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 
} 
})

它的目的是建立在TB的新列，其中值可以是一个列9的功能：14或1，如果函数返回0.

如果我在应用程序的外部运行代码，它会在内部返回错误：'unexpected'}'in'}“'中的错误。

感谢

来源

2013-11-28 Tania

'[1,1]'这是什么做'if'行？另外，如果只有一个函数，那么不需要括号{}。 – zx8754

你有不对称的括号：

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

来源

2013-11-28 11:29:06 NPE

错误：意想不到的“}”“}”

回答

相关问题