保存预测模型而不保存原始数据集

Question

我想保存我的模型以供外部复制。我使用下面的代码来训练模型并保存它。

F10y<-  glm(F10 ~    age + sex + bmi, data=discovery1, family=binomial(link="logit"))
summary(F10y)
save(F10y, file = "F10y1.rda")

加载模型时，我还可以看到构建数据的原始数据集（本例中为 discovery1）。由于隐私原因，我想保存模型，但无法看到这个原始数据集。

这可能吗？谢谢大家！

Answer 1

首先，将数据的行名设置为索引，因为这些显示在生成的模型上。然后在创建模型后，将 $data 和 $model 元素设置为 null。

my_mtcars <- mtcars
rownames(my_mtcars) <- seq(1,nrow(my_mtcars))
model <- glm(mpg ~ hp + wt, data = my_mtcars)
model$data <- NULL
model$model <- NULL
predict(model,data=mtcars)

保存预测模型而不保存原始数据集

Saving prediction model without saving the original dataset

r

save