Rによるパス解析 - juen.ac.jp ??よるパス解析.pages.pdfrによるパス解析 ... 2 外部ファイルの読み込みについては、回帰分析のレジュメを参照 ... て、分散と共分散を算出しておく ...

  • Published on
    10-Feb-2018

  • View
    239

  • Download
    14

Transcript

  • R (2015.11.28)

    25 1

    data01 2

    Rsem lavaansem

    install.packages() sem

    / 1 2

    [] http://www.juen.ac.jp/lab/okumura/data/regpath.csv

    [] YouTube http://youtu.be/ONELpgaTcLA

    data01

  • CRAN Japan (Tokyo) [OK] R sem

    R () library() sem

    sem sem 3

    specifyModel() ->

    ()

    specifyModel() () ,, 3

    ->,b1,NA [] [] b1 b1 (NA: not available)

    ,v1,NA [] [] v1 v1

    library("sem")

    specifyModel() -> ([] -> [])

    (/)

    model01,b1,NA

    ->,b2,NA

    ->,b3,NA

    ->,b4,NA

    ,v1,NA

    ,v2,NA

    ,v3,NA

    ,v4,NA!

    / 2 4

    13

    >model01,b1,NA

    2:->,b2,NA

    3:->,b3,NA

    4:->,b4,NA

    5:,v1,NA

    6:,v2,NA

    7:,v3,NA

    8:,v4,NA

    9:

    Read8records

    >

  • v1 [] [] [] [] v4 [] model01

    model01 data01 () cov() data01254 cov01

    cov01 ()

    sem() 3

    model01 () cov01 nrow() () fit01

    summary() fit01 rsquare=T R2 fit.indices=c("GFI",) c() () stdCoef()

    cov01

  • ! 4

    5% (2(2) = 2.195, p = .334) (GFI=.958, AGFI=.791, RMSEA=.064, SRMR=.071)

    [][][] R2s=.419, .164, .232

    [][]5% () v1v3 R2 1-R2 1[] (v4)

    ModelChisquare=2.195402Df=2Pr(>Chisq)=0.3336373

    Goodness-of-fitindex=0.9581224

    Adjustedgoodness-of-fitindex=0.7906121

    RMSEAindex=0.0638033890%CI:(NA,0.4152706)

    SRMR=0.07058997

    AIC=18.1954

    BIC=-4.24235

    ()

    R-squareforEndogenousVariables

    0.41920.16350.2322!ParameterEstimates

    EstimateStdErrorzvaluePr(>|z|)

    b12.43514620.881224072.7633680.0057208266

Recommended

View more >