## Stock Price TSLA

[1] "TSLA"

> chartSeries(Cl(TSLA))

> addRSI()

> addMomentum()

> rettsla <- dailyReturn(Cl(TSLA), type='log')

> par(mfrow=c(2,2))

> acf(rettsla, main="Tsla Return ACF");

> pacf(rettsla, main="Tsla Return PACF");

> acf(rettsla^2, main="Tsla Squared return ACF");

> pacf(rettsla^2, main="Tsla Squared return PACF")

> par(mfrow=c(1,1))

> m=mean(ret);s=sd(ret);

> kurtosis(rettsla)

[1] 5.814273

attr(,"method")

[1] "excess"

> plot(density(rettsla), main='Tsla Return EDF - upper tail', xlim = c(0.1, 0.2),

+ ylim=c(0,2));

> curve(dnorm(x, mean=m,sd=s), from = -0.3, to = 0.2, add=TRUE, col="red")

## No comments:

## Post a Comment