Day 2-IT Lab

                                    Day 2:IT Lab assignments

Assignment :- 1

Commands :-

z1<-c(1,2,3,4,5,6,7,8,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)

Assignment 2:-

Command:-

mul<-z1%*%z2

mul

Assignment :-3

Command:-
z6<-read.csv(file.choose(),header=T)
reg2<-lm(High~Open,data=z6)
reg2

Assignment :-4
Command :-

x<-seq(0,200)
y<-dnorm(x,mean=100,sd=20)
plot(x,y,type="l")