search

caravagnalab / rRACES

R wrapper for the RACES package
GNU General Public License v3.0
2 stars 1 forks source link

`get_rates` and `update_rates` fail to get and update the epigenetic switching rates #94

Closed albertocasagrande closed 8 months ago

albertocasagrande commented 8 months ago

The get_rates and update_rates fail to get and update the epigenetic switching rates in commit 13ca054491b589467f102fde0677ecdcedaa4f9a. 

library("rRACES")

sim <- new(Simulation)

sim$add_mutant(name = "A",
               epigenetic_rates = c("+-" = 1, "-+" = 1),
               growth_rates = c("+" = 0, "-" =  0),
               death_rates = c("+" = 0, "-" = 0))

# The switch rates are 1 as defined above
sim

# The A+'s switch rate reported by `get_rates` is 0
sim$get_rates("A+")$switch

# The A+'s switch rate is set to 2
sim$update_rates("A+", c(switch=2))

# The A+'s switch rate reported by `get_rates` is now 2
sim$get_rates("A+")$switch

# The  A+'s switch rate reported by the Simulation$show method 
# equal the initial value, i.e., 1
sim