无码av一区二区三区无码,在线观看老湿视频福利,日韩经典三级片,成 人色 网 站 欧美大片在线观看

歡迎光臨散文網(wǎng) 會員登陸 & 注冊

關于做PLS-DA分析

2022-12-09 03:25 作者:農(nóng)夫微甜Kew  | 我要投稿

這里分析一個做pls-da的R包,多一種選擇。了解相關內(nèi)容可以查閱下邊鏈接,這里不多紹。

資料:https://mixomicsteam.github.io/Bookdown/plsda.html

#需要數(shù)據(jù)包

library(mixOmics)

library(dplyr)

library(tidyverse)

以下數(shù)據(jù),僅參考。

#數(shù)據(jù)

?head(data.plsda)

# 選擇分析數(shù)據(jù)

VOC.soil.C = subset(data.plsda, Treatment=="C")

VOC.soil.C.plsda<- as.matrix(VOC.soil.C[,13:46])


#運行

VOC.soil.C.plsda1 <- splsda(VOC.soil.C.plsda, VOC.soil.C$Season)


#數(shù)據(jù)點圖

plotIndiv(VOC.soil.C.plsda1)

#變量圖

plotVar(VOC.soil.C.plsda1)

#

plotIndiv(VOC.soil.C.plsda1, ind.names = FALSE, legend=T,

? ? ? ? ? ellipse = TRUE, star = TRUE, title = 'Treatment: C',

? ? ? ? ? X.label = 'Component 1 (30%)', Y.label = 'Component 2 (18%)')



關于做PLS-DA分析的評論 (共 條)

分享到微博請遵守國家法律
洮南市| 泸水县| 西吉县| 沭阳县| 汉川市| 屏山县| 绥宁县| 呼玛县| 宣化县| 万山特区| 民县| 上高县| 长治县| 牟定县| 茌平县| 永年县| 绵竹市| 大安市| 洞头县| 嵩明县| 乌苏市| 婺源县| 灵台县| 安徽省| 雷山县| 满城县| 金阳县| 历史| 上杭县| 盐津县| 衡水市| 新邵县| 会同县| 安丘市| 富顺县| 合水县| 津南区| 杭锦后旗| 武山县| 河曲县| 四平市|