3+3
## [1] 6
3-3
## [1] 0
3*3
## [1] 9
3/3
## [1] 1
library(readxl) asia <- read_excel("asia.xlsx") head(asia)