https://github.com/cran/fields
Tip revision: 7b2778b4ea77eab24528cc59cedaba09e3460fa7 authored by Doug Nychka on 22 April 2008, 00:00:00 UTC
version 4.3
version 4.3
Tip revision: 7b2778b
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)
}