Open espinielli opened 5 years ago
It looks to me that given the code at lines 9-11
if (is.null(inner.product.mat.at.identity)) {
inner.product.mat.at.identity <- diag(1, group$dimension)
}
line 22 (inside the if block 21-23) is never executed (because at line 10 inner.product.mat.at.identity
has been made non NULL):
if (is.null(inner.product.mat.at.identity)) {
inner.product.mat.at.identity <- diag(1, .self$group$dimension)
}
When loading the package with
devtools
I get the following error:Does it mean that at lines 10, 22 and 24 in
invariant_metric.R
the assignment needs to be changed to use<<-
?