2022-10-12

#

使用隨機(jī)效應(yīng)交互對(duì)遺傳異質(zhì)性建模

#上提到的問(wèn)題,抽樣之后準(zhǔn)確率不穩(wěn)定烘苹,有可能少數(shù)幾次準(zhǔn)確率很低筋量,可能因?yàn)榛蛐皖l率出現(xiàn)問(wèn)題(基因型異質(zhì)性導(dǎo)致),解決方案如下:

X0=X

# for main effects

? X1=X; X1[group==2,]=0 #interactions

? X2=X; X2[group==1,]=0 #interactions

? Z2=as.matrix(as.integer(group==2))

根據(jù)PCA進(jìn)行亞群劃分惧眠,基因型和表型進(jìn)行矩陣雙倍化(格式上的雙倍化),進(jìn)行隨機(jī)建模于个。

(1)

均質(zhì)效應(yīng)模型(取樣隨機(jī)化)

?fm0=BGLR(

y=y,ETA=list(

?? ? int=list(X=Z2, model='FIXED'),

?? ? list(X=X0,model='BRR')

?? ????? ),

? ? nIter=6000,burnIn=1000,saveAt='m0_')

(2)

分層分析(分組分析)

?fm1=BGLR(

y=y[group==1],

?? ?? ETA=list( list(X=X0[group==1,],model='BRR')),

? ?? nIter=6000,burnIn=1000,saveAt='m1_')


?fm2=BGLR( y=y[group==2],

?? ?? ETA=list( list(X=X0[group==2,],model='BRR')),

? ?? nIter=6000,burnIn=1000,saveAt='m2_')

(3)

交互模型(認(rèn)為亞群之間有聯(lián)系氛魁,單亞群固定化,亞群之間隨機(jī)化);這個(gè)能夠擴(kuò)展到GbyE上秀存,嚴(yán)威凱老師提出主效可加微效可成模型)(AMMI)就是這個(gè)道理捶码。

? fm12=BGLR(y=y,ETA=list(

? ? ??int=list(X=Z2, model='FIXED'),

????????????????? main=list(X=X0,model='BRR'),

????????????????? int1=list(X=X1,model='BRR'),

????????????????? int2=list(X=X2,model='BRR')

? ),

? ???? nIter=6000,burnIn=1000,groups=group,saveAt='m12_')

? varU1=fm12$ETA[[2]]$varB+fm12$ETA[[3]]$varB

? varU2=fm12$ETA[[2]]$varB+fm12$ETA[[4]]$varB

? varE1=fm12$varE[1]

? varE2=fm12$varE[2]

? h2_1=varU1/(varU1+varE1)

? h2_2=varU2/(varU2+varE2)


? fm12$ETA[[2]]$varB/sqrt(varU1*varU2)

#correlation of effects

#(1)(3)均不能很好的改善預(yù)測(cè)性能的穩(wěn)健性,分析原因可能是分群出現(xiàn)問(wèn)題

