R/print.imageQT.R

print.imageQT <-function (x, ...) {


    cat("\n2D quadtree decomposition\n") 
    cat(" object of class imageQT\n----------------------------------\n")
    cat("\nsummary\n=======\n")
    cat("data:", x$data.name,"\n")
    xindl<-unlist(x$indl)
    xindS<-unlist(x$indS)
    if(length(xindl)>0){
    	cat("Indices of non-stationary sub-images:\n",as.character(xindl),"\n")
    }
    else{
    	cat("Indices of non-stationary sub-images:\n","none","\n")
    }
    if(length(xindS)>0){
    	cat("Indices of stationary sub-images:",as.character(xindS),"\n")
    }
    else{
    	cat("Indices of stationary sub-images:","none","\n")
    }
    cat("\n")
    cat("minimum testing region:",x$minsize,"\n\n") 

}

Try the LS2Wstat package in your browser

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

LS2Wstat documentation built on May 2, 2019, 5:45 a.m.