psc.R
In psc: Personalised Synthetic Controls

## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.width = 7,
  fig.height= 5
)

## -----------------------------------------------------------------------------
library(psc)
e4_data <- psc::e4_data
gemCFM <- psc::gemCFM

## -----------------------------------------------------------------------------
gemCFM$terms

## -----------------------------------------------------------------------------
gemCFM$out.nm

## -----------------------------------------------------------------------------
plotCFM(gemCFM)

## -----------------------------------------------------------------------------
gemCFM$haz_co

## -----------------------------------------------------------------------------
gemCFM$cov_co

## ----include=F----------------------------------------------------------------
surv.psc <- pscfit(gemCFM,e4_data)

## -----------------------------------------------------------------------------
attributes(surv.psc)

## -----------------------------------------------------------------------------
plotCFM(surv.psc)

## -----------------------------------------------------------------------------
summary(surv.psc)

## -----------------------------------------------------------------------------
plot(surv.psc)