雖本文已提出等期間 ECM 鑑定策略,但研究過程中仍有一些值得後續研究。
5.3.1 二階 LGM 一般化 ECM 之鑑定
當二階 LGM 之誤差間不獨立時,此時如何選擇同問項誤差不同期、不同問項誤差 但同期、不同問項誤差在不同期設定 ECM,變成一很複雜 ECM 之結構仍值得後續研究。
5.3.2 非等距的空間 ECM 之鑑定
本研究為等距,若非等距或空間 ECM 之鑑定仍為一個可以研究之議題。
5.3.3 單變量與多變量資料結構估計差異
在 HLM (PROC MIXED)採用之資料結構為單變量結構、而 SEM(PROC CALIS) 採 用之資料結構為多變量結構(Singer, 1998),兩者參數估計出來結果相近( Bovaird, 2007 ; Rovine & Molenaar, 2000),但本研究估計結果在成長因素固定效果參數相近而隨機誤差 參數 (level-1/2 ECM)稍許出入且概似函數值(表 4.3)差異很大,均值得後續研究且釐清。
99
參 考 文 獻
[ 1] Allison, P. D. (2003). Missing data techniques for structural equation modeling. Journal
of Abnormal Psychology, 4, 545–557.
[ 2] Anderson, J. C., & Gerbing, D. W. (1988). Structural equation modeling in practice: A review and recommended two-step approach. Psychological Bulletin, 103, 411–423.
[ 3] Akaike, H. (1974). A new look at the statistical model identification, IEEE Transaction
on Automatic Control. AC–19, 716–723.
[ 4] Arbuckle, J. L. (2006). Amos 7.0 User's Guide. Chicago: SPSS.
[ 5] Bauer, D. J. (2003). Estimating multilevel linear models as structural models. Journal of
Educational and Behavioral Statistics, 28, 135–167.
[ 6] Curran, P. J., & Baucer, D. J. (2007). Building path diagrams for multilevel models.
Psychological Methods. 12, 283–297.
[ 7] Beck, N., & Katz, J. N. (1995). What to do (and not to do) with time-series cross-section data. American Political Science Review, 89, 634–647.
[ 8] Bentler, P. M. (1995). EQS, Structural Equations Program Manual, Program Version 5.0, Encino,CA: Multivariate Software.
[ 9] Bentler, P. M. and Bonett, D. G. (1980). Significance Tests and Goodness of Fit in the Analysis of Covariance Structures. Psychological Bulletin, 88, 588–606.
[10] Bentler, P. M., & Wu, E. J. C. (2005). EQS 6.1 - Structural Equation Modeling Software
for Windows. Encino, CA: Multivariate Software, Inc.
[11] Blozis, S. A. (2006). A second-order structured latent curve model for longitudinal data.
In K. van Montfort, H. Oud, & A. Satorra (Eds.), Longitudinal Models in the Behavioral
and Related Sciences (pp. 189–214). Mahwah, NJ: Lawrence Erlbaum Associates, Inc.
[12] Blozis, S. A., Harring, J. R., & Mels, G. (2008). Using lisrel to fit nonlinear latent curve models. Structural Equation Modeling, 15, 346–369.
[13] Bollen, K. A., & Long, J. S. (1993). Testing Structural Equation Models. Newburyk:
Sage Publication.
[14] Bollen, K. A., & Curran, P. J. (2006). Latent Curve Models: A Structural Equation
Perspective. Hoboken, NJ: Wiley & Sons.
[15] Bovaird, J. A. (2007). Multilevel structural equation models for contextual factors. In T.
D. Little, J. A. Bovaird, & N. A. Card (Eds.), Modeling Contextual Effects in
100
Longitudinal Studies (pp. 149–182). Mahwah, NJ: Lawrence Erlbaum Associates, Inc.
[16] Box, G. E. P., Jenkins, G. M., & Reinsel, G. C. (1994). Time Series Analysis:
Forecasting and Control (3rd ed.). Englewood Cliffs, NJ: Prentice-Hall.
[17] Browne, M. W. & Cudeck, R. (1993). Alternative Ways of Assessing Model Fit. In:
Bollen, K. A. & Long, J. S. (Eds.), Testing Structural Equation Models. (pp. 136–162).
Newbury Park, CA:Sage.
[18] Browne, M. W., & du Toit, S. H. C. (1991). Models for learning data. In L. Collins & J.
L. Horn (Eds.), Best Methods for the Analysis of Change (pp. 47–68). Washington, DC:
APA.
[19] Chan, D. (1998). The conceptualization and analysis of change over time: An integrative approach incorporating longitudinal mean and covariance structures analysis (LMACS) and multiple indicator latent growth modeling (MLGM). Organizational Research
Methods, 1, 421–483.
[20] Chen, M. F. & Ding, C. G. (2009). Comparing Two-Stage Approaches to Detect Continuous Manifest Moderating Effects on Construct Relationships, Asia Pacific
Management Review, 14, 137-157. (TSSCI )
[21] Curran, P. J. (2003). Have multilevel models been structural equation models all along?
Multivariate Behavioral Research, 38, 529–569.
[22] Dawson, K. S., Gennings, C., & Carter, W. H. (1997). Two graphical techniques useful in detecting correlation structure in repeated measures data. American Statistician, 4, 275–283.
[23] Diggle, P. J., Liang, K., and Zeger, S. L. (2002), Analysis of Longitudinal Data, New York: Oxford University Press.
[24] Ding, C. G., & Jane, T. D. On the reliability, consistency, and method-specificity in multitrait-multimethod models. submitted to Applied Psychological Measurement.
(Working Paper(a)).
[25] Ding, C. G., & Jane, T. D. Dealing with error covariances in SEM: Recommendations for behavioral studies. submitted to Multivariate Behavior Research. (Working Paper(b)).
[26] Duncan, S. C., Duncan, T. E., & Hops, H. (1996). Analysis of longitudinal data within accelerated longitudinal design. Psychological Methods, 1, 236–248.
[27] Duncan, T. E., Duncan, S. C. & Strycker, L. A. (2006). An introduction to latent variable
growth curve modeling: Concepts, issues, and applications (2nd ed.). Mahwah, NJ:
Lawrence Erlbaum Associates, Inc.
101
[28] Enders, C. K., & Bandalos, D. L. (2001). The relative performance of full information maximum likelihood estimation for missing data in structural equation models.
Structural Equation Modeling, 8, 430–457.
[29] Eyduran, E., & Akbaş, Y. (2010). Comparison of different covariance structure used for experimental design with repeated measurement. Journal of Animal & Plant Sciences,
20, 44–51.
[30] Ferron, J., Dailey, R. F., & Yi, Q. (2002). Effects of misspecifying the first-level error structure in two-level models of change. Multivariate Behavioral Research, 37, 379-403.
[31] Goldstein, H., Healy, M. J. R., & Rasbash, J. (1994). Multilevel time series models with applications to repeated measures data. Statistics in Medicine, 13, 1643–1655.
[32] Grimm, K. J., & Widaman, K. F. (2010) Residual structures in latent growth curve modeling. Structural Equation Modeling, 17, 424–442.
[33] Hamaker, E. L., Dolan, C. V., & Molenaar, C. M. (2003). ARMA-based SEM when the number of time points T exceeds the number of cases N: Raw data maximum likelihood.
Structural Equation Modeling, 10, 352–379.
[34] Hancock, G. R., Kuo, W. L., & Lawrence, F. R. (2001). An illustration of second-order latent growth models. Structural Equation Modeling, 8, 470–489.
[35] Hedeker, D., & Mermelstein, R. J. (2007). Mixed-Effects Regression Models with Heterogeneous Variance: Analyzing Ecological Momentary Assessment (EMA) Data of Smoking. In T. D. Little, J. A. Bovaird, & N. A. Card (Eds.), Modeling contextual effects
in longitudinal studies (pp. 183–206). Mahwah, NJ: Lawrence Erlbaum Associates, Inc.
[36] Heitjan, D. F., & Sharma, D. (1997). Modeling repeated series longitudinal data.
Statistics in Medicine, 16, 347–355.
[37]
Hu, L., & Bentler, P. M. (1999). Cutoff criteria for fit indexes in covariance structure analysis:
Conventional criteria versus new alternatives. Structural Equation Modeling,6(1), 1−55.
[38] Iacobucci, D. (2010). Structural equation modeling: Fit indices, sample size, and advanced topics. Journal of Consumer Psychology, 20, 90-98.
[39] Jöreskog, K. (1967). Some contributions to maximum likelihood factors analysis,
Psymetrika, 32, 443–482.
[40] Jöreskog, K., & Sörbom, D. (2001). LISREL 8: User’s Reference Guide, Chicago:
Scientific Software International.
[41] Keselman, H. J., Algina, J., Kowalchuk, R. K., and Wolfinger, R. D. (1998), “A
102
comparison of two approaches for selecting covariance structures in the analysis of repeated measurements,” Communications in Statistics: Simulation and Computation, 27 , 91–604.
[42] Kowalchuk, R. K., & Keselman, H. J. (2001). Mixed-model pairwise multiple comparisons of repeated measures means. Psychological Methods, 6, 282–296.
[43] Kwok, O. M., West, S. G., & Green, S. B. (2007). The impact of misspecifying the within-subject covariance structure in multiwave longitudinal multilevel models: A Monte Carlo study. Multivaraite Behavioral Research, 42, 557–592.
[44] Littell R. C., Henry, P. R., & Ammerman, C. B. (1998). Statistical analysis of repeated measures data using SAS procedures. American Society of Animal Science., 76, 1216–1231.
[44] Littell, R. C., Milliken, G. A., Stroup, W. W., Wolfinger, R. D., & Schabenberger, O.
(2006). SAS for Mixed Models (2nd ed.), Cary, NC: SAS Institute Inc.
[46] Littell R. C., Rendergast J., & Natarajan, R. (2000), Modeling covariance structure in the analysis of repeated measures data. Statistics in Medicine, 19, 1793–1819.
[47] MacCallum, R. C., Kim, C, Malarkey, W. B., and Kiecolt-Glaser, J. K. (1997). Studying multivariate change using multilevel models and latent curve models. Multivariate
Behavioral Research, 32, 215–253.
[48] Mansour, H., Nordheim, E. V., & Rutledge, J. J. (1985). Maximum likelihood estimation of variance components in repeated measures designs assuming autoregressive errors.
Biometrics, 41, 287–294.
[49] Mehta, P. D., & Neale, M. C. (2005). People are variables too: Multilevel structural equations modeling, Psychological Methods, 10, 259–284.
[50] Meredith, W., & Tisak, J. (1990). Latent curve analysis. Psychometrika, 55, 107–122.
[51] Murphy, D. L., & Pituch, K. A. (2009). The Performance of multilevel growth curve models under an autoregressive moving average process. Journal of Experimental
Education, 77, 255–282.
[52] Muthén, B. O., & Khoo, S. T. (1998). Longitudinal studies of achievement growth using latent variable modeling. Learning and Individual Differences, 10, 73–101.
[53] Muthén, L. K., & Muthén, B. O. (2002). How to use a Monte Carlo study to decide on sample size and determine power. Structural Equation Modeling, 9, 599–620.
[54] Muthén, L. K., & Muthén, B. O. (2007). Mplus User’s Guide (5th ed.). Los Angeles, CA:
Author.
103
[55] Neale, M. C., Boker, S. M., Xie, G., & Maes, H. H. (2003). Mx: Statistical Modeling (6th ed.). Richmond: Virginia Commonwealth University.
[56] Newsom, J. T. (2002). A multilevel structural equation model for dyadic data. Structural
Equation Modeling, 9, 431–447.
[57] Orhan, H., Eyduran, E., & Akbaş, Y. (2010). Defining the best covariance structure for sequential variation on live weights of anatolian merinos male lambs. Journal of Animal
& Plant Sciences,20, 158–163.
[58] Preacher, K. J., Wichman, A. L., MacCallum, R. C., & Briggs, N. E. (2008). Latent
Growth Curve modeling. Thousand Oaks, CA: Sage.
[59] Rabe-Hesketh, S., & Skrondal, A., (2008). Multilevel and Longitudinal Modeling Using Stata. 2nd ed. College Station, TX: Stata Press
[60] Raudenbush, S. W. (2001). Comparing personal trajectories and drawing causal inferences from longitudinal data. Annual Review of Psychology, 52, 501–525.
[61] Rovine, M. J., & Molenaar, P. C. M. (1998). A LISREL model for the analysis of repeated measure with a patterned covariance matrix, Structural Equation Modeling, 5, 318–343.
[62] Rovine, M. J., & Molenaar, P. C. M. (2000). A structural modeling approach to a multilevel random coefficients model. Multivariate Behavioral Research, 35, 51–88.
[63] Sayer, A. G., & Cumsille, P. E. (2001). Second-order latent growth models. In L. Collins
& A. G. Sayer (Eds.), New Methods for the Analysis of Change (pp. 179-200).
Washington DC: American Psychological Association.
[64] SAS Institute Inc. (2010). SAS/STAT User’s Guide (SAS 9.22). Cary, NC: Author.
[65] Schwarz, G. (1978). Estimating the dimension of a model, Annals of Statistics, 6, 461–464.
[66] Singer, J. D. (1998). Using SAS PROC MIXED to fit multilevel models, hierarchical models, and individual growth models. Journal of Educational and Behavioral Statistics,
24, 323–355.
[67] Singer, J. D., & Willett, J. B. (2003). Applied longitudinal data analysis: Modeling
change and event occurrence. New York: Oxford University Press.
[68] Sivo, S. (2001). Multiple Indicator Stationary Time Series Models. Structural Equation
Modeling, 8, 599–612.
[69] Sivo, S., Fan, X., & Witta, L. (2005). The biasing effects of unmodeled ARMA time series processes on latent growth curve model estimates. Structural Equation Modeling,
12, 215–231.
104
[70] Sivo, S., & Fan, X. (2008). The latent curve ARMA (p, q) panel model: Longitudinal data analysis in educational research and evaluation. Educational Research and
Evaluation, 14, 363–376.
[71] Steiger, J. H. and Lind, J. C. (1980). Statistically Based Tests for the Number of Common Factors. Paper presented at the annual meeting of the Psychometric Society, Iowa City, IA.
[72] Tsay, R. S. (2005). Analysis of Financial Time Series (2nd ed.), New York: John Wiley&
Sons.
[73] Tucker, L. R., & Lewis, C. (1973), “A reliability coefficient for maximum likelihood factor analysis,” Psychometrika, 38, 1–10.
[74] Velicer, W. F., & Fava, J. L. (2003). Time series analysis. In J. A. Schinka & W. F.
Velicer (Eds.), Handbook of psychology. Vol. 2: Research Methods in Psychology (pp.
581–606). Hoboken, NJ: Wiley.
[75] Verbeke G., & Molenberghs G. (1997). Linear Mixed Models in Practice: A
SAS-Oriented Approach. Lecture Notes in Statistics 126, New York: Springer-Verlag.
[76] West, S. G., & Hepworth, J. T. (1991). Data analytic strategies for temporal data and daily events. Journal of Personality, 59, 609–662.
[77] Willett, J. B., & Sayer, A. G. (1994). Using covariance structure analysis to detect correlates and predictors of individual change over time. Psychological Bulletin, 116, 363–381.
[78] Wolfinger, R. (1993). Covariance structure selection in general mixed models.
Communications in Statistics-Simulation and Computation, 22, 1079–1106.
[79] Wolfinger, R. (1996). Covariance structures for repeated measures. Journal of
Agricultural, Biological, and Environmental Statistics, 1, 205–230.
[80] Wulff, S. S. & Robinson , T. J. (2009). Assessing the uncertainty of regression estimates in a response surface model for repeated measures. Quality Technology & Quantitative
Management, 6, 309–324.
105
A-1: 第 一 章 附 註
[註 A-1.1] ECM (Singer and Willett, 2003, ch7)
本文之ECM 係指 LGM (HLM)中第一層測量誤差或第二層成長因素誤差之共變結構 之矩陣(error covariance structural matrix,簡稱 ECM),該名詞引用 Singer and Willett((2003), Ch7.此有別於計量經濟學 error correlation model (ECM)。
A-2: 第 二 章 附 註
[註 A-2.1] LGM 以 HLM 表示時 level-1 及 level-2 誤差之示意圖 (Rabe-Hesketh and
Skrondal,2008, ch4).在LGM 固定效果係數
β
0和β
1表示整個成長模型截距的平均值及斜率的平均值;隨 機效果係數u 和
0 ju (即
1 j u向量之元素)表示第 j 個受測者成長模型截距及斜率和整個成長 模型截距的平均值及斜率的平均值之偏差(deviation),用以表示受測者彼此之間成長趨勢 之變化;隨機效果r (即
jtr 向量之元素)表示第 t 個時點及第 j 個受測者之量測值偏離本身
成長曲線之誤差。為更清楚u 、
0 ju 及
1 jr 之意義,我們以第 j 個受測者成長模型為
tj0 1 0 1
0 0 1 1
( ) ( )
( ) (A.2.1)
jt tj j j tj tj
j j tj tj
y Time u u Time r
u u Time r
β β
β β
= + + + +
= + + + +
設由母體抽出第
j 個受測者之 LGM,就全部受測者而言,整體線性趨勢線(trajectory line)
可表為式(A.2.1),即圖 A.2.1 線AB ,該迴歸線對所有受測者( j
∀ )而言均成立。0 1
( )t ( t)
E y
=β
+β Time
(A.2.2) 今假設抽到第j 個人設隨機效果之得分為 u 及
0ju ,則式(A.2.2)之條件期望值,即為式
1j (A.2.3)0 1 0 0 1 1
( jt| j, j, tj) j ( j) tj
E y u u Time
=β
+u
+β
+u Time
(A.2.3) 而式(A.2.3)之迴歸線,即為圖 A.2.1 線CE。為易於說明式(A.2.2)及式(A.2.3)起見,我們 將線AB 平行移動 u 大小,相當於固定
0ju 之迴歸線,即為式(A.2.4)及圖 A.2.1 線
0j CD0 0 0 1
( jt| j, jt) j ( jt)
E y u Time
=β
+u
+β Time
(A.2.4) 因而CE即為線CD(AB 往上平移 u )以 C 為圓心旋轉遞增
0 ju ,因此
1 ju 及
0 ju 分別表示每
1 j 一個受測者對整體迴歸線偏差(deviance)程度,故u隨機向量反映受測者彼此間(between106
ε
隨機誤差向量反映第j 個受測者本身(within subjects)偏離本身迴歸線
程度。 才有層次(level)之觀念(Raudenbush and Bryk, 2002, Ch2),而 SEM 為測量模式(measure model)及結構方程(structural equation) (Bollen, 1998, Ch8)各有其要解決之了問題,唯 LGM 在 HLM 及 SEM 其解析式卻相同,如圖 2.1 在 SEM 稱潛在變數(intercept(或 level) 及 slope(shape))為成長因素構念,而在 HLM 稱為 random coefficients,其他變數在不同 統計模型之術語其對對映關係如表表 A-2.1 所示。107
108 两個點之歐幾理德距離。SP(MATERN)及 SP(MATHSW)表示共變數結構,由 Matern (1986),
Handcock and Stein (1993), Handcock and Wallis (1994)所提出一系列結構。
K
v代表第二類修正貝 氏函數(Bessel function), v>0.109
110
111
112
113
114
115
116
117
ARMA(p,q)之 level-1 ECM 推導 首先定義誤差{
ε
t}過程為 ARMA(p,q)2
1 1 1 1
AR part MA part
, ~ white noise(0, ).
118
The autocovariance function
1 1
119
二. Example for ARMA(2,1) (p=2,q=1)
120
121
122
123
Summarized by matrix
2
124
三.Example for ARMA(1,2) (p=1,q=2)
1 1 1 1 2 2
125
126
127
128
所以lag-2 autocovariance 為
2
129
2 2
1 1 1
1 1
( ) ( 1) , 3
, 3
k k
k k
k k k
k
εε εε ε ε
σ φ σ φ ρ σ ρ σ
ρ φ ρ
′ ′ −
−
= − = = ≥
= ≥
,:| | 1
φ
1 <平穩條件 ,
2
1 2
2 1
| | 1,
: 1,
1.
θ θ θ θ θ
⎧ <
⎪ + <
⎨ ⎪ − <
⎩
可逆條件
130
ARMA(p, q) (autoregressive moving average of order (p, q))
1 1
131
常見ARMA(p,q) stationarity 及 invertibility 條件彙整如下
Model Stationary
conditions
132
133
附錄B: SAS 程式
[B-1]:一階條件式LGM模擬資料程式
/********************************************************************************/
DM 'LOG; CLEAR; output; clear; PGM;recall;ODS; Clear;';
OPTIONS REPLACE notes NODATE PS=58 PAGENO=1 LS=72;
/********************************************************************************/
%MACRO SIMUTOEPH (GA00, GA01, Sigma2_alpha, Sigma2_beta, C_alpha_beta VARE1, VARE2, VARE3, VARE4, CE1E2, CE1E3, CE1E4, CE2E3, CE2E4, CE3E4, Mu_X, Sigma_X, GA10, GA11, N);
%DO runs= 1 %to 1; /***僅模擬一組樣本******/
DM 'LOG; CLEAR; output; clear; ODS; Clear;';
PROC IML; /***呼叫 IML 計算式(2.32)蘊涵平均數向量 及式(2.33) 蘊涵共變異數矩陣*****/
LY = { 1 0, 1 1, 1 2, 1 3};
MuEta={&GA00, &GA01};
Mu_X={&Mu_X};
Sigma_X={&Sigma_X};
GA={&GA10, &GA11};
PSI = {&Sigma2_alpha &C_alpha_beta, &C_alpha_beta &Sigma2_beta};
TE = {&VARE1 &CE1E2 &CE1E3 &CE1E4 , &CE1E2 &VARE2 &CE2E3 &CE2E4 , &CE1E3 &CE2E3 &VARE3 &CE3E4 , &CE1E4 &CE2E4 &CE3E4 &VARE4};
COVY = LY*(GA*Sigma_X*GA`+PSI)*LY`+TE;
COVXY = LY*GA*Sigma_X;
COVYX = Sigma_X*GA`*LY`;
COVX = Sigma_X;
UPPER = COVY || COVXY;
LOWER = COVYX || COVX;
COV = UPPER // LOWER; /***式(2.33) 蘊涵共變異數矩陣*****/
MEANY= LY*(MuEta+GA*Mu_X);
MEANX=Mu_X;
MEAN=MEANY//MEANX; /***式(2.32)蘊涵平均數向量 *********/
print COV MEAN;
/*************利用RANDNORMAL模擬多變量常態分配資料***************************/
SERIES = RANDNORMAL( &N, Mean, Cov ); /*Multinormal distribution*********/
134
CREATE DATA_Sim_ARH1_SEM FROM series[COLNAME={Y1 Y2 Y3 Y4 X }];
APPEND FROM series;
RUN;
/*********************************************************************************/
PROC CORR COV DATA=DATA_Sim_ARH1_SEM OUTP=ARH1_data noprint;
RUN;
proc print data=ARH1_data;
title'ARH(1)_data';
run;
/*********************************************************************************/
PROC PRINT DATA=DATA_Sim_ARH1_SEM /*NOOBS*/;
title'DATA_Sim_ARH(1)_SEM';
RUN;
/********************************************************************************/
%END;
%MEND SIMUTOEPH;
/**************計算ECM為ARH(1)**************************************************/
%MACRO compute (GA00, GA01, Sigma2_alpha, Sigma2_beta, C_alpha_beta, VARE1, VARE2 VARE3, VARE4, MuX, SigmaX, GA10, GA11, RHO, VN );
%let SQRTVARE1=%sysfunc(sqrt(&VARE1));
%let SQRTVARE2=%sysfunc(sqrt(&VARE2));
%let SQRTVARE3=%sysfunc(sqrt(&VARE3));
%let SQRTVARE4=%sysfunc(sqrt(&VARE4));
%let COVE1E2=%sysevalf(&RHO*&SQRTVARE1*&SQRTVARE2);
%let COVE1E3=%sysevalf(&RHO*&RHO*&SQRTVARE1*&SQRTVARE3);
%let COVE1E4=%sysevalf(&RHO*&RHO*&RHO*&SQRTVARE1*&SQRTVARE4);
%let COVE2E3=%sysevalf(&RHO*&SQRTVARE2*&SQRTVARE3);
%let COVE2E4=%sysevalf(&RHO*&RHO*&SQRTVARE2*&SQRTVARE4);
%let COVE3E4=%sysevalf(&RHO*&SQRTVARE3*&SQRTVARE4);
/***********************************************************************************/
%SIMUTOEPH (&GA00, &GA01, &Sigma2_alpha, &Sigma2_beta, &C_alpha_beta, &VARE1, &VARE2, &VARE3, &VARE4, &COVE1E2, &COVE1E3,
&COVE1E4, &COVE2E3, &COVE2E4, &COVE3E4, &MuX, &SigmaX,
&GA10, &GA11, &VN);
%MEND compute;
data overall;
run;
/****設定表4.2 一階LGM 母體參數值***********************************************/
/* (GA00, GA01, Sigma2_alpha, Sigma2_beta, C_alpha_beta, VARE1, VARE2, VARE3, VARE4, MuX, SigmaX, GA10, GA11, RHO, VN ); */
title 'Case 1:ECM as ARH(1), sample size=300';
%compute (10, 4, 15, 10, 7, 36, 25, 49, 64, 0, 1 , 4, 6, 0.7, 300 );
/*********************************************************************************/
135
[B-2]:一階條件式LGM示例程式
/************************************************************************************/
DM 'LOG; CLEAR; output; clear; PGM;recall;ODS; Clear;';
OPTIONS REPLACE notes NODATE PS=58 PAGENO=1 LS=120;
/************************************************************************************/
DATA DATA_Sim_ARH1_SEM;
input ID $ Y1 Y2 Y3 Y4 X;
PROC CORR COV DATA=DATA_Sim_ARH1_SEM OUTP=ARH1_data noprint ; VAR Y1 Y2 Y3 Y4 X;
RUN;
proc print data=ARH1_data;
title'ARH(1)_data';
run;
/****列印 表4.2 樣本共變異數矩陣*****************************************************/
PROC PRINT DATA=DATA_Sim_ARH1_SEM;
Title'DATA_Sim_ARH1_SEM';
RUN;
/****多變量資料結構(SEM方法)轉成單變量資料結構(HLM方法)****************************/
DATA DATA_Sim_ARH1_HLM;
SET DATA_Sim_ARH1_SEM;
PROC PRINT DATA=DATA_Sim_ARH1_HLM;
VAR I ID TIME WAVE Y X;
136 TITLE'DATA_Sim_ARH(1)_HLM';
RUN;
QUIT;
/************************************************************************************/
/*****Level-1 ECM=UN 供穩態性檢定***************************************************/
PROC TCALIS METHOD=ML data=DATA_Sim_ARH1_SEM MAXFUNC=1500 MAXITER=1500 OUTRAM=OUT_RAM OUTEST=OUT_EST PRINT;
LINEQS
Y1 = F_alpha + 0 F_beta + E1, Y2 = F_alpha + 1 F_beta + E2, Y3 = F_alpha + 2 F_beta + E3, Y4 = F_alpha + 3 F_beta + E4,
F_alpha =GA00(10) intercept + GA10(4) X+D0, F_beta = GA01(4) intercept + GA11(6) X+D1;
STD
E1 =VARE1(36), E2 =VARE2(25), E3 = VARE3(49), E4 = VARE4(64), D0 = VARD0(15), D1 =VARD1(10);
COV
E2 E1 = COVE2E1(21), E3 E2 = COVE3E2(24.5), E4 E3 = COVE4E3(39.2), E3 E1 = COVE3E1(20.58), E4 E2 = COVE4E2(19.6), E4 E1 = COVE4E1(16.46), D0 D1= CD0D1(7);
VAR
Y1 Y2 Y3 Y4 X;
/***** ECM 採SIMTESTS 穩態性測試(表4.3及4.2.5.3)*************************************/
SIMTESTS
ERR_STATIONARY_TEST =[VAREQ_1 VAREQ_2 VAREQ_3 COVLag1EQ_1 COVLag1EQ_2 COVLag2EQ ];
/*SAS Programming statements for defining the parametric functions********************/
VAREQ_1 = VARE1-VARE2; VAREQ_2 = VARE1-VARE3; VAREQ_3 = VARE1-VARE4;
COVLag1EQ_1=COVE2E1-COVE3E2; COVLag1EQ_2=COVE2E1-COVE4E3;
COVLag2EQ=COVE3E1-COVE4E2;
TITLE 'ECM_UN_SEM';
RUN;
QUIT;
/************************************************************************************/
/**表4.4 步驟1, 檢定H0:MT=MS, 當MT=TOEPH (1) 時所需卡方值及自由度之程式************/
PROC TCALIS METHOD=ML data=DATA_Sim_ARH1_SEM MAXFUNC=1500 MAXITER=1500 OUTRAM=OUT_RAM OUTEST=OUT_EST PRINT;
LINEQS
Y1 = F_alpha + E1, Y2 = F_alpha + 1 F_beta + E2, Y3 = F_alpha + 2 F_beta + E3, Y4 = F_alpha + 3 F_beta + E4,
137 F_alpha =GA00(10) intercept + GA10(4) X+D0, F_beta = GA01(4) intercept + GA11(6) X+D1;
STD
E1 =VARE1(36), E2 =VARE2(25), E3 = VARE3(49), E4 = VARE4(64), D0 = VARD0(15), D1 =VARD1(10);
COV
D0 D1= CD0D1(7);
VAR
Y1 Y2 Y3 Y4 X;
TITLE 'ECM_UN(1)_SEM';
RUN;
QUIT;
/*************************************************************************************/
/**表4.4 步驟1:虛無假設 H0:MT=MS, MT=TOEPH (1), MS=UN之卡方差異檢定程式************/
DATA Chisquare_Diff_Prob_TOEPH1_UN;
Saturated_M_UN_Chisquare=5.1700;
Saturated_M_UN_DF=1;
Restricted_M_TOEPH1_Chisquare=30.9590;
Restricted_M_TOEPH1_DF=7;
ChisquareDIFF=Restricted_M_TOEPH1_Chisquare-Saturated_M_UN_Chisquare;
DF_DIFF=Restricted_M_TOEPH1_DF-Saturated_M_UN_DF;
ChiSquareProb=1-PROBCHI(ChisquareDIFF, DF_DIFF,0); output;
RUN;
/*************************************************************************/
PROC PRINT DATA= Chisquare_Diff_Prob_TOEPH1_UN;
title'SCDT_TOEPH(1)_UN_SEM';
RUN;
/*************************************************************************************/
/**表4.4 步驟2, 檢定H0:MT=MS,當MT=TOEPH (2) 時所需卡方值及自由度之程式**************/
PROC TCALIS METHOD=ML data=DATA_Sim_ARH1_SEM MAXFUNC=1500 MAXITER=1500 OUTRAM=OUT_RAM OUTEST=OUT_EST PRINT;
LINEQS
Y1 = F_alpha + E1, Y2 = F_alpha + 1 F_beta + E2, Y3 = F_alpha + 2 F_beta + E3, Y4 = F_alpha + 3 F_beta + E4,
F_alpha =GA00(10) intercept + GA10(4) X+D0, F_beta = GA01(4) intercept + GA11(6) X+D1;
STD
E1 =VARE1(17.54), E2 =VARE2(9.46), E3 = VARE3(23.35), E4 = VARE4(31.4), D0 = VARD0(15), D1 =VARD1(10);
COV
E2 E1 = COVE2E1(3.96), E3 E2 = COVE3E2(4.57), E4 E3 = COVE4E3(8.3069),
138 D0 D1= CD0D1(7);
PARAMETERS RHO (0.3);
COVE2E1=SQRT(VARE2)*SQRT(VARE1)*RHO;
COVE3E2=SQRT(VARE3)*SQRT(VARE2)*RHO;
COVE4E3=SQRT(VARE4)*SQRT(VARE3)*RHO;
BOUNDS
-1.<RHO<1.;
VAR
Y1 Y2 Y3 Y4 X;
TITLE 'ECM_TOEPH(2)_SEM';
RUN;
QUIT;
/*************************************************************************************/
/**表4.4 步驟2:虛無假設 H0:MT=MS, MT=TOEPH (2), MS=UN之卡方差異檢定程式************/
DATA Chisquare_Diff_Prob_TOEPH2_UN;
Saturated_M_UN_Chisquare=5.1700;
Saturated_M_UN_DF=1;
UnRestricted_M_TOEPH2_Chisquare=18.9406;
UnRestricted_M_TOEPH2_DF=6;
ChisquareDIFF=Unrestricted_M_TOEPH2_Chisquare-Saturated_M_UN_Chisquare;
DF_DIFF=Unrestricted_M_TOEPH2_DF-Saturated_M_UN_DF;
ChiSquareProb=1-PROBCHI(ChisquareDIFF, DF_DIFF,0); output;
RUN;
/************************************************************/
PROC PRINT DATA= Chisquare_Diff_Prob_TOEPH2_UN;
title'SCDT_TOEPH(2)_UN_SEM';
RUN;
/************************************************************************************/
/**表4.4 步驟3, 檢定H0:MT=MS, 當MT=CSH 時所需卡方值及自由度之程式******************/
PROC TCALIS METHOD=ML data=DATA_Sim_ARH1_SEM MAXFUNC=1500 MAXITER=1500 OUTRAM=OUT_RAM OUTEST=OUT_EST PRINT;
LINEQS
Y1 = F_alpha + E1, Y2 = F_alpha + 1 F_beta + E2, Y3 = F_alpha + 2 F_beta + E3, Y4 = F_alpha + 3 F_beta + E4,
F_alpha =GA00(10) intercept + GA10(4) X+D0, F_beta = GA01(4) intercept + GA11(6) X+D1;
STD
E1 =VARE1(36), E2 =VARE2(25), E3 = VARE3(49), E4 = VARE4(56), D0 = VARD0(15), D1=VARD1(10);
COV
E2 E1= COVE2E1(21), E3 E2 = COVE3E2(24.5), E4 E3 = COVE4E3(31.0),
139
E3 E1 = COVE3E1(20.58), E4 E2 = COVE4E2(15.484), E4 E1 = COVE4E1(13.02), D0 D1= CD0D1(7);
PARAMETERS RHO (0.7);
COVE2E1=SQRT(VARE2)*SQRT(VARE1)*RHO;
COVE3E1=SQRT(VARE3)*SQRT(VARE1)*RHO;
COVE3E2=SQRT(VARE3)*SQRT(VARE2)*RHO;
COVE4E1=SQRT(VARE4)*SQRT(VARE1)*RHO;
COVE4E2=SQRT(VARE4)*SQRT(VARE2)*RHO;
COVE4E3=SQRT(VARE4)*SQRT(VARE3)*RHO;
BOUNDS
-1.<RHO<1.;
VAR
Y1 Y2 Y3 Y4 X;
TITLE 'ECM_CSH_SEM';
RUN;
QUIT;
/*************************************************************************************/
/**表4.4 步驟3:虛無假設 H0:MT=MS, MT=CSH, MS=UN之卡方差異檢定程式******************/
DATA Chisquare_Diff_Prob_CSH_UN;
Saturated_M_UN_Chisquare=5.1700;
Saturated_M_UN_DF=1;
UnRestricted_M_CSH_Chisquare=18.3761;
UnRestricted_M_CSH_DF=6;
ChisquareDIFF=Unrestricted_M_CSH_Chisquare-Saturated_M_UN_Chisquare;
DF_DIFF=Unrestricted_M_CSH_DF-Saturated_M_UN_DF;
ChiSquareProb=1-PROBCHI(ChisquareDIFF, DF_DIFF,0); output;
RUN;
/*************************************************************************************/
PROC PRINT DATA= Chisquare_Diff_Prob_CSH_UN;
title'SCDT_CSH_UN_SEM';
RUN;
/************************************************************************************/
/**表4.4 步驟4, 檢定H0:MT=MS, 當MT=ARH(1) 時所需卡方值及自由度之程式***************/
PROC TCALIS METHOD=ML data=DATA_Sim_ARH1_SEM MAXFUNC=1500 MAXITER=1500 OUTRAM=OUT_RAM OUTEST=OUT_EST PRINT;
LINEQS
Y1 = F_alpha + E1, Y2 = F_alpha + 1 F_beta + E2, Y3 = F_alpha + 2 F_beta + E3, Y4 = F_alpha + 3 F_beta + E4,
F_alpha =GA00(10) intercept + GA10(4) X+D0, F_beta = GA01(4) intercept + GA11(6) X+D1;
STD
140
E1 =VARE1(36), E2 =VARE2(25), E3 = VARE3(49), E4 = VARE4(64), D0 = VARD0(15), D1 =VARD1(10);
COV
E2 E1 = COVE2E1(21), E3 E2 = COVE3E2(24.5), E4 E3 = COVE4E3(39.2), E3 E1 = COVE3E1(20.58), E4 E2 = COVE4E2(19.6), E4 E1 = COVE4E1(16.46), D0 D1= CD0D1(7);
PARAMETERS RHO( 0.7) ;
COVE2E1=SQRT(VARE2)*SQRT(VARE1)*RHO;
COVE3E1=SQRT(VARE3)*SQRT(VARE1)*RHO*RHO;
COVE3E2=SQRT(VARE3)*SQRT(VARE2)*RHO;
COVE4E1=SQRT(VARE4)*SQRT(VARE1)*RHO*RHO*RHO;
COVE4E2=SQRT(VARE4)*SQRT(VARE2)*RHO*RHO;
COVE4E3=SQRT(VARE4)*SQRT(VARE3)*RHO;
BOUNDS
-1.<RHO<1.;
VAR
Y1 Y2 Y3 Y4 X;
TITLE 'ECM_ARH(1)_SEM';
RUN;
QUIT;
/***表4.4 步驟4:虛無假設 H0:MT=MS, MT=ARH(1), MS=UN之卡方差異檢定程式**************/
DATA Chisquare_Diff_Prob_ARH1_UN;
Saturated_M_UN_Chisquare=5.1700;
Saturated_M_UN_DF=1;
UnRestricted_M_ARH1_Chisquare=11.0760;
UnRestricted_M_ARH1_DF=6;
ChisquareDIFF=Unrestricted_M_ARH1_Chisquare-Saturated_M_UN_Chisquare;
DF_DIFF=Unrestricted_M_ARH1_DF-Saturated_M_UN_DF;
ChiSquareProb=1-PROBCHI(ChisquareDIFF, DF_DIFF,0); output;
RUN;
/*******************************************************************/
PROC PRINT DATA= Chisquare_Diff_Prob_ARH1_UN;
title'SCDT_ARH(1)_UN_SEM';
RUN;
/***********************************************************************************/
/***底下程式係以PROC MIXED,進行-2* Log Likelihood ratio檢定 */
/***ECM穩態性及利用SCDT 鑑定ECM */
/************************************************************************************/
/**4.2.5.1 利用概似比檢定ECM穩態性,計算非穩態為UN之-2LLu值****************/
PROC MIXED DATA=DATA_Sim_ARH1_HLM METHOD=ML noclprint MAXFUNC=1500 MAXITER=1500 noinfo covtest noitprint;
CLASS I wave;
MODEL Y=time X time*X / solution ddfm=bw notest;
141 REPEATED wave / subject=I type=UN R RCORR;
RANDOM intercept time / sub=I type=UN G GCORR /*solution*/;
PARMS (14.53, 4.58, 9.28, 32.66, 21.85, 28.92, 23.67, 26.97, 48.84, 22.31, 20.31, 31.72, 40);
TITLE 'ECM_UN_HLM';
RUN;
QUIT;
/*************************************************************************************/
/**4.2.5.1 利用概似比檢定ECM穩態性,計算穩態為TOEP之-2LLr值***************************/
PROC MIXED DATA=DATA_Sim_ARH1_HLM METHOD=ML noclprint MAXFUNC=1500 MAXITER=1500 noinfo covtest noitprint;
CLASS I wave;
MODEL Y=time X time*X / solution ddfm=bw notest;
REPEATED wave / subject=I type=TOEP R RCORR;
RANDOM intercept time / sub=i type=UN G GCORR /*solution*/;
TITLE 'ECM_TOEP_HLM';
RUN;
QUIT;
/*************************************************************************************/
/***4.2.5.1 計算-2LLr-(-2LLu)之卡方值,自由度為UN參數TOEP參數個數差=10-4=6**************/
DATA Minu_2_LRT_TOEPH_UN;
Minu_2_logLikelihood_UN=7795.6;
Minu_2_logLikelihood_TOEP=7849.0;
Minu_2_LRT=Minu_2_logLikelihood_TOEP-Minu_2_logLikelihood_UN;
DF_DIFF=6;
ChiSquareProb=1-PROBCHI(Minu_2_LRT, DF_DIFF,0); output;
RUN;
/*****************************************************************/
PROC PRINT DATA= Minu_2_LRT_TOEPH_UN;
title'Stationarity TEST_HLM';
RUN;
/*************************************************************************************/
/*****表4.4 步驟1, 計算TOEPH(1)之-2LLr配適值程式**************************************/
/*****表4.4 步驟1, 計算TOEPH(1)之-2LLr配適值程式**************************************/