r - GLM SPSS代码到R

Question

SPSS代码：

#* MULTIVARIATE REGRESSION APPROACH USING STRATUM DUMMIES AS REGRESSORS |
split file separate by a1 a2.
glm n1 n2 d1 d2 by stratum
/method = sstype(3) /intercept = exclude /save = resid /criteria = alpha(.05)  /design = stratum.

如何将此 SPSS 代码重写为 R 代码？