fpath <- system.file("extdata", "dat_1.dat", package = "normfluodbf", mustWork = TRUE)
dat_df <- normfluodat(fpath,3,40, rows_used = c('A','B','C'), norm_scale = 'one')
yvars <- c("A1","B1","C1")
xvar <- c("Cycle_Number", "Time")
xl <- c(0,40)
yl <- c(0,1)
ggplot_tnp(dat_df,xvar,yvars,xl,yl,xlab='Cycle_Number',ylab='Normalized Fluorescence',title='LFA')
Run the code above in your browser using DataLab