[epclust.git] / epclust / R / utils.R

toInteger <- function(x, condition)
{
	if (!is.integer(x))
		tryCatch(
			{x = as.integer(x)[1]},
			error = function(e) paste("cannot convert argument",substitute(x),"to integer")
		)
	if (!condition(x))
		stop(paste("argument",substitute(x),"does not verify condition",body(condition)))
	x
}

#TODO: merge these 2 next ?!
serialize = function(coeffs)
{
	#.........
	#C function (from data.frame, type of IDs ??! force integers ? [yes])
	#return raw vector
}
appendBinary = function(.......)
{
	#take raw vector, append it (binary mode) to a file
}

#finalizeSerialization = function(...)
#{
#	#write number of series, and length of each...
#}

deserialize = function(coeffs, range)
{
	#......
	#C function (from file name)
}

getSeries(data, rank=NULL, id=NULL)
{
	#TODO:
}

getCoeffs(.....) #FROM BINARY FILE !!!
{

}
Commit	Line	Data
5c652979 BA	1	toInteger <- function(x, condition)
	2	{
	3	if (!is.integer(x))
	4	tryCatch(
	5	{x = as.integer(x)[1]},
	6	error = function(e) paste("cannot convert argument",substitute(x),"to integer")
	7	)
	8	if (!condition(x))
	9	stop(paste("argument",substitute(x),"does not verify condition",body(condition)))
	10	x
	11	}
	12
	13	#TODO: merge these 2 next ?!
	14	serialize = function(coeffs)
	15	{
	16	#.........
	17	#C function (from data.frame, type of IDs ??! force integers ? [yes])
	18	#return raw vector
	19	}
	20	appendBinary = function(.......)
	21	{
	22	#take raw vector, append it (binary mode) to a file
	23	}
	24
	25	#finalizeSerialization = function(...)
	26	#{
	27	# #write number of series, and length of each...
	28	#}
	29
	30	deserialize = function(coeffs, range)
	31	{
	32	#......
	33	#C function (from file name)
	34	}
	35
	36	getSeries(data, rank=NULL, id=NULL)
	37	{
	38	#TODO:
	39	}
	40
	41	getCoeffs(.....) #FROM BINARY FILE !!!
	42	{
	43
	44	}