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을 사용하면 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) 

.