Data: df_Final.csv from https://www.kaggle.com/jaimebadiola/bitcoin-tweets-and-price

Apply the R code below and interpret the output in detail.

ggplot(data = bitcoindata, aes(x = Close)) +

geom_area(stat = "bin")

glmfit <- glm(Close ~ Compound_Score + Total.Volume.of.Tweets + Count_Negatives + Count_Positives + Count_Neutrals + Sent_Negatives + Sent_Positives + Count_News + Count_Bots, data = bitcoindata, family = Gamma(link = identity))

summary(glmfit)