R/packetj.R

Defines functions packetj

Documented in packetj

packetj <-
function(imwd,level,o){

m <- NULL

J <- imwd$nlevels

n <- c(2^J, 2^J)

  tmpH<-lt.to.name(level,"DC")
  tmpV<-lt.to.name(level,"CD")
  tmpD<-lt.to.name(level,"DD")
  tmpS<-lt.to.name(level,"CC")

  v <- matrix(imwd[[tmpV]],nrow=n[1],ncol=n[2],byrow=TRUE)
  h <- matrix(imwd[[tmpH]],nrow=n[1],ncol=n[2],byrow=TRUE)
  d <- matrix(imwd[[tmpD]],nrow=n[1],ncol=n[2],byrow=TRUE)
  s <- matrix(imwd[[tmpS]],nrow=n[1],ncol=n[2],byrow=TRUE)

m<-rbind(cbind(s,h),cbind(v,d))

m<-m[o,o]		

m
}

Try the LS2W package in your browser

Any scripts or data that you put into this service are public.

LS2W documentation built on May 2, 2019, 3:27 a.m.