Description Usage Arguments Value Note Author(s) References See Also Examples
Produces percentile intervals for all output parameters. The percentile intervals indicate the instability of the sample solutions.
1 2 3 |
bootstrapCP(X, A, B, C, n, m, p, r, ort1, ort2, ort3, conv, centopt, normopt,
scaleopt, maxit, laba, labb, labc)
|
X |
Matrix (or data.frame coerced to a matrix) of order ( |
A |
Component matrix for the |
B |
Component matrix for the |
C |
Component matrix for the |
n |
Number of |
m |
Number of |
p |
Number of |
r |
Number of extracted components |
ort1 |
Type of constraints on |
ort2 |
Type of constraints on |
ort3 |
Type of constraints on |
conv |
Convergence criterion |
centopt |
Centering option (see |
normopt |
Normalization option (see |
scaleopt |
Scaling option (see |
maxit |
Maximal number of iterations |
laba |
Optional vector of length |
labb |
Optional vector of length |
labc |
Optional vector of length |
A list including the following components:
Bint |
Bootstrap percentile interval of every element of |
Cint |
Bootstrap percentile interval of every element of |
fpint |
Bootstrap percentile interval for the goodness of fit index expressed as a percentage |
The preprocessing must be done in same way as for sample analysis.
The resampling mode must be the A
-mode.
The starting points for every bootstrap solution are two: rational (using SVD) and solution from the observed sample.
Maria Antonietta Del Ferraro mariaantonietta.delferraro@yahoo.it
Henk A.L. Kiers h.a.l.kiers@rug.nl
Paolo Giordani paolo.giordani@uniroma1.it
H.A.L. Kiers (2004). Bootstrap confidence intervals for three-way methods. Journal of Chemometrics 18:22–36.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | data(TV)
TVdata=TV[[1]]
labSCALE=TV[[2]]
labPROGRAM=TV[[3]]
labSTUDENT=TV[[4]]
# permutation of the modes so that the A-mode refers to students
TVdata <- permnew(TVdata, 16, 15, 30)
TVdata <- permnew(TVdata, 15, 30, 16)
# CP solution
TVcp <- CPfuncrep(TVdata, 30, 16, 15, 2, 1, 1, 1, 0, 1e-6, 10000)
## Not run:
# Bootstrap analysis on CP solution
boot <- bootstrapCP(TVdata, TVcp$A, TVcp$B, TVcp$C, 30, 16, 15, 2, 1, 1, 1,
1e-6, 0, 0, 0, 10000, labSTUDENT, labSCALE, labPROGRAM)
# Bootstrap analysis on CP solution (when labels are not available)
boot <- bootstrapCP(TVdata, TVcp$A, TVcp$B, TVcp$C, 30, 16, 15, 2, 1, 1, 1,
1e-6, 0, 0, 0, 10000)
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.