inst/doc/Pathway-case.R

In MMRcaseselection: Case Classification and Selection Based on Regression Results

## ---- 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")