# NOT RUN {
data(iris)
# Create a object of ppclust
opc <- fcm(x=iris[,1:4], centers=3)
# Check the class of opc object
is.ppclust(opc)
# Convert ppclust object 'opc' to the fanny object
ofc <- ppclust2(opc, otype="fanny")
# Check the class of 'ofc' for ppclust
is.ppclust(ofc)
# Check the class of 'ofc'
class(ofc)
# Convert ppclust object 'opc' to fclust object
ofc <- ppclust2(opc, otype="fclust")
# Check the class of 'ofc'
class(ofc)
# }
Run the code above in your browser using DataLab