data(etitanic)
a <- earth(pclass ~ ., data=etitanic, glm=list(family=binomial))
head(resid(a, warn=FALSE)) # earth residuals, a column for each response
head(resid(a, type="earth")) # same
head(resid(a, type="deviance")) # GLM deviance residuals, a column for each response
Run the code above in your browser using DataLab