#using the default parameters, run the following script:
#proc.simulate()
#other values to be used:
#correlation = 0.8
#number of genes: 10,1000,5000
## The function is currently defined as
function(tot.genes = 100, correlation = 0, gene.nb = 50, sample.nb = 400,
beta.init = 0.5, shape = 1, scale = 1)
{
require(survival)
require(survivalROC)
require(ecodist)
d1 = generate.survival.data (gene.nb, tot.genes,sample.nb,beta.init, correlation,
shape, scale)
old.beta.init = beta.init
cat ("Enter a different value for beta for the second data set:
Example: beta.init = 0.1\n")
beta.init = as.numeric(readline())
old.shape = shape
old.scale = scale
cat ("Enter a different value for shape for the second data set.
Enter only a numeric value. Example: 2\n")
shape = as.numeric(readline())
if (!is.numeric(shape))
shape = old.shape
cat ("Enter a different value for scale for the second data set.
Enter only a numeric value. Example: 1.5\n")
scale = as.numeric(readline())
if (!is.numeric(scale))
scale = old.scale
d2 = generate.survival.data(gene.nb, tot.genes,sample.nb,beta.init,
correlation,shape, scale)
eval.merge.simulate(d1,d2,tot.genes, gene.nb, zscore = 1)
}
Run the code above in your browser using DataLab