hw07

顯示0050、0056、006205、00646的資料。

etf4.all <- readRDS("etf4_xts_all")
head(etf4.all)

## [1] 34.30 34.21 34.59 33.21 32.32 31.91

etf4.all.1 <- etf4.all[complete.cases(etf4.all), ]
head(etf4.all.1)

##       0050  0056 006205 00646
## [1,] 59.35 21.06  30.98 19.54
## [2,] 59.59 21.25  31.66 19.70
## [3,] 60.11 21.50  31.67 19.80
## [4,] 60.78 21.76  32.06 20.05
## [5,] 60.78 21.97  32.23 19.87
## [6,] 60.31 21.99  32.62 19.64

tail(etf4.all.1)

##         0050  0056 006205 00646
## [746,] 74.75 24.15  25.08 22.93
## [747,] 74.67 24.16  25.25 22.72
## [748,] 73.57 23.90  24.90 22.51
## [749,] 73.87 23.83  25.16 22.13
## [750,] 74.81 23.96  25.30 22.95
## [751,] 75.21 23.92  25.24 23.16

老師不好意思，這次的作業有點難度，嘗試了好幾次還是做不出來，因此這次只能交上面那些給您，真的很不好意思。