l be demonstrated using sensory wine data. -->
<!-- ## Modelling -->
<!-- An SCA model with three blocks and 4 components is fitted. -->
<!-- ```{r} -->
<!-- data(wine) -->
<!-- sc <- sca(wine[c('Smell at rest', 'View', 'Smell after shaking')], ncomp = 4) -->
<!-- print(sc) -->
<!-- ``` -->
<!-- ## Loadings and scores -->
<!-- When extracting loadings and scores from an _sca_, one of them will be a list depending on sample or variable linking. The Wine data are sample linked, i.e. there are several loading 