Browse code

examples simplified even more

Felix Ernst authored on 29/04/2019 10:18:13
Showing6 changed files

... ...
@@ -1,6 +1,6 @@
1 1
 Package: RNAmodR
2 2
 Title: RNAmodR: Detection of post-transcriptional modifications
3
-Version: 0.99.3
3
+Version: 0.99.4
4 4
 Authors@R: c(person("Felix G.M.", 
5 5
                     "Ernst", 
6 6
                     email = "felix.gm.ernst@outlook.com", 
... ...
@@ -133,8 +133,10 @@ NULL
133 133
 #' data(msi,package="RNAmodR")
134 134
 #' mi <- msi[[1]]
135 135
 #' settings(mi)
136
+#' \dontrun{
136 137
 #' aggregate(mi)
137 138
 #' modify(mi)
139
+#' }
138 140
 #' getDataTrack(mi, "1", mainScore(mi))
139 141
 NULL
140 142
 
... ...
@@ -811,7 +811,6 @@ setMethod("Modifier",
811 811
 #' # the Modifier or ModifierSet object
812 812
 #' sdfl <- aggregate(e5sd)
813 813
 #' mi <- aggregate(msi[[1]])
814
-#' msi <- aggregate(msi)
815 814
 NULL
816 815
 
817 816
 .check_aggregate_modifier <- function(data, x){
... ...
@@ -927,7 +926,6 @@ setMethod(f = "hasAggregateData",
927 926
 #' data(msi,package="RNAmodR")
928 927
 #' # modify() triggers the search for modifications in the data contained in
929 928
 #' # the Modifier or ModifierSet object
930
-#' msi <- modify(msi)
931 929
 #' mi <- modify(msi[[1]])
932 930
 NULL
933 931
 
... ...
@@ -75,7 +75,9 @@ for the colours of the individual bases. The names are expected to be
75 75
 data(msi,package="RNAmodR")
76 76
 mi <- msi[[1]]
77 77
 settings(mi)
78
+\dontrun{
78 79
 aggregate(mi)
79 80
 modify(mi)
81
+}
80 82
 getDataTrack(mi, "1", mainScore(mi))
81 83
 }
... ...
@@ -117,5 +117,4 @@ data(msi,package="RNAmodR")
117 117
 # the Modifier or ModifierSet object
118 118
 sdfl <- aggregate(e5sd)
119 119
 mi <- aggregate(msi[[1]])
120
-msi <- aggregate(msi)
121 120
 }
... ...
@@ -63,6 +63,5 @@ object and has to be implemented for each individual \code{Modifier} class.
63 63
 data(msi,package="RNAmodR")
64 64
 # modify() triggers the search for modifications in the data contained in
65 65
 # the Modifier or ModifierSet object
66
-msi <- modify(msi)
67 66
 mi <- modify(msi[[1]])
68 67
 }