Title: | Hazard of Multi-Stage Clonal Expansion Models |
---|---|
Description: | Functions to calculate hazard and survival function of Multi-Stage Clonal Expansion Models used in cancer epidemiology. For the Two-Stage Clonal Expansion Model an exact solution is implemented assuming piecewise constant parameters. Numerical solutions are provided for its extensions. |
Authors: | Cristoforo Simonetto [aut, cre], Jan Christian Kaiser [ctb] |
Maintainer: | Cristoforo Simonetto <[email protected]> |
License: | GPL (>= 2) |
Version: | 1.0.1 |
Built: | 2025-03-06 04:03:36 UTC |
Source: | https://github.com/cran/msce |
Data set of fatal lung cancer in rats exposed to Radon at Pacific Northwest National Laboratory. For each rat, the age at start of Radon exposure, the age at end of exposure and the age at end of follow-up/death is provided in weeks. The Radon dose rate is given in WL (working level).
data(lungCancerRadon)
data(lungCancerRadon)
Data frame with 5 variables.
Pacific Northwest National Laboratory, see Heidenreich, W, Jacob P, Paretzke H., et al. (1999). Radiation research, 151 2, 209-17 DOI:10.2307/3579772.
data(lungCancerRadon) lungCancerRadon[1000,]
data(lungCancerRadon) lungCancerRadon[1000,]
Fictitious data set providing the number of lung cancer cases and person years in some population stratified according to age, age of smoking start, age of smoking cessation, and average number of cigarettes per day during the active smoking period.
data(lungCancerSmoking)
data(lungCancerSmoking)
Data frame with 6 variables.
Fictitious data set, only for illustration and test.
data(lungCancerSmoking) lungCancerSmoking[1000,]
data(lungCancerSmoking) lungCancerSmoking[1000,]
Functions tsce
and msce_numerical
are provided
to compute hazard and survival function for the Two- and the more general
Multi-Stage Clonal Expansion model.
Models can be evaluated for time-dependent parameters.
However, parameters are assumed to be constant within the time intervals
specified by the user.
To allow parameter fits on many strata or cohort members, the models are
implemented with RcppParallel.
For details, see the package vignette.
This function aims to solve the general multi-stage model
with piecewise constant parameters approximatively
by integrating the characteristic equations with Euler's method.
For sufficiently small time intervalls, this approximation often
yields reasonable results.
Small time intervals can either be provided explicitly with many columns
in argument t
.
An alternative is the optional parameter innerSteps
.
msce_numerical(t, parameterList, innerSteps = 1000L)
msce_numerical(t, parameterList, innerSteps = 1000L)
t |
Each element in a row of |
parameterList |
List of Matrices.
Each list member has to be named. Allowed names are Values in matrices |
innerSteps |
Positive integer.
To improve accuracy, each time interval is internally
divided into |
The output list contains all used arguments of the
parameterList
and vectors of the model results for
hazard and logarithm of the survival function
for each row of the input.
t <-matrix(data=c(10,20,65,10,20,70),nrow=2,byrow=TRUE) Nnu0 <- matrix(c(0.3,0.7,1),nrow = 1) nu1 <- matrix(1e-6,nrow=1,ncol=3) alpha1<- matrix(1,nrow=1,ncol=3) gamma1<- matrix(c(0.13,0.13,0.13, 0.15,0.15,0.15),nrow=2,byrow=TRUE) pars = list(Nnu0=Nnu0, nu1=nu1,alpha1=alpha1,gamma1=gamma1) msce_numerical(t,pars)
t <-matrix(data=c(10,20,65,10,20,70),nrow=2,byrow=TRUE) Nnu0 <- matrix(c(0.3,0.7,1),nrow = 1) nu1 <- matrix(1e-6,nrow=1,ncol=3) alpha1<- matrix(1,nrow=1,ncol=3) gamma1<- matrix(c(0.13,0.13,0.13, 0.15,0.15,0.15),nrow=2,byrow=TRUE) pars = list(Nnu0=Nnu0, nu1=nu1,alpha1=alpha1,gamma1=gamma1) msce_numerical(t,pars)
For piecewise constant parameters tsce(t,parameterList)
returns the exact hazard and logarithm of the survival function
of the Two-Stage Clonal Expansion Model.
All arguments are matrices.
Evaluation is performed separately for each row.
tsce(t, parameterList)
tsce(t, parameterList)
t |
Each element in a row of |
parameterList |
List of Matrices.
Each list member has to be named. Allowed names are Values in matrices |
t <-matrix(data=c(10,20,65,10,20,70),nrow=2,byrow=TRUE) Nnu0 <- matrix(c(0.3,0.7,1),nrow = 1) alpha<- matrix(1,nrow=1,ncol=3) gamma<- matrix(c(0.13,0.13,0.13, 0.15,0.15,0.15),nrow=2,byrow=TRUE) nu1 <- matrix(1e-6,nrow=1,ncol=3) pars = list(Nnu0=Nnu0, alpha=alpha,gamma=gamma,nu1=nu1) tsce(t,pars)
t <-matrix(data=c(10,20,65,10,20,70),nrow=2,byrow=TRUE) Nnu0 <- matrix(c(0.3,0.7,1),nrow = 1) alpha<- matrix(1,nrow=1,ncol=3) gamma<- matrix(c(0.13,0.13,0.13, 0.15,0.15,0.15),nrow=2,byrow=TRUE) nu1 <- matrix(1e-6,nrow=1,ncol=3) pars = list(Nnu0=Nnu0, alpha=alpha,gamma=gamma,nu1=nu1) tsce(t,pars)