?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
  • 序言:七十年代末或链,一起剝皮案震驚了整個(gè)濱河市惫恼,隨后出現(xiàn)的幾起案子,更是在濱河造成了極大的恐慌澳盐,老刑警劉巖祈纯,帶你破解...
    沈念sama閱讀 218,122評(píng)論 6 505
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件,死亡現(xiàn)場(chǎng)離奇詭異叼耙,居然都是意外死亡腕窥,警方通過(guò)查閱死者的電腦和手機(jī),發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 93,070評(píng)論 3 395
  • 文/潘曉璐 我一進(jìn)店門(mén)筛婉,熙熙樓的掌柜王于貴愁眉苦臉地迎上來(lái)簇爆,“玉大人,你說(shuō)我怎么就攤上這事倾贰。” “怎么了拦惋?”我有些...
    開(kāi)封第一講書(shū)人閱讀 164,491評(píng)論 0 354
  • 文/不壞的土叔 我叫張陵匆浙,是天一觀的道長(zhǎng)。 經(jīng)常有香客問(wèn)我厕妖,道長(zhǎng)首尼,這世上最難降的妖魔是什么? 我笑而不...
    開(kāi)封第一講書(shū)人閱讀 58,636評(píng)論 1 293
  • 正文 為了忘掉前任言秸,我火速辦了婚禮软能,結(jié)果婚禮上,老公的妹妹穿的比我還像新娘举畸。我一直安慰自己查排,他們只是感情好,可當(dāng)我...
    茶點(diǎn)故事閱讀 67,676評(píng)論 6 392
  • 文/花漫 我一把揭開(kāi)白布抄沮。 她就那樣靜靜地躺著跋核,像睡著了一般。 火紅的嫁衣襯著肌膚如雪叛买。 梳的紋絲不亂的頭發(fā)上砂代,一...
    開(kāi)封第一講書(shū)人閱讀 51,541評(píng)論 1 305
  • 那天,我揣著相機(jī)與錄音率挣,去河邊找鬼刻伊。 笑死,一個(gè)胖子當(dāng)著我的面吹牛,可吹牛的內(nèi)容都是我干的捶箱。 我是一名探鬼主播智什,決...
    沈念sama閱讀 40,292評(píng)論 3 418
  • 文/蒼蘭香墨 我猛地睜開(kāi)眼,長(zhǎng)吁一口氣:“原來(lái)是場(chǎng)噩夢(mèng)啊……” “哼讼呢!你這毒婦竟也來(lái)了撩鹿?” 一聲冷哼從身側(cè)響起,我...
    開(kāi)封第一講書(shū)人閱讀 39,211評(píng)論 0 276
  • 序言:老撾萬(wàn)榮一對(duì)情侶失蹤悦屏,失蹤者是張志新(化名)和其女友劉穎节沦,沒(méi)想到半個(gè)月后,有當(dāng)?shù)厝嗽跇?shù)林里發(fā)現(xiàn)了一具尸體础爬,經(jīng)...
    沈念sama閱讀 45,655評(píng)論 1 314
  • 正文 獨(dú)居荒郊野嶺守林人離奇死亡甫贯,尸身上長(zhǎng)有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 37,846評(píng)論 3 336
  • 正文 我和宋清朗相戀三年,在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了看蚜。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片叫搁。...
    茶點(diǎn)故事閱讀 39,965評(píng)論 1 348
  • 序言:一個(gè)原本活蹦亂跳的男人離奇死亡,死狀恐怖供炎,靈堂內(nèi)的尸體忽然破棺而出渴逻,到底是詐尸還是另有隱情,我是刑警寧澤音诫,帶...
    沈念sama閱讀 35,684評(píng)論 5 347
  • 正文 年R本政府宣布惨奕,位于F島的核電站,受9級(jí)特大地震影響竭钝,放射性物質(zhì)發(fā)生泄漏梨撞。R本人自食惡果不足惜,卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 41,295評(píng)論 3 329
  • 文/蒙蒙 一香罐、第九天 我趴在偏房一處隱蔽的房頂上張望卧波。 院中可真熱鬧,春花似錦庇茫、人聲如沸港粱。這莊子的主人今日做“春日...
    開(kāi)封第一講書(shū)人閱讀 31,894評(píng)論 0 22
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽(yáng)啥容。三九已至,卻和暖如春顷霹,著一層夾襖步出監(jiān)牢的瞬間咪惠,已是汗流浹背。 一陣腳步聲響...
    開(kāi)封第一講書(shū)人閱讀 33,012評(píng)論 1 269
  • 我被黑心中介騙來(lái)泰國(guó)打工淋淀, 沒(méi)想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留遥昧,地道東北人覆醇。 一個(gè)月前我還...
    沈念sama閱讀 48,126評(píng)論 3 370
  • 正文 我出身青樓,卻偏偏與公主長(zhǎng)得像炭臭,于是被迫代替她去往敵國(guó)和親永脓。 傳聞我的和親對(duì)象是個(gè)殘疾皇子,可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 44,914評(píng)論 2 355

推薦閱讀更多精彩內(nèi)容