# qPCRhelper

    library(qPCRhelper)
    library(ggplot2)
    #Generate sample data
    Sample <- c("C1", "C2", "T1", "T2")
    Group <- c("Control", "Control", "Treatment", "Treatment")
    GAPDH <- c("18.1", "18.2", "17.9", "18.0")
    IL4R <- c("32.4", "32.8", "20.2", "21.3")
    qpcr_data <- data.frame(Sample, Group, GAPDH, IL4R)
    write.table(qpcr_data, file = "qpcr_data.txt", sep = "\t", row.names = F)

    qpcr_out <- qPCRhelper(data.dir = "./qpcr_data.txt", ref.gene = "GAPDH", ref.group = "Control")
    #> Warning in (function (mapping = NULL, data = NULL, geom = "boxplot", position =
    #> "dodge2", : Ignoring unknown aesthetics: fill