Francisco Jesús Martínez Mimbrera
8 lines
134 B
R
8 lines
134 B
R
assert <- function(expression, message)
|
|
{
|
|
if(!all(expression))
|
|
{
|
|
stop(if(is.null(message)) "Error" else message)
|
|
}
|
|
}
|