... | ... |
@@ -83,7 +83,8 @@ BSseq <- function(M = NULL, Cov = NULL, coef = NULL, se.coef = NULL, |
83 | 83 |
} |
84 | 84 |
# Process 'trans' and 'parameters'. |
85 | 85 |
if (is.null(trans)) { |
86 |
- trans <- function() NULL |
|
86 |
+ trans <- function(q) NULL |
|
87 |
+ environment(trans) <- emptyenv() |
|
87 | 88 |
} |
88 | 89 |
if (is.null(parameters)) { |
89 | 90 |
parameters <- list() |