# NOT RUN {
# A toy example on a very small subsample of a microarray data set)
#
datafilename <- system.file("extdata", "transcripto_very_small_sample.txt",
package="DRomics")
o <- microarraydata(datafilename, check = TRUE, norm.method = "cyclicloess")
s_quad <- itemselect(o, select.method = "quadratic", FDR = 0.01)
f <- drcfit(s_quad, progressbar = TRUE)
# Plot of chosen items with fitted curves when available
#
targetitems <- c("88.1", "1", "3", "15")
targetplot(targetitems, f = f)
# }
# NOT RUN {
# The same plot in x log scale
#
targetplot(targetitems, f = f, dose_log_transfo = TRUE)
# The same plot in x log scale choosing x limits for plot
if (require(ggplot2))
targetplot(targetitems, f = f, dose_log_transfo = TRUE) +
scale_x_log10(limits = c(0.1, 10))
# The same plot without fitted curves
#
targetplot(targetitems, f = f, add.fit = FALSE)
# }
Run the code above in your browser using DataLab