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")

Normalized Intensity Plot (Normalized Intensity vs Concentration):

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

Standardized Intensity Plot (Standardized Intensity vs Concentration):

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")


NPhogat/GNSplex documentation built on May 8, 2020, 9:28 p.m.