R语言如何判断两个矩阵是否正交？

Question

已知两个正交的矩阵A和B，用语句来判断A%*%B==I成立？
由于精度问题，A%*%B不会严格等于I，会存在很小的误差，这个误差怎样处理？
谢谢