|
...
|
...
|
@@ -287,7 +287,7 @@ newTranslatomeDataset <- function(expr.matrix, cond.a, cond.b, cond.c, cond.d,
|
|
287
|
287
|
# if the input dataset is a Biobase ExpressionSet,
|
|
288
|
288
|
# extract the expression matrix from it
|
|
289
|
289
|
finalMatrix = expr.matrix
|
|
290
|
|
- if (class(expr.matrix) == "ExpressionSet") finalMatrix = exprs(expr.matrix)
|
|
|
290
|
+ if (is(expr.matrix, "ExpressionSet")) finalMatrix = exprs(expr.matrix)
|
|
291
|
291
|
|
|
292
|
292
|
return(new(Class="TranslatomeDataset",expr.matrix = finalMatrix,
|
|
293
|
293
|
cond.a=cond.a, cond.b=cond.b, cond.c=cond.c, cond.d=cond.d,
|
