if (FALSE) ###dontrunbegin
# create artificial data
adata <- artificial.data(rnd_features = 1000)
#Fix input data to be consistent with ARFF and ADX formats.
#It is not necessary but for some data can help to export in proper format.
adata <- fix.data(adata)
write.adh(adata, file = file.path(tempdir(), "adata.adh"), target = "class")
###dontrunend
Run the code above in your browser using DataLab