% \documentclass[serif]{beamer} % Serif for Computer Modern math font.
\documentclass[serif, handout]{beamer} % Handout mode to ignore pause statements
\hypersetup{colorlinks,linkcolor=,urlcolor=red}

\usefonttheme{serif} % Looks like Computer Modern for non-math text -- nice!
\setbeamertemplate{navigation symbols}{} % Supress navigation symbols
\usetheme{AnnArbor}  % CambridgeUS Blue and yellow, Shows current section title
% \usetheme{Berlin} % Displays sections on top
\usepackage[english]{babel}
% \definecolor{links}{HTML}{2A1B81}
% \definecolor{links}{red}

\setbeamertemplate{footline}[frame number] 

\mode<presentation>
% \mode<handout>{\setbeamercolor{background canvas}{bg=black!5}}

\title{Time Dependent Covariates\footnote{See last slide for copyright information.}}
\subtitle{STA312 Spring 2019}
\date{} % To suppress date

\begin{document}

\begin{frame}
  \titlepage
\end{frame}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\begin{frame}
\frametitle{Background Reading}
%\framesubtitle{} 

\begin{itemize}

    \item ``Using Time Dependent Covariates and Time Dependent Coefficients in the Cox Model" by Terry Therneau, Cynthia Crowson and Elizabeth Atkinson (2018): \\
