Nothing
library(PCRedux)
context("encu")
test_that("encu is a function to calculate numerous features from amplification curve data from a quantitative PCR experiment", {
library(qpcR)
res <- encu(RAS002[, 1:2])
expect_is(res$f.tdp, "numeric")
expect_is(res, "data.frame")
expect_that(res$hookreg_hook == 0, is_true())
expect_that(res$top == 25, is_true())
expect_length(res, 93)
expect_true(res$amptester_shapiro == FALSE)
expect_true(res$amptester_rgt == TRUE)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.