Nothing
## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ----setup--------------------------------------------------------------------
library(MMRcaseselection)
## -----------------------------------------------------------------------------
df_full <- lm(mpg ~ disp + wt, data = mtcars) # full model
df_reduced <- lm(mpg ~ wt, data = mtcars) # reduced model dropp 'disp' as pathway variable
pw_out <- pathway(df_full, df_reduced) # calculation of pathway variables
head(pw_out)
## ---- fig.height = 6, fig.width = 6-------------------------------------------
pathway_xvr(df_full, df_reduced, pathway_type = "pathway_wb")
## ---- fig.height = 6, fig.width = 6-------------------------------------------
pathway_xvr(df_full, df_reduced, pathway_type = "pathway_gvalue")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.