Nothing
# We add the two next lines so we do not export the functions written in this
# file, unless explicitely specified.
#'@export
NULL
# A function that checks the arguments passed to the indicator functions.
check_mat <- function(mat, NAerror = TRUE) {
# Not a matrix or something we can handle ?
if ( ! is.matrix(mat) ) {
stop('I don\'t know what to do with an object of class ', class(mat))
}
# Has NA values
if ( NAerror && any( is.na(mat) ) ) {
warning('NAs in provided matrix.')
}
# Has only two unique values but it is not a logical matrix
if ( length(unique(as.vector(mat))) == 2 && (!is.logical(mat) ) ) {
warning("The matrix has only two unique values, but it is not of logical ",
"type. Did you mean to use TRUE/FALSE values?")
}
return(TRUE)
}
# Check whether some variables are suited to make plots : used in task_generic
# and task_spectral sews
check_suitable_for_plots <- function(obj,
along) {
if ( ! 'matrixn' %in% colnames(obj) ||
( !is.null(along) && length(along) <= 1 ) ) {
warning('Trying to display a trend with only one value')
}
if ( !is.null(along) && max(obj[ ,'matrixn']) != length(along) ) {
stop('External data length (along = ...) does not match ',
'the number of matrices !')
}
}
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.