#HỌ VÀ TÊN: NGUYỄN MINH QUANG
#LỚP:24NH1
#MSV:2454020009
#BÀI KIỂM TRA CUỐI KÌ
##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
DJITB=DJI
DJITB=replace(DJITB,DJI<=47000,1)
DJITB=replace(DJITB,DJI>47000&DJI<=52000,2)
DJITB=replace(DJITB,DJI>52000,3)
# Mã hóa Nikkei 225
N225TB=N225
N225TB=replace(N225TB,N225<=50000,1)
N225TB=replace(N225TB,N225>50000&N225<=60000,2)
N225TB=replace(N225TB,N225>60000,3)
# Mã hóa Hang Seng
HISTB=HIS
HISTB=replace(HISTB,HIS<=24500,1)
HISTB=replace(HISTB,HIS>24500&HIS<=26200,2)
HISTB=replace(HISTB,HIS>26200,3)
##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
# Thống kê Ratio Scale
library(psych)
TKRS=data.frame(DJI,N225,HIS)
describe(TKRS)
## 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(DJITB)
## DJITB
## 1 2 3
## 80 142 50
table(DJITB)/sum(table(DJITB))
## DJITB
## 1 2 3
## 0.2941176 0.5220588 0.1838235
table(N225TB)
## N225TB
## 1 2 3
## 72 102 98
table(N225TB)/sum(table(N225TB))
## N225TB
## 1 2 3
## 0.2647059 0.3750000 0.3602941
table(HISTB)
## HISTB
## 1 2 3
## 21 180 71
table(HISTB)/sum(table(HISTB))
## HISTB
## 1 2 3
## 0.07720588 0.66176471 0.26102941
## 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.20%,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%,là mức xuất hiện nhiều nhất.
#Hang Seng có 180 quan sát ở mức 2, chiếm 66.18%.,là mức xuất hiện nhiều nhất.
##d) Vẽ đồ thị các chỉ số tài chính
# Mã Hóa các biến
# Đồ thị cột Dow Jones
barplot(table(DJITB),col=c("yellow","blue","green"),xlab=" Mức Giá trị Dow Jones",ylab="Số lượng",main="Đồ thị cột Dow Jones")
# Đồ thị cột Nikkei 225
barplot(table(N225TB),col=c("yellow","blue","green"),xlab="Mức Giá trị Nikkei 225",ylab="Số lượng",main="Đồ thị cột Nikkei 225")
# Đồ thị cột Hang Seng
barplot(table(HISTB),col=c("yellow","blue","green"),xlab="Mức Giá trị Hang Seng",ylab="Số lượng",main="Đồ thị cột Hang Seng")
# Đồ thị tròn Dow Jones
pie(table(DJITB),col=c("lightgreen","lightblue","pink"),main="Đồ thị tròn Dow Jones",)
# Đồ thị tròn Nikkei 225
pie(table(N225TB),col=c("lightgreen","lightblue","pink"),main="Đồ thị tròn Nikkei 225")
# Đồ thị tròn Hang Seng
pie(table(HISTB),col=c("lightgreen","lightblue","pink"),main="Đồ thị tròn Hang Seng")
# Đồ thị đường dưới dạng Ratio Scale
plot(DJI,type="o",xlab="Số phiên giao dịch",ylab="Giá trị Dow Jones",pch=19,main="BIểu đồ đường Dow Jones ")
plot(N225,type="o",xlab="Số phiên giao dịch",ylab="Giá trị Nikkei 225",pch=19,main="BIểu đồ đường Nikkei 225 ")
plot(HIS,type="o",xlab="Số phiên giao dịch",ylab="Giá trị Hang Seng",pch=19,main="BIểu đồ đường Hang Seng ")
##NHẬN XÉT:
# Biểu đồ cột và biểu đồ tròn cho thấy DJI tập trung chủ yếu
# ở mức 2; N225 có số quan sát ở mức 2 và mức 3 gần bằng nhau.
# HIS tập trung chủ yếu ở mức 2,
# Biểu đồ đường cho thấy DJI và N225 có xu hướng tăng,IS biến động qua các ngày
# khi so sánh giá trị đầu kỳ và cuối kỳ.
##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.