inst/doc/svycor.R

In jtools: Analysis and Presentation of Social Scientific Data

## ----echo=FALSE---------------------------------------------------------------
required <- c("survey", "weights")
knitr::opts_chunk$set(message=F, warning=F, comment = "")
if (!all(sapply(required, requireNamespace, quietly = TRUE)))
  knitr::opts_chunk$set(eval = FALSE)
library(jtools)

## -----------------------------------------------------------------------------
#  library(survey)
#  data(api)
#  dstrat <- svydesign(id = ~1,strata = ~stype, weights = ~pw, data = apistrat, fpc=~fpc)

## -----------------------------------------------------------------------------
#  svycor(~api00 + api99, design = dstrat)

## -----------------------------------------------------------------------------
#  svycor(~api00 + api99, design = dstrat, digits = 4)

## -----------------------------------------------------------------------------
#  svycor(~api00 + api99, design = dstrat, digits = 4, sig.stats = TRUE, bootn = 2000, mean1 = TRUE)

## -----------------------------------------------------------------------------
#  c <- svycor(~api00 + api99, design = dstrat, digits = 4, sig.stats = TRUE, bootn = 2000, mean1 = TRUE)
#  
#  c$cors
#  
#  c$p.values
#  
#  c$std.err

## -----------------------------------------------------------------------------
#  svyvar(~api00 + api99, design = dstrat)

## -----------------------------------------------------------------------------
#  var <- svyvar(~api00 + api99, design = dstrat)
#  var <- as.matrix(var)
#  var

## -----------------------------------------------------------------------------
#  cor <- cov2cor(var)
#  cor

## -----------------------------------------------------------------------------
#  cor <- cor[1:nrow(cor), 1:nrow(cor)]
#  cor

## -----------------------------------------------------------------------------
#  out <- svycor(~api99 + api00, design = dstrat)
#  out$cors