# load the dataset
data(diris2D)
# noise introduction
set.seed(9)
outdef <- sym_uni_ln(x = diris2D[,-ncol(diris2D)], y = diris2D[,ncol(diris2D)], level = 0.1)
# show results
summary(outdef, showid = TRUE)
Run the code above in your browser using DataLab