# create a flex_prms object
flex_obj <- flex_prms(c(a = 1, b = 2), conds = c("foo", "bar"))
sum_obj <- summary(flex_obj)
print(sum_obj)
# the print function for the summary object is identical to the print
# function of the flex_prms object
print(flex_obj)
Run the code above in your browser using DataLab