Nothing
#' @rdname orientation-methods
#' @description Gets q/s-forms from a character
#' @title Extract NIfTI 3D Image Orientation
#' @param object is a \code{nifti} object
#' @aliases qform,character
setMethod("qform", "character", function(object){
object = path.expand(object)
stopifnot(file.exists(object))
slots = paste0("qto_xyz:", 1:4)
res = sapply(slots, function(key) {
fslval(object, keyword = key, verbose = FALSE)
})
convmat <- function(form){
ss <- strsplit(form, " ")
ss <- t(sapply(ss, function(x) x[x!=""]))
class(ss) <- "numeric"
return(ss)
}
res = convmat(res)
rownames(res) = NULL
return(res)
})
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.