R/qat_call_plot_slide_distribution.R

In qat: Quality Assurance Toolkit

qat_call_plot_slide_distribution <-
function(resultlist_part, measurement_vector=NULL, time=NULL, height= NULL, lat=NULL, lon=NULL, measurement_name="", directoryname="", basename="", plotstyle=NULL) {
## functionality: process the plotting of an given resultlist-part by qat_plot_block_distribution
## author: André Düsterhus
## date: 04.05.2010
## version: A0.1
## input: resultlist, optional: the measurement vector, a description name for the measurement vector, a directory for the result, a basic name for the results, and a plotstyle element
## output: plots
	filename <- paste(basename,"_",resultlist_part$element,"_",'slidedist',sep="")
	if (is.null(dim(resultlist_part$result$first_moment))) {
		qat_plot_slide_distribution_1d(resultlist_part$result$stat, filename, resultlist_part$result$blocksize, measurement_name=measurement_name, directoryname=directoryname, plotstyle=plotstyle)
	}
	if (length(dim(resultlist_part$result$stat$first_moment))==2) {
		qat_plot_slide_distribution_2d(resultlist_part$result$stat, filename, resultlist_part$result$blocksize, measurement_name=measurement_name, directoryname=directoryname, plotstyle=plotstyle)
	}
}