Title: | Shiny Apps for Lateral Flow Assays |
---|---|
Description: | Shiny apps for the quantitative analysis of images from lateral flow assays (LFAs). The images are segmented and background corrected and color intensities are extracted. The apps can be used to import and export intensity data and to calibrate LFAs by means of linear, loess, or gam models. The calibration models can further be saved and applied to intensity data from new images for determining concentrations. |
Authors: | Filip Paskali [aut, cre]
|
Maintainer: | Filip Paskali <[email protected]> |
License: | LGPL-3 |
Version: | 1.4.1 |
Built: | 2025-01-22 04:42:02 UTC |
Source: | https://github.com/fpaskali/lfapp |
Shiny apps for the quantitative analysis of images from lateral flow assays (LFAs). The images are segemented and background corrected and color intensities are extracted. The apps can be used to import and export intensity data and to calibrate LFAs by means of linear, loess, or gam models. The calibration models can further be saved and applied to intensity data from new images for determining concentrations.
library(LFApp)
Filip Paskali, Weronika Schary, Matthias Kohl
Maintainer: Filip Paskali [email protected]
Function start the Analysis Shiny App.
run_analysis() run_cal() run_core() run_quan() run_mobile_analysis() run_mobile_cal() run_mobile_core() run_mobile_quan()
run_analysis() run_cal() run_core() run_quan() run_mobile_analysis() run_mobile_cal() run_mobile_core() run_mobile_quan()
The functions start the various shiny apps included in the package.
An object that represents the app. Printing the object will run the app.
Filip Paskali [email protected], Weronika Schary [email protected], Matthias Kohl [email protected]
if(interactive()){ ## start full analysis app run_analysis() ## start mobile version of full analysis app run_mobile_analysis() }
if(interactive()){ ## start full analysis app run_analysis() ## start mobile version of full analysis app run_mobile_analysis() }
The function computes a background theshold of an image by using Li's iterative minimum cross entropy method.
threshold_li(image, tolerance = NULL, initial_guess = NULL, iter_callback = NULL)
threshold_li(image, tolerance = NULL, initial_guess = NULL, iter_callback = NULL)
image |
object of class |
tolerance |
optional tolerance threshold. |
initial_guess |
optional initial value for the minimization. |
iter_callback |
optional function applied to the minimizsation criterion. |
For more details about the method see Li and Lee (1993) as well as Li and Tam (1998).
numeric
vector with the computed threshold.
Filip Paskali [email protected]
C.H. Li and C.K. Lee (1993). Minimum cross entropy thresholding. Pattern Recognition 26 (4): 617-25. https://doi.org/10.1016/0031-3203(93)90115-D.
C.H. Li and P.K.S. Tam (1998). An iterative algorithm for minimum cross entropy thresholding. Pattern Recognition Letters 19 (8): 771-76. https://doi.org/10.1016/S0167-8655(98)00057-9.
library(EBImage) x <- readImage(system.file("images", "sample.TIF", package="LFApp")) threshold_li(x)
library(EBImage) x <- readImage(system.file("images", "sample.TIF", package="LFApp")) threshold_li(x)
The function computes a background theshold of an image using the triangle algorithm.
triangle(image, offset = 0.2, breaks = 256)
triangle(image, offset = 0.2, breaks = 256)
image |
object of class |
offset |
numeric, additional offset added to the computed threshold. |
breaks |
integer, number of breaks used in the histogram. |
The Triangle method is based on the histogram of the intensities. Based on the range of intensities and the maximum peak a threshold is determined. The method was proposed in Zack et al. (1977).
numeric
vector with the computed threshold.
Matthias Kohl [email protected]
G.W. Zack, W. E. Rogers, and S. A. Latt (1977). Automatic measurement of sister chromatid exchange frequency. The journal of histochemistry and cytochemistry: official journal of the Histochemistry Society 25 (7): 741-53. https://doi.org/10.1177/25.7.70454.
library(EBImage) x <- readImage(system.file("images", "sample.TIF", package="LFApp")) triangle(x)
library(EBImage) x <- readImage(system.file("images", "sample.TIF", package="LFApp")) triangle(x)