check_accuracy <- function(accuracy, type, data) {
	if (regexpr(type, 'classifier')>0) {
		print(paste('alphas:', data[1], ', bias:', data[2], ', sv:', data[3], ', classified:', data[4], '<--- accuracy ', accuracy))
	} else if (regexpr(type, 'distance')>0) {
		print(paste('dtrain:', data[1], ', dtest:', data[2], '<--- accuracy ', accuracy))
	} else if (regexpr(type, 'distribution')>0) {
		print(paste('likelihood:', data[1], ', derivatives:', data[2], '<--- accuracy ', accuracy))
	} else if (regexpr(type, 'hierarchical')>0) {
		print(paste('merge_distances:', data[1], ', pairs:', data[2], '<--- accuracy', accuracy))
	} else if (regexpr(type, 'kernel')>0) {
		print(paste('ktrain:', data[1], ', ktest:', data[2], '<--- accuracy', accuracy))
	} else if (regexpr(type, 'custom')>0) {
		print(paste('triangletriangle:', data[1], ', fulltriangle:', data[2],
			', fullfull:', data[3], '<--- accuracy', accuracy))
	} else if (regexpr(type, 'kmeans')>0) {
		print(paste('centers:', data[1], ', radi:', data[2], '<--- accuracy', accuracy))
	} else {
		print(paste('Unknown accuracy type', type, '!'))
		return(FALSE)
	}

	for (i in 1:length(data)) {
		if (data[i]>accuracy) {
			return(FALSE)
		}
	}

	return(TRUE)
}
