Description Usage Arguments Value Examples
This function is used to extract either the observations or the processes from a list of vertices (i.e. a block_list
)
1 2 3 4 | extractClass(L, Cl)
## S4 method for signature 'list,character'
extractClass(L, Cl)
|
L |
an object of class |
Cl |
A string identifying which object to extract; can either be |
Object of class Obs
or class process
.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 | ## Not run:
require(Matrix)
data(icesat)
data(surf_fe)
## First create observation object
icesat_obs <- Obs(df=icesat,
abs_lim = 5,
avr_method = "median",
box_size=100,
name="icesat")
## Now create GMRF defined over some FE basis
Mesh <- initFEbasis(p=surf_fe$p,
t=surf_fe$t,
M=surf_fe$M,
K=surf_fe$K)
mu <- matrix(0,nrow(Mesh),1)
Q <- sparseMatrix(i=1:nrow(surf_fe$p), j = 1:nrow(surf_fe$p), x = 1)
my_GMRF <- GMRF(mu = mu, Q = Q,name="SURF",t_axis = 0:6)
SURF <-GMRF_basis(G = my_GMRF, Basis = Mesh)
L1 <- link(SURF,icesat_obs)
e <- link_list(list(L1))
v <- block_list(list(O = icesat_obs, G = SURF))
G <- new("Graph",e=e,v=v)
G_reduced <- compress(G)
retrieved_proc_from_list <- extractClass(v,"process")
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.