knitr::opts_chunk$set( collapse = TRUE, comment = "#>", fig.path = "README-" )
Here is an example of how to use some of the dyadr
functions.
library(nlme) library(dyadr)
Using the apim
function
apim("x")
Using the smallsummary
function
apimi <- gls(Satisfaction_A ~ Tension_A + SelfPos_P, na.action = na.omit, correlation = corCompSymm(form = ~ 1 | CoupleID), data = acipair ) smallsummary(apimi)
Using the crsp
function
# Empty Model apimie <- summary(gls(Satisfaction_A ~ 1, na.action = na.omit, correlation = corCompSymm(form = ~ 1 | CoupleID), data = acipair )) # sd of errors for the model or esd esd <- as.numeric(apimi[6]) # sd of errors for the empty model or esd0 esd0 <- as.numeric(apimie[6]) # the R squared, using the crsp function crsp(esd, esd0)
Using the lincomb
function
apimi <- nlme::gls(Satisfaction_A ~ Tension_A + SelfPos_P, na.action = na.omit, correlation = corCompSymm(form = ~ 1 | CoupleID), data = acipair ) lincomb(apimi, 2, 3)
Using variable_view
function
variable_view(dyadic_trade)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.