diff --git a/02-data.Rmd b/02-data.Rmd
index 71e6a72..c5bde96 100644
--- a/02-data.Rmd
+++ b/02-data.Rmd
@@ -24,11 +24,11 @@ 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)
+```
+