# Load the dataset x3p4c and extract the first three columns
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 with a ppclust object
out <- detect.outliers(res.upfc)
# Summarize and plot the outliers
summary(out)
plot(out)
# Detect the outliers with a higher possibility
out <- detect.outliers(res.upfc, alpha=0.1)
# Summarize and plot the outliers
summary(out)
plot(out)
# Detect the outliers with an original data frame or matrix
x <- x3p4c[,1:3]
head(x)
out <- detect.outliers(x=x, k=4, alpha=0.1)
# Summarize and plot the outliers
summary(out)
plot(out)
# Summarize and plot the outliers
summary(out)
plot(out)
Run the code above in your browser using DataLab