library(survival)
library(survminer)
## Loading required package: ggplot2
## Loading required package: ggpubr
## 
## Attaching package: 'survminer'
## The following object is masked from 'package:survival':
## 
##     myeloma
datapath="GROUP 2.csv"
data1=read.csv("GROUP 2.CSV")
data1
##          Date         Currency   CHANGE
## 1  17/04/2025  HONGKONG DOLLAR  16.7225
## 2  17/04/2025        AE DIRHAM  35.3366
## 3  17/04/2025       DAN KRONER  19.7332
## 4  17/04/2025       KES / TSHS  20.6100
## 5  17/04/2025        STG POUND 171.4347
## 6  17/04/2025       NOR KRONER  12.2553
## 7  17/04/2025      SAUDI RIYAL  34.5888
## 8  17/04/2025        IND RUPEE   1.5169
## 9  17/04/2025            CAN $  93.4186
## 10 17/04/2025        US DOLLAR 129.7912
## 11 17/04/2025             EURO 147.3519
## 12 17/04/2025 SINGAPORE DOLLAR  98.7155
## 13 17/04/2025     CHINESE YUAN  17.7595
## 14 17/04/2025        KES / RWF  10.8651
## 15 17/04/2025        SW KRONER  13.2206
## 16 17/04/2025        KES / BIF  22.9062
## 17 17/04/2025     AUSTRALIAN $  82.2487
## 18 17/04/2025       KES / USHS  28.2377
## 19 17/04/2025        JPY (100)  90.9188
## 20 17/04/2025          SA RAND   6.8795
## 21 17/04/2025          S FRANC 158.7757
## 22 16/04/2025     AUSTRALIAN $  82.4066
## 23 16/04/2025             EURO 147.2896
## 24 16/04/2025        STG POUND 172.1797
## 25 16/04/2025          SA RAND   6.8301
change=data1$CHANGE;change
##  [1]  16.7225  35.3366  19.7332  20.6100 171.4347  12.2553  34.5888   1.5169
##  [9]  93.4186 129.7912 147.3519  98.7155  17.7595  10.8651  13.2206  22.9062
## [17]  82.2487  28.2377  90.9188   6.8795 158.7757  82.4066 147.2896 172.1797
## [25]   6.8301
hist(change)

barplot(change,col='blue',xlab = 'time',ylab = 'prices', main = 'world economic outlook')

parmfrow=c(2,1)
data1
##          Date         Currency   CHANGE
## 1  17/04/2025  HONGKONG DOLLAR  16.7225
## 2  17/04/2025        AE DIRHAM  35.3366
## 3  17/04/2025       DAN KRONER  19.7332
## 4  17/04/2025       KES / TSHS  20.6100
## 5  17/04/2025        STG POUND 171.4347
## 6  17/04/2025       NOR KRONER  12.2553
## 7  17/04/2025      SAUDI RIYAL  34.5888
## 8  17/04/2025        IND RUPEE   1.5169
## 9  17/04/2025            CAN $  93.4186
## 10 17/04/2025        US DOLLAR 129.7912
## 11 17/04/2025             EURO 147.3519
## 12 17/04/2025 SINGAPORE DOLLAR  98.7155
## 13 17/04/2025     CHINESE YUAN  17.7595
## 14 17/04/2025        KES / RWF  10.8651
## 15 17/04/2025        SW KRONER  13.2206
## 16 17/04/2025        KES / BIF  22.9062
## 17 17/04/2025     AUSTRALIAN $  82.2487
## 18 17/04/2025       KES / USHS  28.2377
## 19 17/04/2025        JPY (100)  90.9188
## 20 17/04/2025          SA RAND   6.8795
## 21 17/04/2025          S FRANC 158.7757
## 22 16/04/2025     AUSTRALIAN $  82.4066
## 23 16/04/2025             EURO 147.2896
## 24 16/04/2025        STG POUND 172.1797
## 25 16/04/2025          SA RAND   6.8301
change=data1$change;change
## NULL