# HW 3 Q 6 sim_basicstat.R JLCY, 19 Dec 2013

############################################################ 

# ***calculate basic statistics****************

{

    k = isim

    armean[k] = mean(simdismon)
    armax[k] = max(simdismon)
    armin[k] = min(simdismon)
    arvar[k] = var(simdismon)
    arskw[k] = skew(simdismon)

    # lag-1 correlation
    arcor[k] = cor(simdismon[1:100], simdismon[2:101])

    armeans[k] = mean(simdismons)
    armaxs[k] = max(simdismons)
    armins[k] = min(simdismons)
    arvars[k] = var(simdismons)
    arskws[k] = skew(simdismons)

    # lag-1 correlation
    arcors[k] = cor(simdismons[1:100], simdismons[2:101])

}

## Error: 找不到物件 'isim'