# NOT RUN {
## Calculating the suggested z_thre for first 15 stages of D. melanogaster
## dm_gene_expr.rda can be downloaded and unzipped from
## http://www.stat.ucla.edu/~jingyi.li/packages/TROM/TROM_Rdata.zip
# }
# NOT RUN {
load("dm_gene_expr.rda")
z_thre1 <- choose.z(dm_gene_expr[, 1:16], mode = FALSE)
z_thre2 <- choose.z(dm_gene_expr[, 1:16], mode = TRUE)
# }
Run the code above in your browser using DataLab