Predict from a apd_pca
# S3 method for apd_pca
score(object, new_data, type = "numeric", ...)A apd_pca object.
A data frame or matrix of new samples.
A single character. The type of predictions to generate. Valid options are:
"numeric" for numeric predictions.
Not used, but required for extensibility.
A tibble of predictions. The number of rows in the tibble is guaranteed
to be the same as the number of rows in new_data.
The function computes the principal components of the new data and
their percentiles as compared to the training data. The number of principal
components computed depends on the threshold given at fit time. It also
computes the multivariate distance between each principal component and its
mean.
train <- mtcars[1:20, ]
test <- mtcars[21:32, -1]
# Fit
mod <- apd_pca(mpg ~ cyl + log(drat), train)
# Predict, with preprocessing
score(mod, test)
#> Warning: collapsing to unique 'x' values
#> Warning: collapsing to unique 'x' values
#> Warning: collapsing to unique 'x' values
#> # A tibble: 12 × 6
#> PC1 PC2 distance PC1_pctl PC2_pctl distance_pctl
#> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
#> 1 -1.16 0.664 1.34 42.9 87.6 43.0
#> 2 1.84 0.345 1.87 95.3 42.2 95.4
#> 3 1.23 -0.259 1.26 47.3 36.7 36.8
#> 4 0.461 -1.03 1.13 0 98.5 25.5
#> 5 1.34 -0.157 1.35 52.5 27.4 44.7
#> 6 -1.61 0.217 1.62 89.2 31.7 89.3
#> 7 -1.98 -0.159 1.99 96.4 27.5 96.2
#> 8 -1.25 0.579 1.37 48.0 82.0 59.1
#> 9 -0.103 -1.60 1.60 0 1 87.3
#> 10 -0.231 -0.0655 0.241 0 6.76 0
#> 11 0.700 -0.793 1.06 22.4 96.0 24.4
#> 12 -1.64 0.184 1.65 90.6 29.2 90.6