\href{https://cran.r-project.org/web/packages/survival/vignettes/timedep.pdf} { \scriptsize \texttt{https://cran.r-project.org/web/packages/survival/vignettes/timedep.pdf} }
    \item[]
    \item Chapter 8 in \emph{Applied Survival Analysis Using R} by Dirk Moore
\end{itemize}


\end{frame}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{frame}
\frametitle{Time Dependent Covariates: The Idea} \pause
%\framesubtitle{} 

\begin{itemize}
    \item In predicting the next asthma attack, air quality is important. \pause But air quality varies from day to day. \pause
    \item In predicting when a couple will have a child, income could be important. \pause But income can vary over time. \pause.
    \item In predicting when a consumer will buy a new car, recent major repairs could matter. \pause These happen from time to time.
\end{itemize}
\end{frame}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{frame}
\frametitle{Types of time-dependent covariate} \pause
%\framesubtitle{} 
\begin{itemize}
    \item Internal: \pause Variables that relate to the individuals, and can only be measured
when an individual is alive. \pause For example, blood glucose level, number of cigarettes, marital status. \pause
    \item External: Variables that can be determined independently of the individual. \pause For example, air quality, inflation rate, drug dose (if pre-determined).
\end{itemize}
\end{frame}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{frame}
\frametitle{Model} \pause
%\framesubtitle{} 
\begin{itemize}
    \item For individual $i$, we have time to event, a failure
indicator, and a set of covariate values over time. \pause
{\LARGE
\begin{displaymath}
    (t_i,\delta_i,\{\mathbf{x}_i(t), t \in (0,t_i] \})
\end{displaymath} \pause
} % End size
    \item Proportional hazards assumption: \pause
{\LARGE
\begin{displaymath}
    h(t) = h_0(t) e^{\mathbf{x}(t)^\top \boldsymbol{\beta}},
\end{displaymath} \pause
} % End size

\noindent
where $ \boldsymbol{\beta} = (\beta_1, \ldots, \beta_p)^\top$, and we are assuming $e^{\beta_0}$ is part of the hazard function.
\end{itemize}
\end{frame}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{frame}
\frametitle{Partial Likelihood} \pause
%\framesubtitle{} 
{\LARGE
\begin{displaymath}
    \mbox{PL}(\boldsymbol{\beta}) = \prod_{i=1}^D 
    \left( \frac{\displaystyle  e^{\mathbf{x}(t_{(i)})^\top \boldsymbol{\beta}} }
     {\displaystyle  \sum_{j \in R_{(i)}}  e^{\mathbf{x}(t_{(i),j})^\top \boldsymbol{\beta}}} \right) 
\end{displaymath} \pause
} % End size

\begin{itemize}
    \item The covariate values are those in force at time $t_{(i)}$. \pause
    \item Some covariates (like type of disease) will not change over time. \pause
    \item The individuals in the risk set don't depend on time, but the values of their covariates at time $t_{(i)}$ have to be available. \pause
    \item It's mostly a matter of data format.
\end{itemize}
\end{frame}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{frame}[fragile]
\renewcommand*{\thefootnote}{\fnsymbol{footnote}}
\frametitle{The start-stop data format\footnote{Example adapted from Therneau et al.~(2018)}}
\framesubtitle{Multiple lines of data per case} \pause 
{\footnotesize % or scriptsize
\begin{verbatim}
subject time1 time2 status age creatinine . . .
    1     0    15     0    25     1.3
    1    15    46     0    25     1.5
    1    46    73     0    25     1.4
    1    73   100     1    25     1.6
    2     0    21     0    34     1.2
    2    21    50     0    34     1.4
    2    50    85     1    34     1.7
\end{verbatim} \pause
} % End size
Intervals (time1, time2] are closed on the right.
\renewcommand*{\thefootnote}{\arabic{footnote}}
\end{frame}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{frame}
\frametitle{Time-dependent covariates can help with a big problem} \pause
%\framesubtitle{} 
\begin{itemize}
    \item It may seem obvious, but future values should not be used to predict something that happened in the past. \pause
    \item Can having kids help a marriage last longer? \pause
    \item You'd better watch how you analyze the data, because couples get divorced too soon to have a child. \pause
    \item Almost any event that can't happen if you're dead will be less likely to happen for individuals who fail early. \pause 
    \item So it may seem to help. \pause 
    \item For example, a heart transplant \ldots 
\end{itemize}
\end{frame}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{frame}[fragile]
\frametitle{The Stanford Heart Study}
\framesubtitle{Annals of Internal Medicine} \pause
{\footnotesize % or scriptsize
{\color{blue}
\begin{verbatim}
> # aim stands fort for Annals of Internal Medicine
> # Time to event (death) is futime, delta = fustat
> dim(aim); head(aim)
\end{verbatim} \pause
} % End color
\begin{verbatim}
[1] 103   7
  patient fustat surgery      age futime wait.time transplant
1       1      1       0 30.84463     49        NA          0
2       2      1       0 51.83573      5        NA          0
3       3      1       0 54.29706     15         0          1
4       4      1       0 40.26283     38        35          1
5       5      1       0 20.78576     17        NA          0
6       6      1       0 54.59548      2        NA          0
\end{verbatim} 
} % End size
\end{frame}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{frame}[fragile]
\frametitle{Original analysis}
%\framesubtitle{} 
{\footnotesize % or scriptsize
{\color{blue}
\begin{verbatim}
> summary( coxph(Surv(futime,fustat)~age+surgery+transplant,data=aim) )
\end{verbatim} \pause
} % End color
\begin{verbatim}
Call:
coxph(formula = Surv(futime, fustat) ~ age + surgery + transplant, 
    data = aim)

  n= 103, number of events= 75 

               coef exp(coef) se(coef)      z Pr(>|z|)    
age         0.05889   1.06065  0.01505  3.913 9.12e-05 ***
surgery    -0.41902   0.65769  0.37118 -1.129    0.259    
transplant -1.71711   0.17958  0.27853 -6.165 7.05e-10 ***
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

           exp(coef) exp(-coef) lower .95 upper .95
age           1.0607     0.9428    1.0298     1.092
surgery       0.6577     1.5205    0.3177     1.361
transplant    0.1796     5.5684    0.1040     0.310
\end{verbatim} 
} % End size
\end{frame}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{frame}
\frametitle{Criticism}
\framesubtitle{This was very embarrassing}  \pause
\begin{itemize}
    \item People who died on the wait list did not have a chance to get the surgery. \pause
    \item Some of the ``outcomes" were in the past. \pause
    \item (Notice how much we want to say that the transplant \emph{influenced} survival.) \pause
    \item Solution: Treat transplant as a time-dependent covariate.
\end{itemize}
\end{frame}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{frame}[fragile]
\frametitle{Re-format the data} \pause
%\framesubtitle{} 
{\footnotesize % or scriptsize
{\color{blue}
\begin{verbatim}
> head(aim.ss2,40)
\end{verbatim}
} % End color
\begin{verbatim} % Should have re-ordered vars, putting death last
   id surgery      age tstart  tstop death transpl
1   1       0 30.84463      0   49.0     1       0
2   2       0 51.83573      0    5.0     1       0
3   3       0 54.29706      0   15.0     1       1
4   4       0 40.26283      0   35.0     0       0
5   4       0 40.26283     35   38.0     1       1
6   5       0 20.78576      0   17.0     1       0
7   6       0 54.59548      0    2.0     1       0
8   7       0 50.86927      0   50.0     0       0
9   7       0 50.86927     50  674.0     1       1

. . .

38 25       0 33.22382      0   24.0     0       0
39 25       0 33.22382     24 1799.0     0       1
40 26       0 30.53525      0 1400.0     0       0
\end{verbatim} 
} % End size
\end{frame}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{frame}[fragile]
\frametitle{Better Analysis}
%\framesubtitle{} 
{\footnotesize % or scriptsize
{\color{blue}
\begin{verbatim}
> betterheart = coxph(Surv(tstart,tstop,death) ~ age+surgery+transpl, 
+ data=aim.ss2); summary(betterheart)
\end{verbatim} \pause
} % End color
\begin{verbatim}
Call:
coxph(formula = Surv(tstart, tstop, death) ~ age + surgery + 
    transpl, data = aim.ss2)

  n= 169, number of events= 75 

            coef exp(coef) se(coef)      z Pr(>|z|)  
age      0.03138   1.03187  0.01392  2.253   0.0242 *
surgery -0.77035   0.46285  0.35959 -2.142   0.0322 *
transpl -0.07894   0.92410  0.30608 -0.258   0.7965  
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

        exp(coef) exp(-coef) lower .95 upper .95
age        1.0319     0.9691    1.0041    1.0604
surgery    0.4629     2.1605    0.2287    0.9365
transpl    0.9241     1.0821    0.5072    1.6836
\end{verbatim} 
} % End size
\end{frame}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{frame}
\frametitle{Copyright Information}

This slide show was prepared by  \href{http://www.utstat.toronto.edu/~brunner}{Jerry Brunner},
Department of Statistics, University of Toronto. It is licensed under a 
\href{http://creativecommons.org/licenses/by-sa/3.0/deed.en_US}
     {Creative Commons Attribution - ShareAlike 3.0 Unported License}. Use any part of it as you like and share the result freely. The \LaTeX~source code is available from the course website:
\href{http://www.utstat.toronto.edu/~brunner/oldclass/312s19} {\footnotesize \texttt{http://www.utstat.toronto.edu/$^\sim$brunner/oldclass/312s19}}

\end{frame}

\end{document}