分析時間序列數(shù)據(jù)(二)

當(dāng)時間序列數(shù)據(jù)的類型是經(jīng)過不同處理后得到多組觀測值,每一個觀測值為同一觀察對象的同一觀察指標(biāo)在不同的時間點上進(jìn)行多次測量所得到的的數(shù)據(jù)值旋恼,然后需要分析觀察指標(biāo)在不同時間上的變化規(guī)律,例如不同處理方式的結(jié)果是否有差異朴则,或者同一處理方式下各個時間點是否有差異時卤橄,可進(jìn)行重復(fù)測量方差分析鳄抒。下面介紹一個實例。

如下表所示撒蟀,欲分析A叙谨、B兩種藥的減肥效果,每組選3個人保屯,每個人服藥后第0手负、1涤垫、2、3個月分別記錄下體重值竟终。問題有2個:
(1)A蝠猬、B兩種減肥藥服用后有無減肥效果。
(2)A统捶、B兩種減肥藥效果有無差異榆芦。

1. 原始數(shù)據(jù)result.txt。

原始數(shù)據(jù)需要轉(zhuǎn)化為長數(shù)據(jù)格式喘鸟,內(nèi)容如下:


result.txt

2.進(jìn)行重復(fù)測量方差分析匆绣。

a.導(dǎo)入數(shù)據(jù)并作圖進(jìn)行初步觀察。
library(reshape2)
mydata <- read.table('result.txt', header=T, sep="\t", stringsAsFactors=F)
with(mydata, interaction.plot(time,group,result,type='b',col=c('red','blue'),pch=1:2))

處理和時間對體重值的交互影響圖如下:



可以看到什黑,服用A崎淳、B兩藥后體重是隨時間逐步下降的。

b.分析數(shù)據(jù)是否滿足隨機愕把、獨立拣凹、來自正態(tài)分布總體及協(xié)方差是否符合球形性,只有滿足這四個條件才能進(jìn)行重復(fù)測量方差分析恨豁。

(1)分析實驗設(shè)計可以判斷樣本是隨機的嚣镜,在處理的同一水平上觀測是獨立的(即每個時間點各個樣本的觀測值互不影響)。
(2)進(jìn)行組內(nèi)正態(tài)性檢驗橘蜜。采用shapiro-wilk對觀測時間各水平進(jìn)行正態(tài)檢驗菊匿,P值大于0.05,則數(shù)據(jù)符合正態(tài)分布扮匠,如果小于0.05捧请,則不符合正態(tài)分布。

shapiro.test(mydata$result[mydata$time=='0'])
shapiro.test(mydata$result[mydata$time=='1'])
shapiro.test(mydata$result[mydata$time=='2'])
shapiro.test(mydata$result[mydata$time=='3'])

結(jié)果P值均大于0.05棒搜,數(shù)據(jù)是來源于正態(tài)分布總體疹蛉。如下圖所示:



(3)進(jìn)行球形性檢驗。P值大于0.05則說明協(xié)方差矩陣滿足球形性力麸。

mydata$col <- paste(mydata$group, mydata$time, sep='.')
mydata.dcast <- dcast(mydata[,c(3,6,5)], group_no~col)
mydata.dcast <- mydata.dcast[,-1]
mydata.dcast<-as.matrix(mydata.dcast)
mlmfit=lm(mydata.dcast~1)
group=factor(rep(c("A","B"), c(4, 4)))
time=ordered(rep(1:4,2))
idata=data.frame(group,time)
mauchly.test(mlmfit,M=~group+time,data=idata)

結(jié)果P值大于0.05可款,說明協(xié)方差矩陣滿足球形性。


c.進(jìn)行重復(fù)測量方差分析克蚂。
mydata$time <- as.factor(mydata$time)
mydata$no <- as.factor(mydata$no)
mydata$group <- as.factor(mydata$group)
fit<-aov(result~time*group+Error(no/(time)),data = mydata)
summary(fit)

結(jié)果如下:



可以看到
(1)group對result的P=0.0796闺鲸,說明group效應(yīng)無統(tǒng)計學(xué)意義,即A埃叭、B兩種減肥藥服用后的減肥效果差異無統(tǒng)計學(xué)意義摸恍。
(2)time對result的P=1.53e-10,說明time效應(yīng)有統(tǒng)計學(xué)意義,即A立镶、B兩種減肥藥服用后隨時間變化體重變化差異有統(tǒng)計學(xué)意義壁袄,亦即A、B兩種減肥藥有減肥效果媚媒。如要評價不同時間點之前的差異嗜逻,需進(jìn)行兩兩比較。
(3)time和group的交互作用有統(tǒng)計學(xué)意義缭召,p=0.00042栈顷。

