Nothing
create.alter <- function(stat.indices = c(42, 51, 61), values.alter = NULL) {
if(getRversion() < "3.1.0") dontCheck <- identity
if (is.null(stat.indices) || any(is.na(stat.indices))) {
stop("stat.indices should not contain NULL or NA values.")
}
nbstats <- length(stat.indices)
alter <- as.list(c())
for (i in 1:nbstats) {
stat.index <- stat.indices[i]
value.alter <- values.alter[i]
stat.name <- "tmp" # To remove a NOTE at R CMD check
stat.name <- paste("stat", as.character(stat.index), sep = "")
if (is.null(value.alter) || is.na(value.alter)) {
# We retrieve the default value:
alter[[stat.name]] <- (.C(dontCheck(stat.name), 0.0, 1L, 0.0, 1L, rep(" ", 50), 1L, 0.0,
0L, 0.0, 0.0, 0.0, 0L, 0L, 0L, 0.0, 0L, PACKAGE = "PoweR"))[[13]]
} else {
alter[[stat.name]] <- value.alter
}
}
return(alter)
}
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.