Nothing
ajusCheck <- function(V, t=seq(from=0.05, to=0.2, by=0.05), variant="modified") {
# sensitivity check for AJUS (how does chaning the tolerance parameter affect results)
# arguments: V: vector describing the distribution
# t: vector of tolerance values to test
# variant: "strict" (AJUS) or "modified" (AJUSFL)
# type:
type <- sapply(t, function(x) ajus(V, tolerance=x, variant=variant)$type)
# same for skew:
skew <- sapply(t, function(x) ajus(V, tolerance=x, variant=variant)$skew)
r <- list(tolerance = t, type = type, skew = skew)
return(r)
}
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.