r中联立同余方程的求解

我在R中解出了这个同余式，如下所示

3x ≡ 7(mod2)
2x ≡ 5(mod3)
5x ≡ 4(mod7)

>莫德林（3,7,2）
[1] 1
>莫德林（2,5,3）
[1] 1
>莫德林（5,4,7）
[1] 5
>中文（a，m）
[1] 19
>产品（2,3,7）
[1] 42

所以，我得到了正确的答案x=19（mod 42）

---

在这种情况下，假设ax，GCD（2,3,7）=1≡b（模式p），cx≡d（q型），gx型≡h（mod s）和GCD（p，q，s）不等于1，那么我知道如何用中国剩余定理的推广手工解这个方程，但我不知道用R来解。请告诉我用R来解？？？

请尽快告诉我答案……请尽快告诉我答案。。。。

> modlin(3,7,2)
[1] 1
> modlin(2,5,3)
[1] 1
> modlin(5,4,7)
[1] 5
> a<-c(1,1,5)
> m<-c(2,3,7)
> chinese(a,m)
[1] 19
> prod(2,3,7)
[1] 42