# NOT RUN {
clusters <- ipfCluster(head(ipftrain, 20)[, 169:170], k = 4)
clusters <- ipfCluster(head(ipftrain[, grep('^wap', names(ipftrain))], 20),
method = 'AP')$clusters
# }
Run the code above in your browser using DataCamp Workspace