Analysis of the data of lateral flow assay
Date: r Sys.time()
Initial Data:
x <- file() knitr::kable(x, format = "markdown")
Combined replicates:
x <- crep() knitr::kable(x, format = "markdown")
x.crep <- crep() nidata <- x.crep[,"NI.crep"] Concn.new <- x.crep[,"Concn"] sd.ni <- x.crep[,"NI.sdns"] ni.new <- as.data.frame(cbind(Concn.new,nidata,sd.ni)) names(ni.new) <- c("x","y","sd") plot1 <- ggplot(data =ni.new, aes(x,y))+ ggtitle("Intensity vs Concentration")+ geom_point(colour = "black", na.rm = TRUE)+ geom_smooth(method = "lm", formula = y~x, se = FALSE, colour = "black")+ geom_errorbar(aes(ymin= y-sd, ymax=y+sd), width=.2, position=position_dodge(0.05))+ xlab("Concentration (nM)") + ylab("Normalized Intensity (cl/tl) [arbitrary unit]")+ stat_poly_eq(formula = y~x, aes(label = paste(..eq.label.., ..rr.label.., sep = "~~~")), parse = TRUE) plot1
x.crep <- crep() sidata <- x.crep[,"SI.crep"] Concn.new <- x.crep[,"Concn"] sd.ni <- x.crep[,"SI.sdns"] si.new <- as.data.frame(cbind(Concn.new,sidata,sd.ni)) names(si.new) <- c("x","y","sd") plot1 <- ggplot(data =si.new, aes(x,y))+ ggtitle("Intensity vs Concentration")+ geom_point(colour = "black", na.rm = TRUE)+ geom_smooth(method = "lm", formula = y~x, se = FALSE, colour = "black")+ geom_errorbar(aes(ymin= y-sd, ymax=y+sd), width=.2, position=position_dodge(0.05))+ xlab("Concentration (nM)") + ylab("Standardized Intensity (tl/cl) [arbitrary unit]")+ stat_poly_eq(formula = y~x, aes(label = paste(..eq.label.., ..rr.label.., sep = "~~~")), parse = TRUE) plot1
95% Confidence Interval:
x <- conf_new() knitr::kable(x,format = "markdown")
95% Confidence Interval:
x <- conf_new() knitr::kable(x, format = "markdown")
Correlation:
x <- cor_new() knitr::kable(x, format = "markdown")
LOD_First Method:
x <- lod_new() knitr::kable(x, format = "markdown")
LOD_Second Method:
x <- lod_new2() knitr::kable(x, format = "markdown")
Calculated Concentration:
x <- concentration() knitr::kable(x, format = "markdown")
Settings used during implementation:
cat("Select the type of file: ", input$filetype, "\n\n") cat("Intensity value: ", input$yin, "\n\n") cat("Slope value: ", input$mslp, "\n\n") cat("Intercept value: ", input$cint, "\n\n")
Session Information:
sessionInfo("GNSplex")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.