Prep_programming_assignment4

library(readxl)
HSI_LIST <- read_excel("C:/Users/AAA/Desktop/Assignments/prep programming/Assignment 4/HSI_LIST.xlsx")
HSI_ACTIVITY_LIST <- read_excel("C:/Users/AAA/Desktop/Assignments/prep programming/Assignment 4/HSI_ACTIVITY_LIST.xlsx")
HSI_ACTIVITY_LIST <- HSI_ACTIVITY_LIST[order(HSI_ACTIVITY_LIST$Date, decreasing = T),]
for (i in 1:length(HSI_ACTIVITY_LIST$Date)){
        if (HSI_ACTIVITY_LIST$Change[i] == "Leaver"){
                HSI_LIST <- rbind(HSI_LIST, HSI_ACTIVITY_LIST$`Constituent RIC`[i])
        }else{
                HSI_LIST <- HSI_LIST[-which(HSI_ACTIVITY_LIST$`Constituent RIC`[i] == HSI_LIST$HSI_ITEM),]
        }
}
HSI_LIST <- as.matrix(HSI_LIST)
head(HSI_LIST, length(HSI_LIST))

##       HSI_ITEM     
##  [1,] "0728.HK"    
##  [2,] "0020.HK"    
##  [3,] "2318.HK"    
##  [4,] "1038.HK"    
##  [5,] "0941.HK"    
##  [6,] "0004.HK"    
##  [7,] "0688.HK"    
##  [8,] "0322.HK"    
##  [9,] "0551.HK"    
## [10,] "0135.HK"    
## [11,] "2007.HK"    
## [12,] "0016.HK"    
## [13,] "0813.HK"    
## [14,] "2628.HK"    
## [15,] "2018.HK"    
## [16,] "0003.HK"    
## [17,] "1928.HK"    
## [18,] "0012.HK"    
## [19,] "0005.HK"    
## [20,] "0291.HK"    
## [21,] "0017.HK"    
## [22,] "1988.HK"    
## [23,] "1109.HK"    
## [24,] "0066.HK"    
## [25,] "0144.HK"    
## [26,] "1088.HK"    
## [27,] "0027.HK"    
## [28,] "0151.HK"    
## [29,] "1169.HK"    
## [30,] "1299.HK"    
## [31,] "0293.HK"    
## [32,] "1114.HK"    
## [33,] "0006.HK"    
## [34,] "0656.HK"    
## [35,] "0836.HK"    
## [36,] "0002.HK"    
## [37,] "2601.HK"    
## [38,] "0083.HK"    
## [39,] "2282.HK"    
## [40,] "0883.HK"    
## [41,] "1929.HK"    
## [42,] "1398.HK"    
## [43,] "0992.HK"    
## [44,] "0023.HK"    
## [45,] "0939.HK"    
## [46,] "1288.HK"    
## [47,] "3311.HK"    
## [48,] "0019.HK"    
## [49,] "0857.HK"    
## [50,] "0270.HK"    
## [51,] "1193.HK"    
## [52,] "0762.HK"    
## [53,] "0069.HK"    
## [54,] "3968.HK"    
## [55,] "0392.HK"    
## [56,] "0386.HK"    
## [57,] "3328.HK"    
## [58,] "0880.HK"    
## [59,] "0388.HK"    
## [60,] "0267.HK"    
## [61,] "1972.HK"    
## [62,] "0998.HK"    
## [63,] "1128.HK"    
## [64,] "1044.HK"    
## [65,] "0659.HK"    
## [66,] "6808.HK"    
## [67,] "2688.HK"    
## [68,] "0683.HK"    
## [69,] "3988.HK"    
## [70,] "2388.HK"    
## [71,] "3333.HK"    
## [72,] "0700.HK"    
## [73,] "0960.HK"    
## [74,] "0011.HK"    
## [75,] "0101.HK"    
## [76,] "2319.HK"    
## [77,] "0384.HK"    
## [78,] "1359.HK"    
## [79,] "0494.HK"    
## [80,] "1880.HK^G17"
## [81,] "1313.HK"    
## [82,] "1619.HK"    
## [83,] "0013.HK^F15"
## [84,] "0001.HK^C15"