error_list=c(error_list,paste("The value '",not_set_values[1],"' is not present in your metadata, please select one between in ",paste(colnames(metadata),collapse=", "),sep=""))
}else{
error_list=c(error_list,paste("The values '",paste(not_set_values,collapse="' '"),"' is not present in your metadata, please select one between in ",paste(colnames(metadata),collapse=", "),sep=""))
if(length(flist)>2){
error_list=c(error_list,paste("The algorithm to construct the contrast matrix is not possible for more than 2 biological factor. Please select 2 factor between "+paste(colnames(object@metadata),collapse=", "),sep=""))
error_list=c(error_list,paste("The value '",not_set_values[1],"' is not present in your metadata, please select one between in ",paste(colnames(object@metadata),collapse=", "),sep=""))
}else{
error_list=c(error_list,paste("The values '",paste(not_set_values,collapse="' '"),"' is not present in your metadata, please select one between in ",paste(colnames(object@metadata),collapse=", "),sep=""))