Skip to main content

Browse the archive

https://github.com/cran/fields
25 November 2021, 01:24:55 UTC
Revision 292e80962d92c497484ad0735f3f13a4b8d3e0ac authored by Doug Nychka on 29 November 2007, 14:39:12 UTC, committed by cran-robot on 29 November 2007, 14:39:12 UTC 
version 4.1
1 parent be75adc
Raw File
Tip revision: 292e80962d92c497484ad0735f3f13a4b8d3e0ac authored by Doug Nychka on 29 November 2007, 14:39:12 UTC
version 4.1
Tip revision: 292e809
Wimage.sim.R 
"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)
}
back to top