DAY 2

Assignment 1

Merging columns uses command cbind(x,y)

z1 <- c(1:9)

> dim (z1) <- c(3,3)

> z2 <- c(32,48,01,05,10,12,15,18,23)

> dim (z2) <- c(3,3)

> x <- z1[,3]

> y <- z2[,1]

> z3 <- cbind(x,y)

> z3

     x  y

[1,] 7 32

[2,] 8 48

[3,] 9  1

Assignment2: Multiply two columns in different matrix

> obj1 <- z1

> obj1

     [,1] [,2] [,3]

[1,]    1    4    7

[2,]    2    5    8

[3,]    3    6    9

> onj2 <- z2

> onj2

     [,1] [,2] [,3]

[1,]   32    5   15

[2,]   48   10   18

[3,]    1   12   23

> obj1*onj2

     [,1] [,2] [,3]

[1,]   32   20  105

[2,]   96   50  144

[3,]    3   72  207

Assignment 3: Regression

Download data from NSE index nifty with data 01/12/2012 to 31/12/2012 and do regression on it

Command 

Reg1 <- lm(depdent variable ~ independent variable, data =  z)

Reg1 <- lm(High ~ Open, data =  z)

residuals(Reg1)

Assignment 4: Generate normal distribution data + plot

Command:  

x<-seq(-10,10,by=0.1)

y<-dnorm(x, mean=0, sd=1)

plot(x,y, type="l")