如何正确使用try（）函数

Question

我运行一个使用xtabs的代码来呈现二进制分类性能。我使用这行代码（在循环内）：

g<-xtabs(~BAIsuP+glm_predict_response,data=test)
g11<-((g[1,1]+g[2,2])/(g[1,1]+g[2,2]+g[1,2]+g[2,1]))
print(g11)

然而，有时没有足够的观察，我得到error:Error in g[2, 2] : subscript out of bounds 所以我尝试了这行代码，但我没有看到任何变化，我错过了什么？

g<-try(xtabs(~BAIsuP+glm_predict_response,data=test),silent = TRUE)
print(g)