From 03de0ec729752392ed0638286b4177289a3a3c40 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=E5=BC=A0=E9=92=A7=E5=A4=A9?=
 <zhangjuntian@dyn-160-39-140-82.dyn.columbia.edu>
Date: Sun, 1 May 2022 18:15:39 -0400
Subject: [PATCH] plot matrix

---
 02-data.Rmd    | 4 ++--
 05-results.Rmd | 5 +++++
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/02-data.Rmd b/02-data.Rmd
index 4b7647e..ec6e7cf 100644
--- a/02-data.Rmd
+++ b/02-data.Rmd
@@ -22,12 +22,12 @@ USDT <- read.csv("data/USDT-USD.csv")
 ```{r}
 df.close<-data.frame(cbind(BTC[,1],BTC[,6],BNB[,6],ETH[,6],USDC[,6],USDT[,6]))
 colnames(df.close)<-c("Date","BTC","BNB","ETH","USDC","USDT")
-df.close
+head(df.close)
 ```
 ```{r}
 df.close1<- gather(df.close[,2:6], cryptocurrency, price)
 df.close1$price<-as.numeric(df.close1$price)
-df.close1
+head(df.close1)
 
 ```
 
diff --git a/05-results.Rmd b/05-results.Rmd
index b8d95d3..021d1a6 100644
--- a/05-results.Rmd
+++ b/05-results.Rmd
@@ -6,3 +6,8 @@ ggplot(df.close1, aes(price)) +
   theme_grey(16)
 ```
 
+```{r}
+## plot matrix for price
+plot(df.close[,2:6],pch=20, cex=0.1)
+```
+