# NOT RUN {
set.seed(0)
pcase <- synthetic_data(3,30,0.02,100,2,2)
oldpar <- par(no.readonly = TRUE)
par(mfrow=c(1,2))
labcolor <- (pcase$labels+1)%%3+1
plot(pcase$feat, col = labcolor, pch=19, xlab = 'First attribute',
ylab = 'Second attribute', main = 'Feature domain')
plot(pcase$geo, col = labcolor, pch=19, xlab = 'First attribute',
ylab = 'Second attribute', main = 'Geometry domain')
par(oldpar)
# }
Run the code above in your browser using DataLab