Test whether an object is a pmx_vpc_plot

Predicate that returns TRUE if x carries the "pmx_vpc_plot" class — i.e., it is the ggplot returned by plot_vpc_cont() or plot_build_vpc().

Usage

is_pmx_vpc_plot(x)

Arguments

x

Object to test.

Value

Logical scalar.

See also

Other vpc: df_vpcstats(), is_vpc_stats(), plot_build_vpc(), plot_vpc_cens(), plot_vpc_cont(), plot_vpc_legend(), plot_vpc_shown(), style_vpc()

Examples

model <- model_mread_load(model = "pkmodel")
#> Loading model from cache.
simout <- df_mrgsim_replicate(data = dplyr::filter(data_sad, CMT %in% c(1, 2)),
                              model = model, replicates = 5,
                              dv_var = ODV)
p <- plot_vpc_cont(data = simout)
is_pmx_vpc_plot(p)         # TRUE
#> [1] TRUE
is_pmx_vpc_plot(simout)    # FALSE
#> [1] FALSE