transforms in summary

[aliaksah]

global transforms for printing the feature

summary(result)
Importance | Feature
##############################| sigmoid(1+1x5+1x5)
#########################| x2
##############################| x4
##############################| x5
##############################| x6
##############################| x7
##############################| x9
##############################| sigmoid(1+1x3+1x7+1x4+1x5)
##############################| x8
##############################| x1

Best population: 7 log marginal posterior: -7342.925
Report population: 10 log marginal posterior: -7342.925

                feats.strings marg.probs

1 sigmoid(1+1x5+1x5) 1.0000000
2 x4 1.0000000
3 x5 1.0000000
4 x6 1.0000000
5 x7 1.0000000
6 x9 1.0000000
7 sigmoid(1+1x3+1x7+1x4+1x5) 1.0000000
8 x8 1.0000000
9 x1 1.0000000
10 x2 0.8519006

If you continue running the code, then the second time calling summary(result) yields

summary(result)
Importance | Feature
##############################| p0(1+1x5+1x5)
#########################| x2
##############################| x4
##############################| x5
##############################| x6
##############################| x7
##############################| x9
##############################| p0(1+1x3+1x7+1x4+1x5)
##############################| x8
##############################| x1

Best population: 7 log marginal posterior: -7342.925
Report population: 10 log marginal posterior: -7342.925

           feats.strings marg.probs

1 p0(1+1x5+1x5) 1.0000000
2 x4 1.0000000
3 x5 1.0000000
4 x6 1.0000000
5 x7 1.0000000
6 x9 1.0000000
7 p0(1+1x3+1x7+1x4+1x5) 1.0000000
8 x8 1.0000000
9 x1 1.0000000
10 x2 0.8519006

[jonlachmann]

Suggested solution: Each model when started will get the system time, and keep this as an id. This id will be set in the set.transformsfunction. The model will save the id to be able to retrieve its own transformations and not those of another model. It should also keep them handy for when R is restarted and the model is loaded again to set them again if needed.

set.transforms <- function (transforms, id) {
  options(paste0("gmjmcmc-transformations", id)=transforms)
}