Nothing
# Copyright (C) Kevin R. Coombes, 2007-2012
NormalVsCancerModel <- function(nBlocks, survivalModel=NULL, name="NormalVsCancer") {
call <- match.call()
hp <- matrix(rep(0:1, each=nBlocks), ncol=2)
s <- rnorm(nBlocks, 0, 2)
o <- rnorm(nBlocks, 0, 2)
prevalence=c(0.5, 0.5)
if (is.null(survivalModel))
survivalModel <- SurvivalModel()
new("CancerModel",
name=name,
hitPattern=hp,
survivalBeta=s,
outcomeBeta=o,
prevalence=prevalence,
survivalModel=survivalModel,
call=call)
}
NormalVsCancerEngine <- function(nBlocks, hyperp=NULL) {
if (is.null(hyperp)) hyperp <- BlockHyperParameters()
model <- NormalVsCancerModel(nBlocks)
makeBlockStructure(model, hyperp)
}
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.