##check if the input arguments are atomic vectors of a certain dimension. Rteurns FALSE if they are
err.vec.dim.bit <- function(v, n){
if(!is.atomic(v) || !is.vector(v)){
return(T)
}
if(length(v) != n){
return(T)
}
return(F)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.