using Jchemo, JchemoData
using JLD2, CairoMakie
using FreqTables

Data importation

path_jdat = dirname(dirname(pathof(JchemoData)))
db = joinpath(path_jdat, "data/forages2.jld2") 
@load db dat
@names dat

(:X, :Y)

X = dat.X 
@head X

... (485, 700)

Y = dat.Y
@head Y

... (485, 4)

y = Y.typ
test = Y.test
tab(y)

OrderedCollections.OrderedDict{String, Int64} with 3 entries:
  "Cereal and grass forages" => 160
  "Forage trees"             => 101
  "Legume forages"           => 224

freqtable(y, test)

3×2 Named Matrix{Int64}
             Dim1 ╲ Dim2 │   0    1
─────────────────────────┼─────────
Cereal and grass forages │ 100   60
Forage trees             │  56   45
Legume forages           │ 167   57

wlst = names(X)
wl = parse.(Int, wlst)
#plotsp(X, wl; xlabel = "Wavelength (nm)", ylabel = "Absorbance").f

700-element Vector{Int64}:
 1100
 1102
 1104
 1106
 1108
 1110
 1112
 1114
 1116
 1118
    ⋮
 2482
 2484
 2486
 2488
 2490
 2492
 2494
 2496
 2498

Note:: X-data are already preprocessed (SNV + Savitsky-Golay 2nd deriv).

Split Tot to Train/Test

The model is fitted on Train, and the generalization error is estimated on Test. In this example, Train is already defined in variable typ of the dataset, and Test is defined by the remaining samples. But Tot could also be split a posteriori, for instance by sampling (random, systematic or any other designs). See for instance functions samprand, sampsys, etc.

s = Bool.(test)
Xtrain = rmrow(X, s)
ytrain = rmrow(y, s)
Xtest = X[s, :]
ytest = y[s]
ntot = nro(X)
ntrain = nro(Xtrain)
ntest = nro(Xtest)
(ntot = ntot, ntrain, ntest)

(ntot = 485, ntrain = 323, ntest = 162)

tab(ytrain)

OrderedCollections.OrderedDict{String, Int64} with 3 entries:
  "Cereal and grass forages" => 100
  "Forage trees"             => 56
  "Legume forages"           => 167

tab(ytest)

OrderedCollections.OrderedDict{String, Int64} with 3 entries:
  "Cereal and grass forages" => 60
  "Forage trees"             => 45
  "Legume forages"           => 57

Replicated K-fold CV

K = 3     # nb. folds (segments)
rep = 25  # nb. replications
segm = segmkf(ntrain, K; rep = rep)

