r svydesignパッケージから加重データを保存する方法は？

Question

加重データを保存する方法はありますか？次回は直接ロードしますか？私は大規模な調査データセットを持っており、Rのsurveyパッケージを使用しています。 featherパッケージでデータを読み込みますが、svydesignを適用するとかなりの時間がかかります。

df <- data.frame(col1 = rnorm(20, 0, 1), col2 = rnorm(20, 2, 2), w = rnorm(20, 1, .2)) 
df.w <- svydesign(id = ~1, data = df, weights = ~w) 

私は df.w を保存し、将来の分析のためにこれを使用する：ここでは再現性の例です。方法はありますか？

Answer 1

saveRDSとreadRDSを使用すると、このようなオブジェクトを1つだけ保存/読み取ることができます。Rあなたは、単一のファイルに複数のオブジェクトを保存し?saveと?loadを見てみたい場合は

library(survey) 

df <- data.frame(col1 = rnorm(20, 0, 1), col2 = rnorm(20, 2, 2), w = rnorm(20, 1, .2)) 
df.w <- svydesign(id = ~1, data = df, weights = ~w) 

####### save to file ########## 
storage_file <- tempfile() 
#storage_file <- "mydesign.rds" ## uncomment here to use a local file 
saveRDS(df.w, storage_file) 

######## clear workspace ######### 
rm(df, df.w) 

######### load the data ########### 
df.w.loaded <- readRDS(storage_file) 

df.w.loaded 
## Independent Sampling design (with replacement) 
## svydesign(id = ~1, data = df, weights = ~w) 

######## delete storage file ###### 
file.remove(storage_file) 

。