MiniProject1

##1
data(cars)
median(cars$speed)

## [1] 15

##2
library(jsonlite)
url <- "https://min-api.cryptocompare.com/data/v2/histoday?fsym=BTC&tsym=USD&limit=99"
btc <- fromJSON(url)$Data$Data
max(btc$close, na.rm = TRUE)

## [1] 123374.6

##3
library(jsonlite)
library(ggplot2)

url <- "https://min-api.cryptocompare.com/data/v2/histoday?fsym=BTC&tsym=USD&limit=99"
btc <- fromJSON(url)$Data$Data

btc$time <- as.Date(as.POSIXct(btc$time, origin="1970-01-01"))  
btc$daily_change <- btc$high - btc$low                          

summary(btc[, c("open","high","low","close","volumefrom","volumeto")])

##       open             high             low             close       
##  Min.   :101015   Min.   :106134   Min.   : 99685   Min.   :105424  
##  1st Qu.:110210   1st Qu.:112189   1st Qu.:109043   1st Qu.:110565  
##  Median :114349   Median :115685   Median :112656   Median :114349  
##  Mean   :113757   Mean   :115120   Mean   :112448   Mean   :113882  
##  3rd Qu.:117468   3rd Qu.:118536   3rd Qu.:116148   3rd Qu.:117468  
##  Max.   :123375   Max.   :124533   Max.   :118952   Max.   :123375  
##    volumefrom       volumeto        
##  Min.   : 3465   Min.   :3.726e+08  
##  1st Qu.:10858   1st Qu.:1.281e+09  
##  Median :17764   Median :2.077e+09  
##  Mean   :18264   Mean   :2.082e+09  
##  3rd Qu.:23114   3rd Qu.:2.641e+09  
##  Max.   :50123   Max.   :5.882e+09

max(btc$close)    

## [1] 123374.6

min(btc$close)    

## [1] 105423.7

mean(btc$close)   

## [1] 113881.9

btc[which.max(btc$daily_change), ]  

##          time     high      low     open volumefrom   volumeto    close
## 53 2025-08-14 124532.7 117241.1 123374.6   35491.88 4249355542 118391.6
##    conversionType conversionSymbol daily_change
## 53         direct                       7291.58

ggplot(btc, aes(x=time, y=close)) +
  geom_line(color="blue") +
  labs(title="BTC Closing Price (Last 100 Days)", x="Date", y="Close USD") +
  theme_minimal()