Analyzing of Assets in 2018 as of 7-16-2018

올해 오일과 나스닥이 가장높은 이익률을 보이고 있습니다 그리고 비트코인이 가장낮은 이익률을 보였습니다.

올해 최고의 투자처는 오일과 나스닥(기술주) 입니다.

비트코인은 거의 다른자산들과 연관성이 없습니다. 그래서 기관 투자자들이 관심가지고 있는 이유입니다.

달러자산은 다른자산들과는 반대로움직입니다. 연준의 금리인상으로 유동성이 적어짐으로 다른자신들의 가치가 낮아집니다.

금은 달러와 반대로 움직이지만 주식시장과는 낮은 긍정적인 연관성이 있습니다.

주식시장은 달러와 반대로 움직이지만 오일과 금과는 낮은 긍정적인 연관성이 있습니다.

The following chart shows the cumulative returns of the assets: Bitcoin, Gold, Dollar, Oil, S&P500, and NASDAQ.

Oil and Nasdaq have been providing the highest returns while Bitcoin provides the lowest return.

Bitcoin is almost never associated with any other asset. Dollar asset moves against other assets. Gold moves against the dollar but has a low correlation with the stock market. The stock market moves against the dollar, but it has a low positive correlation with oil and gold.

The following chart shows the correlation matrix of all assets.

The Bitcoin has no correlation with other assets in 2018,

The Dollar is negatively correlated with other assets in 2018.

The Gold is negatively correlated with the dollar, but has positive correlation with SP500 in 2018.

The SP500 and NASDAQ have negative correlation with the dollar while have low positive correlation with oil and gold in 2018.

 

 

R codes to generate:

 

require(IKTrading)
require(quantmod)
require(PerformanceAnalytics)
library(fPortfolio)

getSymbols(c(
“CBBTCUSD”, #Bitcoin
“GOLDAMGBD228NLBM”, #Gold
“DTWEXB”, #Exchange Rate
“DCOILWTICO”, #WTI Oil
“SP500”, #S&P 500
“NASDAQCOM” #NASDAQ

),

from=”2015-01-01″, src=’FRED’)
Assets=na.omit(merge(CBBTCUSD,GOLDAMGBD228NLBM,DTWEXB,DCOILWTICO,SP500,NASDAQCOM))

names(Assets)<-c(‘Bitcoin’,’Gold’,’Dollar’,’Oil’,’SP500′,’NASDAQ’)
Assets_changes<-Assets/lag(Assets)-1

Assets2018=window(Assets_changes,start=as.Date(“2018-01-01”), end=as.Date(“2018-12-31”))
#Chart for Performance Summary
charts.PerformanceSummary(Assets2018, main=’Assets Changes in 2018′,
wealth.index = TRUE)
cor.distance <- cor(Assets2018)
corrplot::corrplot(cor.distance)

cor.distance

table.AnnualizedReturns(Assets2018, scale=252, Rf=0.005/252)
myColors <- c(“red”, “darkblue”,”brown”,”green”,”black”,”blue”)
plot(x = last(Assets_changes, “1 years”), xlab = “Year”, ylab = “Index”,
main = “Dollar”, col=myColors, screens = 1)
legend(x = “topright”, legend = c(‘Bitcoin’,’Gold’,’Dollar’,’Oil’,’SP500′,’NASDAQ’),
lty = 1, col=myColors)

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Google+ photo

You are commenting using your Google+ account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s