@@ -2,7 +2,7 @@ Package: evaluomeR

 Type: Package

 Title: Evaluation of Bioinformatics Metrics

 URL: https://github.com/neobernad/evaluomeR

-Version: 1.21.4

+Version: 1.21.5

 Authors@R: c(

     person("José Antonio", "Bernabé-Díaz", email = "[email protected]", role = c("aut", "cre")),

     person("Manuel", "Franco", email = "[email protected]", role = "aut"),

@@ -7,18 +7,18 @@ evaluomeRSupportedCBI()

 dataFrame <- stability(data=ontMetrics, cbi="kmeans", k=3, all_metrics=FALSE, bs=100)

 assay(dataFrame)

-dataFrame <- stabilityRange(data=ontMetrics, cbi="rskc", k.range=c(3,4), all_metrics=TRUE, bs=100, L1=2)

-assay(dataFrame)

+#dataFrame <- stabilityRange(data=ontMetrics, cbi="rskc", k.range=c(3,4), all_metrics=TRUE, bs=100, L1=2)

+#assay(dataFrame)

-dataFrame <- stabilitySet(data=ontMetrics, k.set=c(3,4), bs=100, cbi="rskc", all_metrics=TRUE, L1=2)

-assay(dataFrame)

+#dataFrame <- stabilitySet(data=ontMetrics, k.set=c(3,4), bs=100, cbi="rskc", all_metrics=TRUE, L1=2)

+#assay(dataFrame)

-dataFrame <- quality(data=ontMetrics, cbi="rskc", k=3, all_metrics=TRUE, L1=2)

-assay(dataFrame)

+#dataFrame <- quality(data=ontMetrics, cbi="rskc", k=3, all_metrics=TRUE, L1=2)

+#assay(dataFrame)

-dataFrame <- qualityRange(data=ontMetrics, cbi="rskc", k.range=c(3,4), all_metrics=TRUE, L1=2)

-assay(dataFrame$k_3)

+#dataFrame <- qualityRange(data=ontMetrics, cbi="rskc", k.range=c(3,4), all_metrics=TRUE, L1=2)

+#assay(dataFrame$k_3)

-dataFrame <- qualitySet(data=ontMetrics, cbi="rskc", k.set=c(3,5), all_metrics=TRUE, L1=2)

-assay(dataFrame$k_3)

+#dataFrame <- qualitySet(data=ontMetrics, cbi="rskc", k.set=c(3,5), all_metrics=TRUE, L1=2)

+#assay(dataFrame$k_3)