beta.glm generates error for weighted glm model

[eazeria]

Hi Jeff
Running the beta function on logistic regression model with weight, it runs into error.
Here is an example:
model.wtd <- glm(vs ~ wt + hp, weights=disp, data=mtcars, family='binomial')
beta(model.wtd )
Error in [.data.frame(data, , vars[i]) : undefined columns selected

The issue probably will be best addressed in the .create_formula function script.
Best,
/E