25-element Vector{Vector{Vector{Int64}}}:
 [[3, 4, 5, 6, 10, 14, 16, 18, 19, 24  …  299, 301, 303, 304, 305, 306, 310, 312, 314, 321], [8, 9, 13, 15, 17, 20, 23, 27, 29, 31  …  294, 298, 300, 302, 311, 315, 318, 320, 322, 323], [1, 2, 7, 11, 12, 21, 22, 25, 26, 30  …  290, 295, 296, 307, 308, 309, 313, 316, 317, 319]]
 [[4, 7, 10, 14, 15, 18, 26, 27, 28, 30  …  303, 304, 307, 308, 311, 315, 317, 318, 320, 322], [1, 5, 11, 17, 20, 21, 25, 29, 32, 33  …  286, 291, 293, 294, 295, 296, 302, 312, 313, 314], [2, 3, 6, 8, 9, 12, 13, 16, 19, 22  …  298, 299, 305, 306, 309, 310, 316, 319, 321, 323]]
 [[3, 4, 6, 16, 17, 18, 21, 23, 27, 33  …  292, 295, 296, 299, 303, 304, 309, 310, 311, 318], [1, 2, 5, 8, 9, 10, 11, 13, 15, 20  …  293, 302, 305, 307, 314, 315, 319, 320, 321, 323], [7, 12, 14, 19, 22, 24, 28, 31, 32, 34  …  298, 300, 301, 306, 308, 312, 313, 316, 317, 322]]
 [[1, 2, 5, 14, 16, 19, 20, 24, 26, 28  …  288, 293, 294, 296, 301, 304, 307, 311, 312, 321], [3, 6, 9, 15, 17, 23, 32, 33, 37, 38  …  306, 308, 313, 314, 315, 316, 317, 319, 320, 323], [4, 7, 8, 10, 11, 12, 13, 18, 21, 22  …  297, 298, 299, 300, 302, 303, 309, 310, 318, 322]]
 [[1, 2, 5, 7, 10, 19, 24, 28, 29, 31  …  292, 296, 297, 304, 308, 309, 313, 314, 317, 322], [11, 12, 14, 16, 22, 26, 27, 30, 34, 39  …  283, 291, 294, 299, 300, 301, 302, 303, 311, 319], [3, 4, 6, 8, 9, 13, 15, 17, 18, 20  …  306, 307, 310, 312, 315, 316, 318, 320, 321, 323]]
 [[1, 7, 8, 10, 12, 18, 21, 23, 25, 29  …  287, 290, 296, 300, 305, 309, 314, 321, 322, 323], [4, 6, 13, 14, 15, 16, 19, 22, 26, 28  …  295, 299, 303, 310, 311, 312, 315, 316, 317, 320], [2, 3, 5, 9, 11, 17, 20, 24, 27, 31  …  298, 301, 302, 304, 306, 307, 308, 313, 318, 319]]
 [[4, 5, 6, 7, 12, 13, 15, 19, 20, 21  …  285, 287, 291, 297, 300, 307, 311, 316, 319, 323], [2, 9, 34, 39, 40, 42, 45, 47, 50, 51  …  301, 302, 304, 305, 306, 309, 315, 320, 321, 322], [1, 3, 8, 10, 11, 14, 16, 17, 18, 23  …  293, 298, 303, 308, 310, 312, 313, 314, 317, 318]]
 [[11, 15, 17, 19, 20, 21, 24, 30, 32, 43  …  295, 296, 303, 307, 308, 309, 312, 314, 316, 322], [5, 6, 10, 12, 14, 18, 28, 29, 31, 35  …  294, 297, 300, 302, 304, 305, 306, 318, 319, 320], [1, 2, 3, 4, 7, 8, 9, 13, 16, 22  …  298, 299, 301, 310, 311, 313, 315, 317, 321, 323]]
 [[2, 3, 5, 8, 10, 11, 17, 20, 24, 25  …  289, 293, 295, 299, 300, 305, 306, 311, 312, 313], [1, 4, 6, 7, 9, 12, 13, 15, 16, 21  …  286, 287, 288, 291, 294, 296, 302, 304, 307, 314], [14, 18, 19, 22, 23, 26, 32, 33, 34, 37  …  310, 315, 316, 317, 318, 319, 320, 321, 322, 323]]
 [[3, 4, 7, 9, 10, 27, 29, 31, 34, 37  …  293, 295, 298, 299, 302, 303, 305, 307, 309, 312], [1, 2, 5, 8, 14, 15, 17, 19, 21, 23  …  300, 306, 308, 311, 315, 318, 319, 320, 322, 323], [6, 11, 12, 13, 16, 18, 20, 22, 25, 28  …  294, 296, 301, 304, 310, 313, 314, 316, 317, 321]]
 ⋮
 [[5, 13, 15, 17, 19, 28, 30, 35, 36, 42  …  290, 291, 298, 300, 302, 316, 319, 320, 322, 323], [6, 11, 12, 14, 22, 26, 32, 33, 46, 49  …  297, 299, 301, 303, 307, 309, 313, 314, 315, 318], [1, 2, 3, 4, 7, 8, 9, 10, 16, 18  …  296, 304, 305, 306, 308, 310, 311, 312, 317, 321]]
 [[2, 6, 11, 12, 13, 14, 15, 19, 24, 26  …  296, 297, 300, 301, 302, 306, 309, 312, 322, 323], [1, 7, 8, 9, 16, 18, 20, 23, 25, 27  …  289, 294, 298, 304, 305, 313, 314, 317, 319, 320], [3, 4, 5, 10, 17, 21, 22, 28, 32, 35  …  299, 303, 307, 308, 310, 311, 315, 316, 318, 321]]
 [[1, 2, 3, 5, 6, 7, 8, 11, 15, 19  …  277, 279, 284, 306, 307, 308, 316, 317, 319, 323], [9, 10, 12, 16, 18, 25, 28, 29, 35, 39  …  299, 300, 303, 305, 309, 312, 315, 318, 320, 321], [4, 13, 14, 17, 21, 22, 23, 30, 31, 32  …  296, 298, 301, 302, 304, 310, 311, 313, 314, 322]]
 [[3, 8, 9, 13, 15, 21, 22, 25, 27, 28  …  296, 297, 304, 306, 310, 311, 312, 313, 314, 316], [1, 2, 5, 10, 11, 17, 23, 30, 32, 34  …  295, 298, 300, 302, 308, 315, 317, 319, 321, 322], [4, 6, 7, 12, 14, 16, 18, 19, 20, 24  …  294, 299, 301, 303, 305, 307, 309, 318, 320, 323]]
 [[4, 13, 15, 18, 19, 27, 28, 33, 44, 45  …  297, 298, 299, 301, 305, 309, 312, 319, 321, 323], [2, 3, 7, 11, 12, 16, 17, 20, 21, 22  …  303, 304, 307, 308, 310, 313, 314, 316, 317, 322], [1, 5, 6, 8, 9, 10, 14, 24, 26, 30  …  287, 290, 292, 295, 300, 306, 311, 315, 318, 320]]
 [[2, 13, 14, 16, 21, 25, 27, 29, 31, 33  …  295, 296, 298, 299, 300, 303, 304, 308, 310, 320], [3, 5, 6, 7, 8, 10, 11, 12, 15, 18  …  306, 307, 309, 311, 313, 314, 315, 316, 317, 323], [1, 4, 9, 17, 22, 23, 26, 32, 36, 37  …  294, 297, 301, 302, 305, 312, 318, 319, 321, 322]]
 [[1, 4, 7, 8, 9, 14, 18, 19, 20, 22  …  287, 289, 290, 292, 294, 297, 301, 302, 308, 314], [5, 6, 11, 12, 13, 17, 21, 23, 25, 32  …  303, 304, 306, 310, 312, 313, 317, 319, 320, 321], [2, 3, 10, 15, 16, 24, 26, 28, 31, 33  …  300, 305, 307, 309, 311, 315, 316, 318, 322, 323]]
 [[1, 2, 3, 10, 11, 13, 16, 19, 24, 30  …  305, 307, 308, 314, 315, 316, 318, 319, 321, 322], [4, 5, 8, 15, 18, 21, 23, 26, 28, 29  …  290, 293, 294, 295, 297, 299, 309, 311, 313, 323], [6, 7, 9, 12, 14, 17, 20, 22, 25, 27  …  288, 298, 301, 303, 304, 306, 310, 312, 317, 320]]
 [[3, 4, 6, 8, 9, 12, 15, 16, 17, 20  …  309, 312, 313, 314, 316, 317, 318, 319, 320, 323], [1, 2, 11, 13, 14, 22, 28, 36, 37, 39  …  274, 276, 279, 280, 281, 291, 297, 307, 308, 310], [5, 7, 10, 18, 19, 21, 25, 26, 27, 30  …  300, 301, 302, 304, 305, 306, 311, 315, 321, 322]]

