# Load the dataset x3p4c and extract the first three columns to x
data(x3p4c)
x <- x3p4c[,1:3]
# For 4 clusters, run Unsupervised Possibilistic Fuzzy C-Means (UPFC) algorithm
# of the package ppclust
res.upfc <- ppclust::upfc(x, centers=4)
# Detect the outliers
outs <- detect.outliers(res.upfc)
# Plot the outliers
plot(outs, ot=1)
Run the code above in your browser using DataLab