?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
  • 序言:七十年代末,一起剝皮案震驚了整個濱河市嵌巷,隨后出現(xiàn)的幾起案子萄凤,更是在濱河造成了極大的恐慌,老刑警劉巖晴竞,帶你破解...
    沈念sama閱讀 222,807評論 6 518
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件蛙卤,死亡現(xiàn)場離奇詭異狠半,居然都是意外死亡噩死,警方通過查閱死者的電腦和手機,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 95,284評論 3 399
  • 文/潘曉璐 我一進(jìn)店門神年,熙熙樓的掌柜王于貴愁眉苦臉地迎上來已维,“玉大人,你說我怎么就攤上這事已日《舛” “怎么了?”我有些...
    開封第一講書人閱讀 169,589評論 0 363
  • 文/不壞的土叔 我叫張陵飘千,是天一觀的道長堂鲜。 經(jīng)常有香客問我,道長护奈,這世上最難降的妖魔是什么缔莲? 我笑而不...
    開封第一講書人閱讀 60,188評論 1 300
  • 正文 為了忘掉前任,我火速辦了婚禮霉旗,結(jié)果婚禮上痴奏,老公的妹妹穿的比我還像新娘。我一直安慰自己厌秒,他們只是感情好读拆,可當(dāng)我...
    茶點故事閱讀 69,185評論 6 398
  • 文/花漫 我一把揭開白布。 她就那樣靜靜地躺著鸵闪,像睡著了一般檐晕。 火紅的嫁衣襯著肌膚如雪。 梳的紋絲不亂的頭發(fā)上蚌讼,一...
    開封第一講書人閱讀 52,785評論 1 314
  • 那天辟灰,我揣著相機與錄音屠列,去河邊找鬼。 笑死伞矩,一個胖子當(dāng)著我的面吹牛笛洛,可吹牛的內(nèi)容都是我干的。 我是一名探鬼主播乃坤,決...
    沈念sama閱讀 41,220評論 3 423
  • 文/蒼蘭香墨 我猛地睜開眼苛让,長吁一口氣:“原來是場噩夢啊……” “哼!你這毒婦竟也來了湿诊?” 一聲冷哼從身側(cè)響起狱杰,我...
    開封第一講書人閱讀 40,167評論 0 277
  • 序言:老撾萬榮一對情侶失蹤,失蹤者是張志新(化名)和其女友劉穎厅须,沒想到半個月后仿畸,有當(dāng)?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體,經(jīng)...
    沈念sama閱讀 46,698評論 1 320
  • 正文 獨居荒郊野嶺守林人離奇死亡朗和,尸身上長有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點故事閱讀 38,767評論 3 343
  • 正文 我和宋清朗相戀三年错沽,在試婚紗的時候發(fā)現(xiàn)自己被綠了。 大學(xué)時的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片眶拉。...
    茶點故事閱讀 40,912評論 1 353
  • 序言:一個原本活蹦亂跳的男人離奇死亡千埃,死狀恐怖,靈堂內(nèi)的尸體忽然破棺而出忆植,到底是詐尸還是另有隱情放可,我是刑警寧澤,帶...
    沈念sama閱讀 36,572評論 5 351
  • 正文 年R本政府宣布朝刊,位于F島的核電站耀里,受9級特大地震影響,放射性物質(zhì)發(fā)生泄漏拾氓。R本人自食惡果不足惜冯挎,卻給世界環(huán)境...
    茶點故事閱讀 42,254評論 3 336
  • 文/蒙蒙 一、第九天 我趴在偏房一處隱蔽的房頂上張望痪枫。 院中可真熱鬧织堂,春花似錦、人聲如沸奶陈。這莊子的主人今日做“春日...
    開封第一講書人閱讀 32,746評論 0 25
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽吃粒。三九已至潦俺,卻和暖如春,著一層夾襖步出監(jiān)牢的瞬間,已是汗流浹背事示。 一陣腳步聲響...
    開封第一講書人閱讀 33,859評論 1 274
  • 我被黑心中介騙來泰國打工早像, 沒想到剛下飛機就差點兒被人妖公主榨干…… 1. 我叫王不留,地道東北人肖爵。 一個月前我還...
    沈念sama閱讀 49,359評論 3 379
  • 正文 我出身青樓卢鹦,卻偏偏與公主長得像,于是被迫代替她去往敵國和親劝堪。 傳聞我的和親對象是個殘疾皇子冀自,可洞房花燭夜當(dāng)晚...
    茶點故事閱讀 45,922評論 2 361

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