##' @export
id <- function(object,...) UseMethod("id")
##' Extract different 'id' of neuro netCDF files
##'
##' @title Extract different 'id' of neuro netCDF files
##' @param object netCDF filename
##' @param ... Additional low level argument parsed on to lower level functions
##' @author Klaus K. Holst
##' @S3method id neurocdf
##' @method id neurocdf
id.neurocdf <- function(object,...) {
if (!file.exists(object)) stop("netCDF file not found")
nc <- with(neuro.env, openNCDF)(object)
types <- as.vector(with(neuro.env, getvarNCDF)(nc,"SubjectDescription",c(1,1,1,1),c(-1,1,1,-1)))
with(neuro.env, closeNCDF)(nc)
return(types)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.