• 沒有找到結果。

雖本文已提出等期間 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 j

u (即

1 j u向量之元素)表示第 j 個受測者成長模型截距及斜率和整個成長 模型截距的平均值及斜率的平均值之偏差(deviation),用以表示受測者彼此之間成長趨勢 之變化;隨機效果

r (即

jt

r 向量之元素)表示第 t 個時點及第 j 個受測者之量測值偏離本身

成長曲線之誤差。為更清楚

u 、

0 j

u 及

1 j

r 之意義,我們以第 j 個受測者成長模型為

tj

0 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 及

0j

u ,則式(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 大小,相當於固定

0j

u 之迴歸線,即為式(A.2.4)及圖 A.2.1 線

0j CD

0 0 0 1

( jt| j, jt) j ( jt)

E y u Time

=

β

+

u

+

β Time

(A.2.4) 因而CE即為線CD(

AB 往上平移 u )以 C 為圓心旋轉遞增

0 j

u ,因此

1 j

u 及

0 j

u 分別表示每

1 j 一個受測者對整體迴歸線偏差(deviance)程度,故u隨機向量反映受測者彼此間(between

106

ε

隨機誤差向量反映第

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配適值程式**************************************/