Glance at an IPD Fit

Glances at the IPD method/model fit, returning a one-row summary.

Usage

# S3 method for class 'ipd'
glance(x, ...)

Arguments

x

An object of class ipd.

...

Additional arguments to be passed to the glance function.

Value

A one-row data frame summarizing the IPD method/model fit.

Examples

#-- Generate Example Data

set.seed(2023)

dat <- simdat(n = c(300, 300, 300), effect = 1, sigma_Y = 1)

head(dat)
#>            X1          X2         X3         X4          Y  f      set
#> 1 -0.08378436  1.42014307 -0.1615291 -0.2004525 -0.2871755 NA training
#> 2 -0.98294375 -1.30333434 -1.0273652 -1.6867582  0.3242501 NA training
#> 3 -1.87506732  0.05942012 -1.0964411 -0.0696362 -2.2601440 NA training
#> 4 -0.18614466 -1.30651333 -0.2979100  1.4198123  1.1182872 NA training
#> 5 -0.63348570  0.32404466 -1.0075244 -0.4614362 -1.5729777 NA training
#> 6  1.09079746  0.11532808 -0.6296308 -0.4045431  0.1953583 NA training

formula <- Y - f ~ X1

#-- Fit IPD

fit <- ipd(formula, method = "postpi_analytic", model = "ols",

  data = dat, label = "set")

#-- Glance Output

glance(fit)
#>            method model include_intercept nobs_labeled nobs_unlabeled
#> 1 postpi_analytic   ols              TRUE          300            300
#>         call
#> 1 Y - f ~ X1