Nothing
# Generate an matrix of uniformly distributed values in the interval (0,1) with
# the same dimension as M
randM <- function(M) {
matrix(stats::runif(prod(dim(M))),
ncol = ncol(M))
}
# Denormalize population
denormalize_population <- function(probpars, Pop){
# Denormalize population
LL <- matrix(rep(probpars$xmin, nrow(Pop)),
ncol = ncol(Pop),
byrow = TRUE)
UL <- matrix(rep(probpars$xmax, nrow(Pop)),
ncol = ncol(Pop),
byrow = TRUE)
return(LL + Pop*(UL-LL))
}
# Check if a numeric value is within certain bounds
is_within <- function(x, xmin = 0, xmax = 1, strict = FALSE){
out <- is.numeric(x) &&
ifelse(strict,
x > xmin,
x >= xmin) &&
ifelse(strict,
x < xmax,
x <= xmax)
return(out)
}
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.