# NOT RUN {
## Toy Example
# Simulate data set
# 10 samples
# 20 features
# Features 1 through 15 perfectly define response
# All other features are random noise.
data <- createData(n.case = 5, n.control = 5, mean.upper=13, mean.lower=5,
sd.upper=1, sd.lower=1, n.features = 20,
subtype1.feats = 1:5, subtype2.feats = 6:10,
subtype3.feats = 11:15)
x <- data$x
y <- data$y
graph <- data$graph
# }
Run the code above in your browser using DataLab