#HỌ VÀ TÊN: NGUYỄN MINH QUANG
#LỚP:24NH1
#MSV:2454020009
#BÀI THỰC HÀNH
##a) Thu thập - Nhập dữ liệu
dt=file.choose()
dtmh=read.csv(dt,head=TRUE)
save(dtmh,file="dtmh.rda")
attach(dtmh)
is.data.frame(dtmh)
## [1] TRUE
print(dtmh)
## STT Date DJI N225 HIS
## 1 1 7/25/2025 44901.92 41456.23 25388.35
## 2 2 7/28/2025 44837.56 40998.27 25562.13
## 3 3 7/29/2025 44632.99 40674.55 25524.45
## 4 4 7/30/2025 44461.28 40654.70 25176.93
## 5 5 7/31/2025 44130.98 41069.82 24773.33
## 6 6 8/1/2025 43588.58 40799.60 24507.81
## 7 7 8/4/2025 44173.64 40290.70 24733.45
## 8 8 8/5/2025 44111.74 40549.54 24902.53
## 9 9 8/6/2025 44193.12 40794.86 24910.63
## 10 10 8/7/2025 43968.64 41059.15 25081.63
## 11 11 8/8/2025 44175.61 41820.48 24858.82
## 12 12 8/12/2025 44458.61 42718.17 24969.68
## 13 13 8/13/2025 44922.27 43274.67 25613.67
## 14 14 8/14/2025 44911.26 42649.26 25519.32
## 15 15 8/15/2025 44946.12 43378.31 25270.07
## 16 16 8/18/2025 44911.82 43714.31 25176.85
## 17 17 8/19/2025 44922.27 43546.29 25122.90
## 18 18 8/20/2025 44938.31 42888.55 25165.94
## 19 19 8/21/2025 44785.50 42610.17 25104.61
## 20 20 8/22/2025 45631.74 42633.29 25339.14
## 21 21 8/25/2025 45282.47 42807.82 25829.91
## 22 22 8/26/2025 45418.07 42394.40 25524.92
## 23 23 8/27/2025 45565.23 42520.27 25201.76
## 24 24 8/28/2025 45636.90 42828.79 24998.82
## 25 25 8/29/2025 45544.88 42718.47 25077.62
## 26 26 9/2/2025 45295.81 42310.49 25496.55
## 27 27 9/3/2025 45271.23 41938.89 25343.43
## 28 28 9/4/2025 45621.29 42580.27 25058.51
## 29 29 9/5/2025 45400.86 43018.75 25417.98
## 30 30 9/8/2025 45514.95 43643.81 25633.91
## 31 31 9/9/2025 45711.34 43459.29 25938.13
## 32 32 9/10/2025 45490.92 43837.67 26200.26
## 33 33 9/11/2025 46108.00 44372.50 26086.32
## 34 34 9/12/2025 45834.22 44768.12 26388.16
## 35 35 9/16/2025 45757.90 44902.27 26438.51
## 36 36 9/17/2025 46018.32 44790.38 26908.39
## 37 37 9/18/2025 46142.42 45303.43 26544.85
## 38 38 9/19/2025 46315.27 45045.81 26545.10
## 39 39 9/22/2025 46381.54 45493.66 26344.14
## 40 40 9/24/2025 46121.28 45630.31 26518.65
## 41 41 9/25/2025 45947.32 45754.93 26484.68
## 42 42 9/26/2025 46247.29 45354.99 26128.20
## 43 43 9/29/2025 46316.07 45043.75 26622.88
## 44 44 9/30/2025 46397.89 44932.63 26855.56
## 45 45 10/2/2025 46519.72 44936.73 27287.12
## 46 46 10/3/2025 46758.28 45769.50 27140.92
## 47 47 10/6/2025 46694.97 47944.76 26957.77
## 48 48 10/8/2025 46601.78 47734.99 26829.46
## 49 49 10/9/2025 46358.42 48580.44 26752.59
## 50 50 10/10/2025 45479.60 48088.80 26290.32
## 51 51 10/14/2025 46270.46 46847.32 25441.35
## 52 52 10/15/2025 46253.31 47672.67 25910.60
## 53 53 10/16/2025 45952.24 48277.74 25888.51
## 54 54 10/17/2025 46190.61 47582.15 25247.10
## 55 55 10/20/2025 46706.58 49185.50 25858.83
## 56 56 10/21/2025 46924.74 49316.06 26027.55
## 57 57 10/22/2025 46590.41 49307.79 25781.77
## 58 58 10/23/2025 46734.61 48641.61 25967.98
## 59 59 10/24/2025 47207.12 49299.65 26160.15
## 60 60 10/27/2025 47544.59 50512.32 26433.70
## 61 61 10/28/2025 47706.37 50219.18 26346.14
## 62 62 10/30/2025 47522.12 51325.61 26282.69
## 63 63 10/31/2025 47562.87 52411.34 25906.65
## 64 64 11/4/2025 47085.24 51497.20 25952.40
## 65 65 11/5/2025 47311.00 50212.27 25935.41
## 66 66 11/6/2025 46912.30 50883.68 26485.90
## 67 67 11/7/2025 46987.10 50276.37 26241.83
## 68 68 11/10/2025 47368.63 50911.76 26649.06
## 69 69 11/11/2025 47927.96 50842.93 26696.41
## 70 70 11/12/2025 48254.82 51063.31 26922.73
## 71 71 11/13/2025 47457.22 51281.83 27073.03
## 72 72 11/14/2025 47147.48 50376.53 26572.46
## 73 73 11/17/2025 46590.24 50323.91 26384.28
## 74 74 11/18/2025 46091.74 48702.98 25930.03
## 75 75 11/19/2025 46138.77 48537.70 25830.65
## 76 76 11/20/2025 45752.26 49823.94 25835.57
## 77 77 11/21/2025 46245.41 48625.88 25220.02
## 78 78 11/25/2025 47112.45 48659.52 25894.55
## 79 79 11/26/2025 47427.12 49559.07 25928.08
## 80 80 11/28/2025 47716.42 50253.91 25858.89
## 81 81 12/1/2025 47289.33 49303.28 26033.26
## 82 82 12/2/2025 47474.46 49303.45 26095.05
## 83 83 12/3/2025 47882.90 49864.68 25760.73
## 84 84 12/4/2025 47850.94 51028.42 25935.90
## 85 85 12/5/2025 47954.99 50491.87 26085.08
## 86 86 12/8/2025 47739.32 50581.94 25765.36
## 87 87 12/9/2025 47560.29 50655.10 25434.23
## 88 88 12/10/2025 48057.75 50602.80 25540.78
## 89 89 12/11/2025 48704.01 50148.82 25530.51
## 90 90 12/12/2025 48458.05 50836.55 25976.79
## 91 91 12/15/2025 48416.56 50168.11 25628.88
## 92 92 12/16/2025 48114.26 49383.29 25235.41
## 93 93 12/17/2025 47885.97 49512.28 25468.78
## 94 94 12/18/2025 47951.85 49001.50 25498.13
## 95 95 12/19/2025 48134.89 49507.21 25690.53
## 96 96 12/22/2025 48362.68 50402.39 25801.77
## 97 97 12/23/2025 48442.41 50412.87 25774.14
## 98 98 12/24/2025 48731.16 50344.10 25818.93
## 99 99 12/29/2025 48461.93 50526.92 25635.23
## 100 100 12/30/2025 48367.06 50339.48 25854.60
## 101 101 1/5/2026 48977.18 51832.80 26347.24
## 102 102 1/6/2026 49462.08 52518.08 26710.45
## 103 103 1/7/2026 48996.08 51961.98 26458.95
## 104 104 1/8/2026 49266.11 51117.26 26149.31
## 105 105 1/9/2026 49504.07 51939.89 26231.79
## 106 106 1/13/2026 49191.99 53549.16 26848.47
## 107 107 1/14/2026 49149.63 54341.23 26999.81
## 108 108 1/15/2026 49442.44 54110.50 26923.62
## 109 109 1/16/2026 49359.33 53936.17 26844.96
## 110 110 1/20/2026 48488.59 52991.10 26487.51
## 111 111 1/21/2026 49077.23 52774.64 26585.06
## 112 112 1/22/2026 49384.01 53688.89 26629.96
## 113 113 1/23/2026 49098.71 53846.87 26749.51
## 114 114 1/26/2026 49412.40 52885.25 26765.52
## 115 115 1/27/2026 49003.41 53333.54 27126.95
## 116 116 1/28/2026 49015.60 53358.71 27826.91
## 117 117 1/29/2026 49071.56 53375.60 27968.09
## 118 118 1/30/2026 48892.47 53322.85 27387.11
## 119 119 2/2/2026 49407.66 52655.18 26775.57
## 120 120 2/3/2026 49240.99 54720.66 26834.77
## 121 121 2/4/2026 49501.30 54293.36 26847.32
## 122 122 2/5/2026 48908.72 53818.04 26885.24
## 123 123 2/6/2026 50115.67 54253.68 26559.95
## 124 124 2/9/2026 50135.87 56363.94 27027.16
## 125 125 2/10/2026 50188.14 57650.54 27183.15
## 126 126 2/11/2026 50121.40 57903.00 27266.38
## 127 127 2/12/2026 49451.98 57639.84 27032.54
## 128 128 2/13/2026 49500.93 56941.97 26567.12
## 129 129 2/20/2026 49625.97 56825.70 26413.35
## 130 130 2/23/2026 48804.06 56703.00 27081.91
## 131 131 2/24/2026 49174.50 57321.09 26590.32
## 132 132 2/25/2026 49482.15 58583.12 26765.72
## 133 133 2/26/2026 49499.20 58753.39 26381.02
## 134 134 2/27/2026 48977.92 58850.27 26630.54
## 135 135 3/2/2026 48904.78 58057.24 26059.85
## 136 136 3/3/2026 48501.27 56279.05 25768.08
## 137 137 3/4/2026 48739.41 54245.54 25249.48
## 138 138 3/5/2026 47954.74 55278.06 25321.34
## 139 139 3/6/2026 47501.55 55620.84 25757.29
## 140 140 3/9/2026 47740.80 52728.72 25408.46
## 141 141 3/10/2026 47706.51 54248.39 25959.90
## 142 142 3/11/2026 47417.27 55025.37 25898.76
## 143 143 3/12/2026 46677.85 54452.96 25716.76
## 144 144 3/13/2026 46558.47 53819.61 25465.60
## 145 145 3/16/2026 46946.41 53751.15 25834.02
## 146 146 3/17/2026 46993.26 53700.39 25868.54
## 147 147 3/18/2026 46225.15 55239.40 26025.42
## 148 148 3/19/2026 46021.43 53372.53 25500.58
## 149 149 3/23/2026 46208.47 51515.49 24382.47
## 150 150 3/24/2026 46124.06 52252.28 25063.71
## 151 151 3/25/2026 46429.49 53749.62 25335.95
## 152 152 3/26/2026 45960.11 53603.65 24856.43
## 153 153 3/27/2026 45166.64 53373.07 24951.88
## 154 154 3/30/2026 45216.14 51885.85 24750.79
## 155 155 3/31/2026 46341.51 51063.72 24788.14
## 156 156 4/1/2026 46565.74 53739.68 25294.03
## 157 157 4/2/2026 46504.67 52463.27 25116.53
## 158 158 4/8/2026 47909.92 56308.42 25893.02
## 159 159 4/9/2026 48185.80 55895.32 25752.40
## 160 160 4/10/2026 47916.57 56924.11 25893.54
## 161 161 4/13/2026 48218.25 56502.77 25660.85
## 162 162 4/14/2026 48535.99 57877.39 25872.32
## 163 163 4/15/2026 48463.72 58134.24 25947.32
## 164 164 4/16/2026 48578.72 59518.34 26394.26
## 165 165 4/17/2026 49447.43 58475.90 26160.33
## 166 166 4/20/2026 49442.56 58824.89 26361.07
## 167 167 4/21/2026 49149.38 59349.17 26487.48
## 168 168 4/22/2026 49490.03 59585.86 26163.24
## 169 169 4/23/2026 49310.32 59140.23 25915.20
## 170 170 4/24/2026 49230.71 59716.18 25978.07
## 171 171 4/27/2026 49167.79 60537.36 25925.65
## 172 172 4/28/2026 49141.93 59917.46 25679.78
## 173 173 4/29/2026 48861.81 59159.50 26111.84
## 174 174 4/30/2026 49652.14 59284.92 25776.53
## 175 175 5/6/2026 49910.59 61858.00 26213.78
## 176 176 5/7/2026 49596.97 62833.84 26626.28
## 177 177 5/8/2026 49609.16 62713.65 26393.71
## 178 178 5/11/2026 49704.47 62417.88 26406.84
## 179 179 5/12/2026 49760.56 62742.57 26347.91
## 180 180 5/13/2026 49693.20 63272.11 26388.44
## 181 181 5/14/2026 50063.46 62654.05 26389.04
## 182 182 5/15/2026 49526.17 61409.29 25962.73
## 183 183 5/18/2026 49686.12 60815.95 25675.18
## 184 184 5/19/2026 49363.88 60550.59 25797.85
## 185 185 5/20/2026 50009.35 59804.41 25651.12
## 186 186 5/21/2026 50285.66 61684.14 25386.52
## 187 187 5/22/2026 50579.70 63339.07 25606.03
## 188 188 5/26/2026 50461.68 64996.09 25599.45
## 189 189 5/27/2026 50644.28 64999.41 25328.23
## 190 190 5/28/2026 50668.97 64693.12 25006.16
## 191 191 5/29/2026 51032.46 66329.50 25182.39
## 192 192 6/1/2026 51078.88 66934.33 25398.18
## 193 193 6/2/2026 51307.79 66734.24 26038.32
## 194 194 6/3/2026 50687.07 68402.13 25633.21
## 195 195 6/4/2026 51561.93 67470.69 25253.40
## 196 196 6/5/2026 50866.78 66588.12 24961.95
## 197 197 6/8/2026 50786.01 64024.60 24657.06
## 198 198 6/9/2026 50872.11 65416.63 24565.90
## 199 199 6/10/2026 49918.78 64179.27 24407.96
## 200 200 6/11/2026 50848.75 64217.27 24249.29
## 201 201 6/12/2026 51202.26 66020.04 24718.10
## 202 202 6/15/2026 51671.03 69317.50 24842.67
## 203 203 6/16/2026 51999.67 69404.50 24493.95
## 204 204 6/17/2026 51492.55 69902.25 24312.16
## 205 205 6/18/2026 51564.70 71053.49 23924.81
## 206 206 6/22/2026 51712.71 72353.96 23768.52
## 207 207 6/23/2026 51666.84 69788.38 23336.28
## 208 208 6/24/2026 51848.90 69174.97 23412.18
## 209 209 6/25/2026 51920.62 72366.34 23076.91
## 210 210 6/26/2026 51876.11 69360.88 22671.86
## 211 211 6/29/2026 52182.74 69468.11 23026.68
## 212 212 6/30/2026 52319.20 70062.32 22881.02
## 213 213 7/2/2026 52900.07 68733.15 23055.03
## 214 214 7/6/2026 53055.91 69737.69 23616.32
## 215 215 7/7/2026 52925.15 68256.96 23496.89
## 216 216 7/8/2026 52348.39 66819.05 24199.46
## 217 217 7/9/2026 52487.41 67743.85 24030.18
## 218 218 7/10/2026 52637.01 68557.73 24175.12
## 219 219 7/13/2026 52498.64 67242.73 24213.72
## 220 220 7/14/2026 52508.27 67743.50 24340.73
## 221 221 7/15/2026 52658.64 68751.51 24681.10
## 222 222 7/16/2026 52552.97 66835.54 25008.60
## 223 223 7/17/2026 52146.42 64141.12 24562.24
## 224 224 7/20/2026 51839.26 64787.50 25143.05
## 225 225 7/21/2026 52224.64 66232.19 25132.29
## 226 226 7/22/2026 52218.58 66115.60 24892.66
## 227 227 7/23/2026 51711.65 66422.60 25210.81
## 228 228 7/24/2026 51947.25 64611.15 24963.23
## 229 229 7/27/2026 52210.08 64931.19 25207.18
## 230 230 7/28/2026 52747.32 62364.92 25310.85
## 231 231 7/29/2026 51594.14 61434.19 25807.92
## 232 232 7/30/2026 52208.06 61867.43 25858.88
## 233 233 7/31/2026 52485.03 64362.02 25884.43
## 234 234 8/3/2026 53178.41 63754.90 26009.40
## 235 235 8/4/2026 54085.88 63957.53 25852.92
## 236 236 8/5/2026 54349.12 66300.44 25915.82
## 237 237 8/6/2026 53885.10 65683.26 25530.28
## 238 238 8/7/2026 54036.93 65606.71 25668.03
## 239 239 8/10/2026 53975.98 66970.22 25937.49
## 240 240 8/11/2026 53791.85 67215.00 25652.82
## 241 241 8/12/2026 53770.27 67524.06 25440.17
## 242 242 8/13/2026 53839.99 68308.59 25396.51
## 243 243 8/14/2026 53732.41 68713.80 25116.85
## 244 244 8/17/2026 53459.78 69220.25 25453.23
## 245 245 8/18/2026 53343.40 67460.73 25471.15
## 246 246 8/19/2026 53463.05 65326.42 25495.07
## 247 247 8/20/2026 52759.21 66216.79 25698.49
## 248 248 8/21/2026 53277.01 66016.36 26009.46
## 249 249 8/24/2026 53417.16 65528.09 25517.33
## 250 250 8/25/2026 53577.40 65856.43 25511.10
## 251 251 8/26/2026 53463.88 66262.16 25652.97
## 252 252 8/27/2026 53569.44 66131.98 25565.74
## 253 253 8/28/2026 53559.99 66405.56 25584.79
## 254 254 8/31/2026 53185.90 66311.93 25566.99
## 255 255 9/1/2026 52766.88 66215.34 25329.73
## 256 256 9/2/2026 53061.95 64325.64 25311.21
## 257 257 9/3/2026 53686.11 64214.48 25213.31
## 258 258 9/4/2026 53414.25 65020.94 25650.87
## 259 259 9/8/2026 52786.07 65269.33 25317.18
## 260 260 9/9/2026 52380.66 65142.78 25274.96
## 261 261 9/10/2026 52064.10 65270.95 24954.47
## 262 262 9/11/2026 52573.29 64011.34 24805.63
## 263 263 9/14/2026 52421.20 63492.99 24917.60
## 264 264 9/15/2026 52093.11 63484.10 24667.24
## 265 265 9/16/2026 51461.90 63923.00 24713.78
## 266 266 9/17/2026 51778.04 64136.25 24604.29
## 267 267 9/18/2026 51682.64 65018.95 24750.78
## 268 268 9/23/2026 51511.59 66057.00 24834.12
## 269 269 9/24/2026 51349.98 65513.99 24761.13
## 270 270 9/25/2026 51828.62 66364.20 24510.09
## 271 271 9/28/2026 51481.51 65877.62 24642.51
## 272 272 9/29/2026 51349.92 66476.50 24523.57
dim(dtmh)
## [1] 272 5
names(dtmh)
## [1] "STT" "Date" "DJI" "N225" "HIS"
str(dtmh)
## 'data.frame': 272 obs. of 5 variables:
## $ STT : int 1 2 3 4 5 6 7 8 9 10 ...
## $ Date: chr "7/25/2025" "7/28/2025" "7/29/2025" "7/30/2025" ...
## $ DJI : num 44902 44838 44633 44461 44131 ...
## $ N225: num 41456 40998 40675 40655 41070 ...
## $ HIS : num 25388 25562 25524 25177 24773 ...
##b) Mã hoá các chỉ số từ Ratio Scale -> Ordinal Scale
# Mã hóa Dow Jones
MHDJI=DJI
MHDJI=replace(MHDJI,DJI<=47000,1)
MHDJI=replace(MHDJI,DJI>47000&DJI<=52000,2)
MHDJI=replace(MHDJI,DJI>52000,3)
DJIcode=data.frame(DJI,MHDJI)
DJIcode
## DJI MHDJI
## 1 44901.92 1
## 2 44837.56 1
## 3 44632.99 1
## 4 44461.28 1
## 5 44130.98 1
## 6 43588.58 1
## 7 44173.64 1
## 8 44111.74 1
## 9 44193.12 1
## 10 43968.64 1
## 11 44175.61 1
## 12 44458.61 1
## 13 44922.27 1
## 14 44911.26 1
## 15 44946.12 1
## 16 44911.82 1
## 17 44922.27 1
## 18 44938.31 1
## 19 44785.50 1
## 20 45631.74 1
## 21 45282.47 1
## 22 45418.07 1
## 23 45565.23 1
## 24 45636.90 1
## 25 45544.88 1
## 26 45295.81 1
## 27 45271.23 1
## 28 45621.29 1
## 29 45400.86 1
## 30 45514.95 1
## 31 45711.34 1
## 32 45490.92 1
## 33 46108.00 1
## 34 45834.22 1
## 35 45757.90 1
## 36 46018.32 1
## 37 46142.42 1
## 38 46315.27 1
## 39 46381.54 1
## 40 46121.28 1
## 41 45947.32 1
## 42 46247.29 1
## 43 46316.07 1
## 44 46397.89 1
## 45 46519.72 1
## 46 46758.28 1
## 47 46694.97 1
## 48 46601.78 1
## 49 46358.42 1
## 50 45479.60 1
## 51 46270.46 1
## 52 46253.31 1
## 53 45952.24 1
## 54 46190.61 1
## 55 46706.58 1
## 56 46924.74 1
## 57 46590.41 1
## 58 46734.61 1
## 59 47207.12 2
## 60 47544.59 2
## 61 47706.37 2
## 62 47522.12 2
## 63 47562.87 2
## 64 47085.24 2
## 65 47311.00 2
## 66 46912.30 1
## 67 46987.10 1
## 68 47368.63 2
## 69 47927.96 2
## 70 48254.82 2
## 71 47457.22 2
## 72 47147.48 2
## 73 46590.24 1
## 74 46091.74 1
## 75 46138.77 1
## 76 45752.26 1
## 77 46245.41 1
## 78 47112.45 2
## 79 47427.12 2
## 80 47716.42 2
## 81 47289.33 2
## 82 47474.46 2
## 83 47882.90 2
## 84 47850.94 2
## 85 47954.99 2
## 86 47739.32 2
## 87 47560.29 2
## 88 48057.75 2
## 89 48704.01 2
## 90 48458.05 2
## 91 48416.56 2
## 92 48114.26 2
## 93 47885.97 2
## 94 47951.85 2
## 95 48134.89 2
## 96 48362.68 2
## 97 48442.41 2
## 98 48731.16 2
## 99 48461.93 2
## 100 48367.06 2
## 101 48977.18 2
## 102 49462.08 2
## 103 48996.08 2
## 104 49266.11 2
## 105 49504.07 2
## 106 49191.99 2
## 107 49149.63 2
## 108 49442.44 2
## 109 49359.33 2
## 110 48488.59 2
## 111 49077.23 2
## 112 49384.01 2
## 113 49098.71 2
## 114 49412.40 2
## 115 49003.41 2
## 116 49015.60 2
## 117 49071.56 2
## 118 48892.47 2
## 119 49407.66 2
## 120 49240.99 2
## 121 49501.30 2
## 122 48908.72 2
## 123 50115.67 2
## 124 50135.87 2
## 125 50188.14 2
## 126 50121.40 2
## 127 49451.98 2
## 128 49500.93 2
## 129 49625.97 2
## 130 48804.06 2
## 131 49174.50 2
## 132 49482.15 2
## 133 49499.20 2
## 134 48977.92 2
## 135 48904.78 2
## 136 48501.27 2
## 137 48739.41 2
## 138 47954.74 2
## 139 47501.55 2
## 140 47740.80 2
## 141 47706.51 2
## 142 47417.27 2
## 143 46677.85 1
## 144 46558.47 1
## 145 46946.41 1
## 146 46993.26 1
## 147 46225.15 1
## 148 46021.43 1
## 149 46208.47 1
## 150 46124.06 1
## 151 46429.49 1
## 152 45960.11 1
## 153 45166.64 1
## 154 45216.14 1
## 155 46341.51 1
## 156 46565.74 1
## 157 46504.67 1
## 158 47909.92 2
## 159 48185.80 2
## 160 47916.57 2
## 161 48218.25 2
## 162 48535.99 2
## 163 48463.72 2
## 164 48578.72 2
## 165 49447.43 2
## 166 49442.56 2
## 167 49149.38 2
## 168 49490.03 2
## 169 49310.32 2
## 170 49230.71 2
## 171 49167.79 2
## 172 49141.93 2
## 173 48861.81 2
## 174 49652.14 2
## 175 49910.59 2
## 176 49596.97 2
## 177 49609.16 2
## 178 49704.47 2
## 179 49760.56 2
## 180 49693.20 2
## 181 50063.46 2
## 182 49526.17 2
## 183 49686.12 2
## 184 49363.88 2
## 185 50009.35 2
## 186 50285.66 2
## 187 50579.70 2
## 188 50461.68 2
## 189 50644.28 2
## 190 50668.97 2
## 191 51032.46 2
## 192 51078.88 2
## 193 51307.79 2
## 194 50687.07 2
## 195 51561.93 2
## 196 50866.78 2
## 197 50786.01 2
## 198 50872.11 2
## 199 49918.78 2
## 200 50848.75 2
## 201 51202.26 2
## 202 51671.03 2
## 203 51999.67 2
## 204 51492.55 2
## 205 51564.70 2
## 206 51712.71 2
## 207 51666.84 2
## 208 51848.90 2
## 209 51920.62 2
## 210 51876.11 2
## 211 52182.74 3
## 212 52319.20 3
## 213 52900.07 3
## 214 53055.91 3
## 215 52925.15 3
## 216 52348.39 3
## 217 52487.41 3
## 218 52637.01 3
## 219 52498.64 3
## 220 52508.27 3
## 221 52658.64 3
## 222 52552.97 3
## 223 52146.42 3
## 224 51839.26 2
## 225 52224.64 3
## 226 52218.58 3
## 227 51711.65 2
## 228 51947.25 2
## 229 52210.08 3
## 230 52747.32 3
## 231 51594.14 2
## 232 52208.06 3
## 233 52485.03 3
## 234 53178.41 3
## 235 54085.88 3
## 236 54349.12 3
## 237 53885.10 3
## 238 54036.93 3
## 239 53975.98 3
## 240 53791.85 3
## 241 53770.27 3
## 242 53839.99 3
## 243 53732.41 3
## 244 53459.78 3
## 245 53343.40 3
## 246 53463.05 3
## 247 52759.21 3
## 248 53277.01 3
## 249 53417.16 3
## 250 53577.40 3
## 251 53463.88 3
## 252 53569.44 3
## 253 53559.99 3
## 254 53185.90 3
## 255 52766.88 3
## 256 53061.95 3
## 257 53686.11 3
## 258 53414.25 3
## 259 52786.07 3
## 260 52380.66 3
## 261 52064.10 3
## 262 52573.29 3
## 263 52421.20 3
## 264 52093.11 3
## 265 51461.90 2
## 266 51778.04 2
## 267 51682.64 2
## 268 51511.59 2
## 269 51349.98 2
## 270 51828.62 2
## 271 51481.51 2
## 272 51349.92 2
# Mã hóa Nikkei 225
MHN225=N225
MHN225=replace(MHN225,N225<=50000,1)
MHN225=replace(MHN225,N225>50000&N225<=60000,2)
MHN225=replace(MHN225,N225>60000,3)
N225code=data.frame(N225,MHN225)
N225code
## N225 MHN225
## 1 41456.23 1
## 2 40998.27 1
## 3 40674.55 1
## 4 40654.70 1
## 5 41069.82 1
## 6 40799.60 1
## 7 40290.70 1
## 8 40549.54 1
## 9 40794.86 1
## 10 41059.15 1
## 11 41820.48 1
## 12 42718.17 1
## 13 43274.67 1
## 14 42649.26 1
## 15 43378.31 1
## 16 43714.31 1
## 17 43546.29 1
## 18 42888.55 1
## 19 42610.17 1
## 20 42633.29 1
## 21 42807.82 1
## 22 42394.40 1
## 23 42520.27 1
## 24 42828.79 1
## 25 42718.47 1
## 26 42310.49 1
## 27 41938.89 1
## 28 42580.27 1
## 29 43018.75 1
## 30 43643.81 1
## 31 43459.29 1
## 32 43837.67 1
## 33 44372.50 1
## 34 44768.12 1
## 35 44902.27 1
## 36 44790.38 1
## 37 45303.43 1
## 38 45045.81 1
## 39 45493.66 1
## 40 45630.31 1
## 41 45754.93 1
## 42 45354.99 1
## 43 45043.75 1
## 44 44932.63 1
## 45 44936.73 1
## 46 45769.50 1
## 47 47944.76 1
## 48 47734.99 1
## 49 48580.44 1
## 50 48088.80 1
## 51 46847.32 1
## 52 47672.67 1
## 53 48277.74 1
## 54 47582.15 1
## 55 49185.50 1
## 56 49316.06 1
## 57 49307.79 1
## 58 48641.61 1
## 59 49299.65 1
## 60 50512.32 2
## 61 50219.18 2
## 62 51325.61 2
## 63 52411.34 2
## 64 51497.20 2
## 65 50212.27 2
## 66 50883.68 2
## 67 50276.37 2
## 68 50911.76 2
## 69 50842.93 2
## 70 51063.31 2
## 71 51281.83 2
## 72 50376.53 2
## 73 50323.91 2
## 74 48702.98 1
## 75 48537.70 1
## 76 49823.94 1
## 77 48625.88 1
## 78 48659.52 1
## 79 49559.07 1
## 80 50253.91 2
## 81 49303.28 1
## 82 49303.45 1
## 83 49864.68 1
## 84 51028.42 2
## 85 50491.87 2
## 86 50581.94 2
## 87 50655.10 2
## 88 50602.80 2
## 89 50148.82 2
## 90 50836.55 2
## 91 50168.11 2
## 92 49383.29 1
## 93 49512.28 1
## 94 49001.50 1
## 95 49507.21 1
## 96 50402.39 2
## 97 50412.87 2
## 98 50344.10 2
## 99 50526.92 2
## 100 50339.48 2
## 101 51832.80 2
## 102 52518.08 2
## 103 51961.98 2
## 104 51117.26 2
## 105 51939.89 2
## 106 53549.16 2
## 107 54341.23 2
## 108 54110.50 2
## 109 53936.17 2
## 110 52991.10 2
## 111 52774.64 2
## 112 53688.89 2
## 113 53846.87 2
## 114 52885.25 2
## 115 53333.54 2
## 116 53358.71 2
## 117 53375.60 2
## 118 53322.85 2
## 119 52655.18 2
## 120 54720.66 2
## 121 54293.36 2
## 122 53818.04 2
## 123 54253.68 2
## 124 56363.94 2
## 125 57650.54 2
## 126 57903.00 2
## 127 57639.84 2
## 128 56941.97 2
## 129 56825.70 2
## 130 56703.00 2
## 131 57321.09 2
## 132 58583.12 2
## 133 58753.39 2
## 134 58850.27 2
## 135 58057.24 2
## 136 56279.05 2
## 137 54245.54 2
## 138 55278.06 2
## 139 55620.84 2
## 140 52728.72 2
## 141 54248.39 2
## 142 55025.37 2
## 143 54452.96 2
## 144 53819.61 2
## 145 53751.15 2
## 146 53700.39 2
## 147 55239.40 2
## 148 53372.53 2
## 149 51515.49 2
## 150 52252.28 2
## 151 53749.62 2
## 152 53603.65 2
## 153 53373.07 2
## 154 51885.85 2
## 155 51063.72 2
## 156 53739.68 2
## 157 52463.27 2
## 158 56308.42 2
## 159 55895.32 2
## 160 56924.11 2
## 161 56502.77 2
## 162 57877.39 2
## 163 58134.24 2
## 164 59518.34 2
## 165 58475.90 2
## 166 58824.89 2
## 167 59349.17 2
## 168 59585.86 2
## 169 59140.23 2
## 170 59716.18 2
## 171 60537.36 3
## 172 59917.46 2
## 173 59159.50 2
## 174 59284.92 2
## 175 61858.00 3
## 176 62833.84 3
## 177 62713.65 3
## 178 62417.88 3
## 179 62742.57 3
## 180 63272.11 3
## 181 62654.05 3
## 182 61409.29 3
## 183 60815.95 3
## 184 60550.59 3
## 185 59804.41 2
## 186 61684.14 3
## 187 63339.07 3
## 188 64996.09 3
## 189 64999.41 3
## 190 64693.12 3
## 191 66329.50 3
## 192 66934.33 3
## 193 66734.24 3
## 194 68402.13 3
## 195 67470.69 3
## 196 66588.12 3
## 197 64024.60 3
## 198 65416.63 3
## 199 64179.27 3
## 200 64217.27 3
## 201 66020.04 3
## 202 69317.50 3
## 203 69404.50 3
## 204 69902.25 3
## 205 71053.49 3
## 206 72353.96 3
## 207 69788.38 3
## 208 69174.97 3
## 209 72366.34 3
## 210 69360.88 3
## 211 69468.11 3
## 212 70062.32 3
## 213 68733.15 3
## 214 69737.69 3
## 215 68256.96 3
## 216 66819.05 3
## 217 67743.85 3
## 218 68557.73 3
## 219 67242.73 3
## 220 67743.50 3
## 221 68751.51 3
## 222 66835.54 3
## 223 64141.12 3
## 224 64787.50 3
## 225 66232.19 3
## 226 66115.60 3
## 227 66422.60 3
## 228 64611.15 3
## 229 64931.19 3
## 230 62364.92 3
## 231 61434.19 3
## 232 61867.43 3
## 233 64362.02 3
## 234 63754.90 3
## 235 63957.53 3
## 236 66300.44 3
## 237 65683.26 3
## 238 65606.71 3
## 239 66970.22 3
## 240 67215.00 3
## 241 67524.06 3
## 242 68308.59 3
## 243 68713.80 3
## 244 69220.25 3
## 245 67460.73 3
## 246 65326.42 3
## 247 66216.79 3
## 248 66016.36 3
## 249 65528.09 3
## 250 65856.43 3
## 251 66262.16 3
## 252 66131.98 3
## 253 66405.56 3
## 254 66311.93 3
## 255 66215.34 3
## 256 64325.64 3
## 257 64214.48 3
## 258 65020.94 3
## 259 65269.33 3
## 260 65142.78 3
## 261 65270.95 3
## 262 64011.34 3
## 263 63492.99 3
## 264 63484.10 3
## 265 63923.00 3
## 266 64136.25 3
## 267 65018.95 3
## 268 66057.00 3
## 269 65513.99 3
## 270 66364.20 3
## 271 65877.62 3
## 272 66476.50 3
# Mã hóa Hang Seng
MHHIS=HIS
MHHIS=replace(MHHIS,HIS<=24500,1)
MHHIS=replace(MHHIS,HIS>24500&HIS<=26200,2)
MHHIS=replace(MHHIS,HIS>26200,3)
HIScode=data.frame(HIS,MHHIS)
HIScode
## HIS MHHIS
## 1 25388.35 2
## 2 25562.13 2
## 3 25524.45 2
## 4 25176.93 2
## 5 24773.33 2
## 6 24507.81 2
## 7 24733.45 2
## 8 24902.53 2
## 9 24910.63 2
## 10 25081.63 2
## 11 24858.82 2
## 12 24969.68 2
## 13 25613.67 2
## 14 25519.32 2
## 15 25270.07 2
## 16 25176.85 2
## 17 25122.90 2
## 18 25165.94 2
## 19 25104.61 2
## 20 25339.14 2
## 21 25829.91 2
## 22 25524.92 2
## 23 25201.76 2
## 24 24998.82 2
## 25 25077.62 2
## 26 25496.55 2
## 27 25343.43 2
## 28 25058.51 2
## 29 25417.98 2
## 30 25633.91 2
## 31 25938.13 2
## 32 26200.26 3
## 33 26086.32 2
## 34 26388.16 3
## 35 26438.51 3
## 36 26908.39 3
## 37 26544.85 3
## 38 26545.10 3
## 39 26344.14 3
## 40 26518.65 3
## 41 26484.68 3
## 42 26128.20 2
## 43 26622.88 3
## 44 26855.56 3
## 45 27287.12 3
## 46 27140.92 3
## 47 26957.77 3
## 48 26829.46 3
## 49 26752.59 3
## 50 26290.32 3
## 51 25441.35 2
## 52 25910.60 2
## 53 25888.51 2
## 54 25247.10 2
## 55 25858.83 2
## 56 26027.55 2
## 57 25781.77 2
## 58 25967.98 2
## 59 26160.15 2
## 60 26433.70 3
## 61 26346.14 3
## 62 26282.69 3
## 63 25906.65 2
## 64 25952.40 2
## 65 25935.41 2
## 66 26485.90 3
## 67 26241.83 3
## 68 26649.06 3
## 69 26696.41 3
## 70 26922.73 3
## 71 27073.03 3
## 72 26572.46 3
## 73 26384.28 3
## 74 25930.03 2
## 75 25830.65 2
## 76 25835.57 2
## 77 25220.02 2
## 78 25894.55 2
## 79 25928.08 2
## 80 25858.89 2
## 81 26033.26 2
## 82 26095.05 2
## 83 25760.73 2
## 84 25935.90 2
## 85 26085.08 2
## 86 25765.36 2
## 87 25434.23 2
## 88 25540.78 2
## 89 25530.51 2
## 90 25976.79 2
## 91 25628.88 2
## 92 25235.41 2
## 93 25468.78 2
## 94 25498.13 2
## 95 25690.53 2
## 96 25801.77 2
## 97 25774.14 2
## 98 25818.93 2
## 99 25635.23 2
## 100 25854.60 2
## 101 26347.24 3
## 102 26710.45 3
## 103 26458.95 3
## 104 26149.31 2
## 105 26231.79 3
## 106 26848.47 3
## 107 26999.81 3
## 108 26923.62 3
## 109 26844.96 3
## 110 26487.51 3
## 111 26585.06 3
## 112 26629.96 3
## 113 26749.51 3
## 114 26765.52 3
## 115 27126.95 3
## 116 27826.91 3
## 117 27968.09 3
## 118 27387.11 3
## 119 26775.57 3
## 120 26834.77 3
## 121 26847.32 3
## 122 26885.24 3
## 123 26559.95 3
## 124 27027.16 3
## 125 27183.15 3
## 126 27266.38 3
## 127 27032.54 3
## 128 26567.12 3
## 129 26413.35 3
## 130 27081.91 3
## 131 26590.32 3
## 132 26765.72 3
## 133 26381.02 3
## 134 26630.54 3
## 135 26059.85 2
## 136 25768.08 2
## 137 25249.48 2
## 138 25321.34 2
## 139 25757.29 2
## 140 25408.46 2
## 141 25959.90 2
## 142 25898.76 2
## 143 25716.76 2
## 144 25465.60 2
## 145 25834.02 2
## 146 25868.54 2
## 147 26025.42 2
## 148 25500.58 2
## 149 24382.47 1
## 150 25063.71 2
## 151 25335.95 2
## 152 24856.43 2
## 153 24951.88 2
## 154 24750.79 2
## 155 24788.14 2
## 156 25294.03 2
## 157 25116.53 2
## 158 25893.02 2
## 159 25752.40 2
## 160 25893.54 2
## 161 25660.85 2
## 162 25872.32 2
## 163 25947.32 2
## 164 26394.26 3
## 165 26160.33 2
## 166 26361.07 3
## 167 26487.48 3
## 168 26163.24 2
## 169 25915.20 2
## 170 25978.07 2
## 171 25925.65 2
## 172 25679.78 2
## 173 26111.84 2
## 174 25776.53 2
## 175 26213.78 3
## 176 26626.28 3
## 177 26393.71 3
## 178 26406.84 3
## 179 26347.91 3
## 180 26388.44 3
## 181 26389.04 3
## 182 25962.73 2
## 183 25675.18 2
## 184 25797.85 2
## 185 25651.12 2
## 186 25386.52 2
## 187 25606.03 2
## 188 25599.45 2
## 189 25328.23 2
## 190 25006.16 2
## 191 25182.39 2
## 192 25398.18 2
## 193 26038.32 2
## 194 25633.21 2
## 195 25253.40 2
## 196 24961.95 2
## 197 24657.06 2
## 198 24565.90 2
## 199 24407.96 1
## 200 24249.29 1
## 201 24718.10 2
## 202 24842.67 2
## 203 24493.95 1
## 204 24312.16 1
## 205 23924.81 1
## 206 23768.52 1
## 207 23336.28 1
## 208 23412.18 1
## 209 23076.91 1
## 210 22671.86 1
## 211 23026.68 1
## 212 22881.02 1
## 213 23055.03 1
## 214 23616.32 1
## 215 23496.89 1
## 216 24199.46 1
## 217 24030.18 1
## 218 24175.12 1
## 219 24213.72 1
## 220 24340.73 1
## 221 24681.10 2
## 222 25008.60 2
## 223 24562.24 2
## 224 25143.05 2
## 225 25132.29 2
## 226 24892.66 2
## 227 25210.81 2
## 228 24963.23 2
## 229 25207.18 2
## 230 25310.85 2
## 231 25807.92 2
## 232 25858.88 2
## 233 25884.43 2
## 234 26009.40 2
## 235 25852.92 2
## 236 25915.82 2
## 237 25530.28 2
## 238 25668.03 2
## 239 25937.49 2
## 240 25652.82 2
## 241 25440.17 2
## 242 25396.51 2
## 243 25116.85 2
## 244 25453.23 2
## 245 25471.15 2
## 246 25495.07 2
## 247 25698.49 2
## 248 26009.46 2
## 249 25517.33 2
## 250 25511.10 2
## 251 25652.97 2
## 252 25565.74 2
## 253 25584.79 2
## 254 25566.99 2
## 255 25329.73 2
## 256 25311.21 2
## 257 25213.31 2
## 258 25650.87 2
## 259 25317.18 2
## 260 25274.96 2
## 261 24954.47 2
## 262 24805.63 2
## 263 24917.60 2
## 264 24667.24 2
## 265 24713.78 2
## 266 24604.29 2
## 267 24750.78 2
## 268 24834.12 2
## 269 24761.13 2
## 270 24510.09 2
## 271 24642.51 2
## 272 24523.57 2
##c) Thống kê các chỉ số
# Thống kê Dow Jones
summary(DJI)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 43589 46590 48978 48975 51484 54349
var(DJI)
## [1] 7438204
sd(DJI)
## [1] 2727.307
# Thống kê Nikkei 225
summary(N225)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 40291 49511 54274 55939 64424 72366
var(N225)
## [1] 75860624
sd(N225)
## [1] 8709.8
# Thống kê Hang Seng
summary(HIS)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 22672 25177 25695 25655 26234 27968
var(HIS)
## [1] 764418.7
sd(HIS)
## [1] 874.3104
library(psych)
# Thống kê Ratio Scale
TK=data.frame(DJI,N225,HIS)
describe(TK)
## vars n mean sd median trimmed mad min max
## DJI 1 272 48975.11 2727.31 48977.55 48935.48 3581.14 43588.58 54349.12
## N225 2 272 55938.77 8709.80 54273.52 56048.50 11627.52 40290.70 72366.34
## HIS 3 272 25655.21 874.31 25694.51 25694.98 776.76 22671.86 27968.09
## range skew kurtosis se
## DJI 10760.54 0.13 -1.05 165.37
## N225 32075.64 -0.01 -1.21 528.11
## HIS 5296.23 -0.54 0.86 53.01
# Thống kê Ordinal
table(MHDJI)
## MHDJI
## 1 2 3
## 80 142 50
table(MHN225)
## MHN225
## 1 2 3
## 72 102 98
table(MHHIS)
## MHHIS
## 1 2 3
## 21 180 71
## NHẬN XÉT:
##Thống kê các chỉ số dạng Ratio Scale:
#DJI có giá trị trung bình 48975.11, N225 là 55938.77,
#HIS là 25655.21.
#N225 có mức biến động tương đối lớn nhất khoảng 15.57
## Thống kê các chỉ số dạng Ordinal Scale:
#Dow Jones có 142 quan sát ở mức 2, chiếm 52.21%,là mức xuất hiện nhiều nhất.
#Nikkei 225 có 102 quan sát ở mức 2, chiếm 37.50%, và 98 quan sát ở mức 3, chiếm 36.03%.
#Hang Seng có 21 quan sát ở mức 1, chiếm 7.72%; 180 quan sát ở mức 2, chiếm 66.18% 71 quan sát ở mức 3, chiếm 26.10%..
##d) Vẽ đồ thị các chỉ số tài chính
# Đồ thị cột Dow Jones
DJI.freq=table(MHDJI)
DJI.freq
## MHDJI
## 1 2 3
## 80 142 50
barplot(DJI.freq,xlab="Mức Dow Jones",ylab="Số lượng",main="Đồ thị cột Dow Jones")
# Đồ thị cột Nikkei 225
N225.freq=table(MHN225)
N225.freq
## MHN225
## 1 2 3
## 72 102 98
barplot(N225.freq,xlab="Mức Nikkei 225",ylab="Số lượng",main="Đồ thị cột Nikkei 225")
# Đồ thị cột Hang Seng
HIS.freq=table(MHHIS)
HIS.freq
## MHHIS
## 1 2 3
## 21 180 71
barplot(HIS.freq,xlab="Mức Hang Seng",ylab="Số lượng",main="Đồ thị cột Hang Seng")
# Đồ thị tròn Dow Jones
pie(table(MHDJI),main="Đồ thị tròn Dow Jones")
# Đồ thị tròn Nikkei 225
pie(table(MHN225),main="Đồ thị tròn Nikkei 225")
# Đồ thị tròn Hang Seng
pie(table(MHHIS),main="Đồ thị tròn Hang Seng")
# Đồ thị đường dưới dạng Ratio Scale
plot(STT,DJI,type="o",xlab="Ngày thứ",ylab="Giá trị Dow Jones",pch=19,main="Giá trị Dow Jones theo ngày")
plot(STT,N225,type="o",xlab="Ngày thứ",ylab="Giá trị Nikkei 225",pch=19,main="Giá trị Nikkei 225 theo ngày")
plot(STT,HIS,type="o",xlab="Ngày thứ",ylab="Giá trị Hang Seng",pch=19,main="Giá trị Hang Seng theo ngày")
##NHẬN XÉT:
#DJI tăng khoảng 14.36%, N225 tăng khoảng 60.35%,
#trong khi HIS giảm khoảng 3.41% từ đầu kỳ đến cuối kỳ.
#N225 có mức tăng lớn nhất trong ba chỉ số.
##e) Phân tích tương quan + đồ thị tương quan các chỉ số tài chính dạng Ratio Scale
library(psych)
vars=cbind(DJI,N225,HIS)
pairs.panels(vars)
library(Hmisc)
##
## Attaching package: 'Hmisc'
## The following object is masked from 'package:psych':
##
## describe
## The following objects are masked from 'package:base':
##
## format.pval, units
result=rcorr(as.matrix(vars),type="pearson")
result$r
## DJI N225 HIS
## DJI 1.0000000 0.9282189 -0.2666960
## N225 0.9282189 1.0000000 -0.3889304
## HIS -0.2666960 -0.3889304 1.0000000
result$P
## DJI N225 HIS
## DJI NA 0.000000e+00 8.225266e-06
## N225 0.000000e+00 NA 2.961764e-11
## HIS 8.225266e-06 2.961764e-11 NA
##NHẬN XÉT:
#DJI và N225 tương quan thuận chiều rất mạnh (r = 0.9282).
#DJI và HIS tương quan nghịch chiều (r = -0.2666).
#N225 và HIS tương quan nghịch chiều (r = -0.3889).
#Cả ba mối tương quan đều có ý nghĩa thống kê (p < 0.05).
##f) Mô hình hồi quy tuyến tính đa biến
mreg=lm(DJI~N225+HIS)
summary(mreg)
##
## Call:
## lm(formula = DJI ~ N225 + HIS)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2784.21 -707.07 77.63 620.76 2603.03
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.307e+04 2.092e+03 11.028 < 2e-16 ***
## N225 3.042e-01 7.412e-03 41.039 < 2e-16 ***
## HIS 3.466e-01 7.384e-02 4.695 4.26e-06 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 979.1 on 269 degrees of freedom
## Multiple R-squared: 0.8721, Adjusted R-squared: 0.8711
## F-statistic: 916.9 on 2 and 269 DF, p-value: < 2.2e-16
anova(mreg)
## Analysis of Variance Table
##
## Response: DJI
## Df Sum Sq Mean Sq F value Pr(>F)
## N225 1 1736753455 1736753455 1811.696 < 2.2e-16 ***
## HIS 1 21127192 21127192 22.039 4.262e-06 ***
## Residuals 269 257872559 958634
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##NHẬN XÉT:
#R-squared = 0.8721, cho thấy N225 và HIS giải thích
#khoảng 87.21% sự biến thiên của DJI.
#R-squared hiệu chỉnh đạt 87.11%.
#P-value < 0.001,
#chứng tỏ mô hình hồi quy có ý nghĩa thống kê tổng thể.
#N225 có hệ số hồi quy dương 0.304188 và có ý nghĩa thống kê.
#Khi N225 tăng 1 điểm, DJI dự kiến tăng 0.304188 điểm
#nếu HIS không đổi.
##g) Các phép kiểm định
# Kiểm định đa cộng tuyến
library(car)
## Loading required package: carData
##
## Attaching package: 'car'
## The following object is masked from 'package:psych':
##
## logit
vif(mreg)
## N225 HIS
## 1.178227 1.178227
# Kiểm định tự tương quan
require(lmtest)
## Loading required package: lmtest
## Loading required package: zoo
##
## Attaching package: 'zoo'
## The following objects are masked from 'package:base':
##
## as.Date, as.Date.numeric
dwtest(mreg)
##
## Durbin-Watson test
##
## data: mreg
## DW = 0.27119, p-value < 2.2e-16
## alternative hypothesis: true autocorrelation is greater than 0
# Kiểm định các giả thuyết mô hình bằng đồ thị
op<-par(mfrow=c(2,2))
plot(mreg)
## NHẬN XÉT CÂU g
#VIF của hai biến độc lập khoảng 1.1782 < 5,
#nên không có đa cộng tuyến nghiêm trọng.
#Durbin-Watson khoảng 0.2712, cho thấy dấu hiệu
#tự tương quan dương mạnh.
#Các đồ thị chẩn đoán cần được xem xét để đánh giá
#phân phối chuẩn và tính đồng nhất phương sai của phần dư.
#Vì vậy, mô hình chưa đáp ứng đầy đủ các giả định hồi quy.