#' Function to check the tableplot arguments: from and to.

#'

#' @aliases tableplot_checkFromTo

#' @param from from

#' @param to to

#' @export

tableplot_checkFromTo <- function(from, to)

{

	if (class(from)[1]!="numeric") stop("<from> is not numeric")

	if (class(to)[1]!="numeric") stop("<to> is not numeric")

	if (from < 0 && from > 100) stop("<from> is not a number in [0, 100]")

	if (to < 0 && to > 100) stop("<to> is not a number in [0, 100]")

	if (from >= to) stop("<from> is not smaller than <to>")

	return()

}