在不使用扩展包的情况下，如何进行二分类模型的查全率以及查准率的计算。
例如，二分类问题，1代表在线，0代表不在线；数据集为dta；数据集实际结果的字段名为“is_online”,预测结果的字段名为“isonline_pre”;通过计算得到：
————————————————————
               yes        no        (预测结果）
yes          n1        n4
no            n2        n3
实际结果
————————————————————
得到上述这样的格式。
请教各位怎么写R代码？
谢谢！