# NOT RUN {
#Example for F2 population
set.seed(102)
population <- fake.population(type="f2")
population <- find.diff.expressed(population)
population <- generate.biomarkers(population,proportion=c(25,50,25),threshold=0.01)
# }
# NOT RUN {
#Example for BC population
set.seed(102)
population <- fake.population(type="bc")
population <- find.diff.expressed(population)
population <- generate.biomarkers(population,proportion=c(25,75),threshold=0.01)
#Example for BC population
set.seed(102)
population <- fake.population(type="riself")
population <- find.diff.expressed(population)
population <- generate.biomarkers(population,proportion=c(50,50),threshold=0.01)
# }
Run the code above in your browser using DataLab