Showing posts with label Stock Price for Wipro. Show all posts
Showing posts with label Stock Price for Wipro. Show all posts

Monday, November 4, 2019

Stock Price for Wipro

Stock Price Wipro
Stock Price for Wipro

Stock Price for Wipro density

> head(WIPRO.NS)
           WIPRO.NS.Open WIPRO.NS.High WIPRO.NS.Low
2004-01-01       65.7000       66.7012      65.5125
2004-01-02       66.0375       66.7050      65.7000
2004-01-05       66.5738       67.1738      64.9556
2004-01-06       66.6375       67.8375      61.9125
2004-01-07       64.1250       64.5000      62.4600
2004-01-08       65.5575       65.6175      63.3750
           WIPRO.NS.Close WIPRO.NS.Volume
2004-01-01        66.0338        10677227
2004-01-02        66.0863         9809360
2004-01-05        65.2781        13878453
2004-01-06        63.4688        26944640
2004-01-07        63.5831        17350107
2004-01-08        65.0906        16428960
           WIPRO.NS.Adjusted
2004-01-01          18.34049
2004-01-02          18.35507
2004-01-05          18.13060
2004-01-06          17.62808
2004-01-07          17.65982
2004-01-08          18.07852
> tail(WIPRO.NS)
           WIPRO.NS.Open WIPRO.NS.High WIPRO.NS.Low
2019-10-24        253.90         254.2       249.20
2019-10-25        252.05         253.5       248.75
2019-10-29        253.65         255.9       252.20
2019-10-30        258.00         260.9       253.40
2019-10-31        254.00         260.0       253.80
2019-11-01        260.20         261.0       256.75
           WIPRO.NS.Close WIPRO.NS.Volume
2019-10-24         249.60         3917098
2019-10-25         253.00         3265289
2019-10-29         255.20         3191442
2019-10-30         254.75         4059545
2019-10-31         259.30         3496262
2019-11-01         258.60         2530921
           WIPRO.NS.Adjusted
2019-10-24            249.60
2019-10-25            253.00
2019-10-29            255.20
2019-10-30            254.75
2019-10-31            259.30
2019-11-01            258.60
> kurtosis(ret)
daily.returns 
     463.9072 

> chartSeries(Cl(WIPRO.NS))
> addMACD()
> addRSI()
> addBBands()
> addMomentum()

> ret <- dailyReturn(Cl(WIPRO.NS), type='log')
> par(mfrow=c(2,2))
> acf(ret, main="Return ACF");
> pacf(ret, main="Return PACF");
> acf(ret^2, main="Squared return ACF");
> pacf(ret^2, main="Squared return PACF")
> par(mfrow=c(1,1))
> m=mean(ret);s=sd(ret);
> par(mfrow=c(1,2))
> hist(ret, nclass=40, freq=FALSE, main='Return histogram');curve(dnorm(x,
+ mean=m,sd=s), from = -0.3, to = 0.2, add=TRUE, col="red")
> plot(density(ret), main='Return empirical distribution');curve(dnorm(x,
+ mean=m,sd=s), from = -0.3, to = 0.2, add=TRUE, col="red")
> par(mfrow=c(1,1))
Stock Price for Wipro acf

Stock Price for Wipro acf


Black-Scholes formula-R

 Black-Scholes formula-R > BlackScholes <- function(TypeFlag = c("c", "p"), S, X, Time, r, b, sigma) { TypeFla...