R/summary.boxclip.R

In boxfilter: Filter Noisy Data

summary.boxclip<-function(object,...){

  cat("clipit :",object$clipit, "\n")
  cat("total width  :",object$width,"\n")
  cat("total height :",object$height*2,"\n")
  cat("\n")
  cat("Full w/o NA: ",object$full,"\n")
  cat("Remaining  : ",object$rest,"\n")
  rest<-round(abs(object$rest/object$full*100),1)
  cat (rest,"% values remain \n")

}