[R] 重构双押纠错的实现方式，重构部分函数名，增加一些测试

[R] 重构双押纠错的实现方式，重构部分函数名，增加一些测试 #11