setMethod("getData",signature(.Object="Obs"),function(.Object) {
return(.Object@df$z)
})
#' @rdname getDf
#' @aliases getDf,Graph-method
setMethod("getDf",signature(.Object="Graph"),function(.Object) {
Olist <- extractClass(.Object@v,"Obs")
if(length(Olist)>1) stop("Only works with one observation for now")
return(Olist[[1]]@df)
})
#' @rdname getDf
#' @aliases getDf,FEBasis-method
setMethod("getDf",signature(.Object="FEBasis"),function(.Object) {
return(.Object@pars$vars)
})
#' @rdname getDf
#' @aliases getDf,GMRF-method
setMethod("getDf",signature(.Object="GMRF"),function(.Object) {
return(.Object@rep)
})
#' @rdname getDf
#' @aliases getDf,GMRF_basis-method
setMethod("getDf",signature(.Object="GMRF_basis"),function(.Object) {
return(.Object@G@rep)
})
#' @rdname getDf
#' @aliases getDf,Obs-method
setMethod("getDf",signature(.Object="Obs"),function(.Object) {
return(.Object@df)
})
#' @rdname getPrecision
#' @aliases getPrecision,Obs-method
setMethod("getPrecision",signature(.Object="Obs"),function(.Object) {
return(sparsediag(1/.Object@df$std^2))
})
#' @rdname getPrecision
#' @aliases getPrecision,GMRF-method
setMethod("getPrecision",signature(.Object="GMRF"),function(.Object) {
return(.Object@Q)
})
#' @rdname getPrecision
#' @aliases getPrecision,GMRF_basis-method
setMethod("getPrecision",signature(.Object="GMRF_basis"),function(.Object) {
return(getPrecision(.Object@G))
})
#' @rdname getMean
#' @aliases getMean,GMRF-method
setMethod("getMean",signature(.Object="GMRF"),function(.Object) {
return(.Object@mu)
})
#' @rdname getMean
#' @aliases getMean,GMRF_basis-method
setMethod("getMean",signature(.Object="GMRF_basis"),function(.Object) {
return(getMean(.Object@G))
})
#' @rdname getC
#' @aliases getC,Graph_2nodes-method
setMethod("getC",signature(.Object="Graph_2nodes"),function(.Object) {
return(getC(.Object@e[[1]]))
})
#' @rdname getC
#' @aliases getC,linkGO-method
setMethod("getC",signature(.Object="linkGO"),function(.Object) {
return(.Object@Cmat)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.