## Not run:
#
# ## Note: This example assumes a boolean model has already been fit.
#
# ## Display the contours of the likelihood given a change the value of
# ## the coefficients.
# (prof <- boolprof(fit))
#
# ## Extract the plots for x1_a and x4_b.
# plot(prof, y = c("x1_a", "x4_b"))
# plot(prof, y = c(1, 3), scales = list(y = list(relation = "free")))
#
# ## You can also use variable or index matching with boolprof to select
# ## particular covariates of interest.
# boolprof(fit, vars = c(1, 3))
# boolprof(fit, vars = c("x1_a", "x4_b"))
# ## End(Not run)
Run the code above in your browser using DataLab