## get empty rule book
book_1 <- get_RuleBook(book = "empty")
## set density from default "normal" to "exact"
book_2 <- set_Parameter(book = book_1,
parameter = "density",
type = "exact")
book_1$density$density_1$type
book_2$density$density_1$type
Run the code above in your browser using DataLab