Mini Project 24-1

Question 1

data(cars)
summary(cars)

Question 2

# install.packages("jsonlite")
library(jsonlite)
BTC <- fromJSON("https://min-api.cryptocompare.com/data/v2/histoday?fsym=BTC&tsym=USD&limit=100")

str(BTC)

List of 6
 $ Response  : chr "Success"
 $ Message   : chr ""
 $ HasWarning: logi FALSE
 $ Type      : int 100
 $ RateLimit : Named list()
 $ Data      :List of 4
  ..$ Aggregated: logi FALSE
  ..$ TimeFrom  : int 1721174400
  ..$ TimeTo    : int 1729814400
  ..$ Data      :'data.frame':  101 obs. of  9 variables:
  .. ..$ time            : int [1:101] 1721174400 1721260800 1721347200 1721433600 1721520000 1721606400 1721692800 1721779200 1721865600 1721952000 ...
  .. ..$ high            : num [1:101] 66132 65119 67468 67627 68371 ...
  .. ..$ low             : num [1:101] 63873 63235 63305 66292 65841 ...
  .. ..$ open            : num [1:101] 65088 64097 63981 66708 67164 ...
  .. ..$ volumefrom      : num [1:101] 28171 21904 33757 12566 18123 ...
  .. ..$ volumeto        : num [1:101] 1.83e+09 1.41e+09 2.21e+09 8.41e+08 1.22e+09 ...
  .. ..$ close           : num [1:101] 64097 63981 66708 67164 68177 ...
  .. ..$ conversionType  : chr [1:101] "direct" "direct" "direct" "direct" ...
  .. ..$ conversionSymbol: chr [1:101] "" "" "" "" ...

BTC_data <- BTC$Data$Data

head(BTC_data)

max_close_price <-max(BTC_data$close, na.rm = TRUE)

max_close_price

[1] 69020.94

Question 4

# install.packages("stringr")

str(BTC)

BTC_data <- BTC$Data$Data

head(BTC_data)

max_close_price <-max(BTC_data$close, na.rm = TRUE)

max_close_price