# NOT RUN {
library(mineCitrus)
data("citrus.combinedFCSSet")
data("citrus.foldClustering")
data("citrus.foldFeatureSet")
meds<-allmeds(citrus.combinedFCSSet=citrus.combinedFCSSet,
citrus.foldClustering=citrus.foldClustering,
citrus.foldFeatureSet=citrus.foldFeatureSet)
medians<-classclustermeds(citrus.foldFeatureSet,citrus.foldClustering,
citrus.combinedFCSSet,groupsizes=c(10,10),meds=meds)
# }
Run the code above in your browser using DataLab