nlv = 0:30
model = plsrda()
rescv = gridcv(model, Xtrain, ytrain; segm, score = errp, nlv)
@names rescv 
res = rescv.res
res_rep = rescv.res_rep

plotgrid(res.nlv, res.y1; step = 2, xlabel = "Nb. LVs", ylabel = "ERRP-CV").f

f, ax = plotgrid(res.nlv, res.y1; step = 2, xlabel = "Nb. LVs", ylabel = "ERRP-CV")
for i = 1:rep, j = 1:K
    zres = res_rep[res_rep.rep .== i .&& res_rep.segm .== j, :]
    lines!(ax, zres.nlv, zres.y1; color = (:grey, .2))
end
lines!(ax, res.nlv, res.y1; color = :red, linewidth = 1)
f

Specifying argument prior

This is recommended if classes are highly unbalanced.

prior = [:unif]  
pars = mpar(prior = prior)
nlv = 0:30
model = plsrda()
res = gridcv(model, Xtrain, ytrain; segm, score = merrp, pars, nlv).res

Selection of the best parameter combination

u = findall(res.y1 .== minimum(res.y1))[1] 
res[u, :]

Final prediction (Test) using the optimal model

model = plsrda(nlv = res.nlv[u], prior = res.prior[u])
fit!(model, Xtrain, ytrain)
pred = predict(model, Xtest).pred

162×1 Matrix{String}:
 "Forage trees"
 "Cereal and grass forages"
 "Cereal and grass forages"
 "Legume forages"
 "Cereal and grass forages"
 "Cereal and grass forages"
 "Legume forages"
 "Forage trees"
 "Forage trees"
 "Forage trees"
 ⋮
 "Cereal and grass forages"
 "Cereal and grass forages"
 "Forage trees"
 "Forage trees"
 "Legume forages"
 "Legume forages"
 "Legume forages"
 "Legume forages"
 "Legume forages"

Generalization error

errp(pred, ytest)

1×1 Matrix{Float64}:
 0.12962962962962962

merrp(pred, ytest)

1×1 Matrix{Float64}:
 0.1304093567251462

cf = conf(pred, ytest)
@names cf

(:cnt, :pct, :A, :Apct, :diagpct, :accpct, :lev)

cf.cnt

cf.pct

---