Nothing
.extractAlpha <- function(alpha, label, default = 0.05) {
if ((length(alpha) == 1) & is.null(names(alpha)))
r <- alpha
else {
if (length(label) == 1) {
label <- gsub(":", "", label)
label <- c(label, tolower(label))
label <- c(label, substr(label, 1, 2),
substr(label, 1, 3), substr(label, 1, 4))
}
r <- NULL
j <- NULL
for (i in 1:length(label)) {
J <- which(names(alpha) == label[i])
j <- c(j, J)
r <- c(r, alpha[J])
}
o <- order(j)
names(r) <- j
j <- j[o]
r <- r[o]
if (length(r) == 0) r <- default
}
return(unique(unlist(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.