| ... | ... |
@@ -2,7 +2,7 @@ Package: evaluomeR |
| 2 | 2 |
Type: Package |
| 3 | 3 |
Title: Evaluation of Bioinformatics Metrics |
| 4 | 4 |
URL: https://github.com/neobernad/evaluomeR |
| 5 |
-Version: 1.7.1 |
|
| 5 |
+Version: 1.7.2 |
|
| 6 | 6 |
Authors@R: c( |
| 7 | 7 |
person("José Antonio", "Bernabé-Díaz", email = "[email protected]", role = c("aut", "cre")),
|
| 8 | 8 |
person("Manuel", "Franco", email = "[email protected]", role = "aut"),
|
| 9 | 9 |
deleted file mode 100755 |
| ... | ... |
@@ -1,21 +0,0 @@ |
| 1 |
-library(evaluomeR) |
|
| 2 |
- |
|
| 3 |
-data("rnaMetrics")
|
|
| 4 |
-plotMetricsMinMax(rnaMetrics) |
|
| 5 |
-plotMetricsBoxplot(rnaMetrics) |
|
| 6 |
-plotMetricsCluster(rnaMetrics) |
|
| 7 |
-plotMetricsViolin(rnaMetrics) |
|
| 8 |
- |
|
| 9 |
-stabilityData <- stabilityRange(data=rnaMetrics, k.range=c(3,4), bs=20, getImages = FALSE, seed=100) |
|
| 10 |
-qualityData <- qualityRange(data=rnaMetrics, k.range=c(3,4), getImages = FALSE, seed=100) |
|
| 11 |
- |
|
| 12 |
-kOptTable <- getOptimalKValue(stabilityData, qualityData, k.range=c(3,4)) |
|
| 13 |
-kOptTable |
|
| 14 |
- |
|
| 15 |
- |
|
| 16 |
-df = assay(rnaMetrics) |
|
| 17 |
-k.vector1=rep(5,length(colnames(df))-1) |
|
| 18 |
-k.vector2=rep(2,length(colnames(df))-1) |
|
| 19 |
- |
|
| 20 |
-plotMetricsClusterComparison(rnaMetrics, k.vector1=k.vector1, k.vector2=k.vector2) |
|
| 21 |
-plotMetricsClusterComparison(rnaMetrics, k.vector1=3, k.vector2=c(2,5)) |
