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