# COVID-19 metabolome data
data(covid19)
X <- covid19$X$metabolomics
K <- covid19$K$metabolomics
onekpca <- one_kpca(X,K)
onekpca <- onekpca_loading(onekpca)
onekpca$loading$R
onekpca$loading$p.value
Run the code above in your browser using DataLab