資料設定
library(survey)
library(gtsummary)
#Load data
data(api)
#Declare survey design
dclus1<-svydesign(id=~dnum, weights=~pw, data=apiclus1, fpc=~fpc)
我想構造一個函式，它接受一個自變數并生成一個帶有結果的 gt 匯總表。
例如；我想運行一個線性模型來預測基于家庭中有“雙”父母的“獎勵”。 我試過這個：
mod_create <- function(y){
model <- svyglm(y~both, design = dclus1, family = quasibinomial())
tbl <- tbl_regression(model, exponentiate = TRUE) %>% add_global_p()
return(tbl)
}
mod_create(awards)
我收到此錯誤：
Error in svyglm.survey.design(y ~ awards, design = dclus1, family = quasibinomial()) :
all variables must be in design= argument
4.stop("all variables must be in design= argument")
3.svyglm.survey.design(y ~ awards, design = dclus1, family = quasibinomial())
2.svyglm(y ~ awards, design = dclus1, family = quasibinomial())
1.mod_create(both)
uj5u.com熱心網友回復：
你應該可以在reformulate這里使用：
library(survey)
library(dplyr)
library(gtsummary)
data(api)
dclus1 <- svydesign(id = ~ dnum, weights = ~ pw, data = apiclus1, fpc = ~ fpc)
mod_create <- function(y){
model <- svyglm(reformulate(paste0(y, " ~ both")),
design = dclus1, family = quasibinomial())
tbl <- tbl_regression(model, exponentiate = TRUE) %>% add_global_p()
return(tbl)
}
mod_create("awards") # note the ""
轉載請註明出處，本文鏈接：https://www.uj5u.com/qianduan/537608.html
標籤：r功能总结
上一篇：函式引數函式不能操作陣列
下一篇：為卡片記憶游戲制作提示按鈕