powered by
$$C(x)= M * \phi(x)$$
where * denotes the Schur product, i.e. elementwise multiplication
RMschur(phi, M, diag, rhored, var, scale, Aniso, proj)
RMmodel
phi
M
diag
rhored
model <- RMschur(M=matrix(c(2, 1, 1, 1), ncol=2), RMparswm(nudiag=c(0.5, 2))) plot(model) x <- seq(0, 10, if (interactive()) 0.02 else 1) plot(RFsimulate(model, x=x)) FinalizeExample()
Run the code above in your browser using DataLab