https://github.com/cran/fields
Tip revision: e6e2dec9c9cc857b2226614aaf6c6642000af53c authored by Doug Nychka on 06 February 2009, 00:00:00 UTC
version 5.02
version 5.02
Tip revision: e6e2dec
Wimage.sim.R
# fields, Tools for spatial data
# Copyright 2004-2007, Institute for Mathematics Applied Geosciences
# University Corporation for Atmospheric Research
# Licensed under the GPL -- www.gpl.org/licenses/gpl.html
"Wimage.sim" <-
function( H.obj){
# local function for (fast or sparse) multiplication by H
Mult.H<-function( u, H.obj){
IND<- H.obj$ind0
u[IND] <- H.obj$H0%*%c(u[IND])
u*H.obj$H1
}
#
tmp<- matrix(rnorm( H.obj$m*H.obj$n),nrow=H.obj$m,ncol=H.obj$n)
#
#
tmp<- Wtransform.image( tmp, cut.min=H.obj$cut.min, inv=TRUE,transpose=TRUE)
Wtransform.image( tmp, cut.min=H.obj$cut.min, inv=TRUE)
}