Browse code

fix to pData()<-

git-svn-id: file:///home/git/hedgehog.fhcrc.org/bioconductor/trunk/madman/Rpacks/bsseq@78860 bc3139a8-67e5-0310-9ffc-ced21a209358

Kasper D. Hansen authored on 25/07/2013 17:46:56
Showing1 changed files

... ...
@@ -43,7 +43,7 @@ setReplaceMethod("pData",
43 43
                       object = "BSseq",
44 44
                       value = "data.frame"),
45 45
                  function(object, value) {
46
-                     object@colData <- as(value, "DataFrame")
46
+                     colData(object) <- as(value, "DataFrame")
47 47
                      object
48 48
                  })
49 49
 
... ...
@@ -52,7 +52,7 @@ setReplaceMethod("pData",
52 52
                       object = "BSseq",
53 53
                       value = "DataFrame"),
54 54
                  function(object, value) {
55
-                     object@colData <- value
55
+                     colData(object) <- value
56 56
                      object
57 57
                  })
58 58