predict.sparsestep <- function(object, newx)
{
	NULL
}