The hardware and bandwidth for this mirror is donated by METANET, the Webhosting and Full Service-Cloud Provider.
If you wish to report a bug, or if you are interested in having us mirror your free-software or open-source project, please feel free to contact us at mirror[@]metanet.ch.

Procrustes cross-validation for R

Package pcv implements Procrustes cross-validation in R language.

Last version of the package (1.1.0) was released in August, 2023 and contains small improvements, better test coverage, as well as a new experimental feature — CV scope. See details in the overall project description.

Getting started

You can install the package directly from CRAN by running install.packages("pcv"). If you already have the package installed and want to update it to the newest version use: update.packages("pcv")

There three main functions in the package:

All three functions return PV-set generated with given parameters. The PV-set has the same size as the calibration set. In case of regression (PCR or PLS) PV-set is generated only for predictors (X), the response values for PV-set are the same as for the calibration set.

The last two functions return the PV-set with additional attribute, "D" which is matrix containing scaling factors (\(c_k/c\)), for each segment and each component. See all details in the paper. The matrix can be visualized as a heatmap, similar to the ones shown in the paper, using method plotD() which is also a part of the package.

Below are examples of the functions syntax with all parameters:

# for PCA/SIMCA models
Xpv <- pcvpca(X, ncomp = 20, center = TRUE, scale = FALSE, cv = list("ven", 4))

# for PCR models
Xpv <- pcvpcr(X, y, ncomp = 20, center = TRUE, scale = FALSE, cv = list("ven", 4))

# for PLS models
Xpv <- pcvpls(X, y, ncomp = 20, center = TRUE, scale = FALSE, cv = list("ven", 4))

# show heatmap for D values
plotD(Xpv)

# get the matrix D and show its values as boxplot
D <- attr(Xpv, "D")
boxplot(D)

Here X is a matrix with predictors for your calibration set (as a numerical matrix, not a data frame). In case of regression model you also need to provide a vector or a matrix with response values for the training set, y. As mentioned above, the method generates PV-set only for predictors, the response values for the calibration set and for the PV-set are the same.

Parameter ncomp is a number of principal components in case of PCA/PCR models or number of latent variables in case of PLS based method. Number of components must be large enough, larger than the expected optimal number. In case of PCA use components which explain at least 99% of the data.

Parameters center and scale define if the predictors must be mean centered and/or standardized. By default center = TRUE and scale = FALSE. Regardless which settings you use, the resulted PV-set will be in original units (uncentered and unstandardized), so you can compare it directly with the calibration set.

Finally, parameter cv defines how to split the rows of the training set. The split is similar to cross-validation splits, as PCV is based on cross-validation resampling. This parameter can have the following values:

As it is written above, from 1.1.0, there is additional parameter, cv.scope, which can have one of the two values, "global" or "local". The default value is "global", if you want to try the local scope, just add this parameter when you call one of the functions, like shown below:

# PCV for PLS models with local CV scope
Xpv <- pcvpls(X, y, ncomp = 20, cv = list("ven", 4), cv.scope = "local")

File demo.R, which you can download from this repository contains a demo code based on Corn dataset from the paper to be published. See comments in the code for more details.

The package code will be improved and extended gradually. If you found a bug please report using issues or send an email.

These binaries (installable software) and packages are in development.
They may not be fully stable and should be used with caution. We make no claims about them.