R Final file for submission

#1.

A<-c(1:3)
B<-c(4,5,6)
C<-7:9

A

## [1] 1 2 3

B

## [1] 4 5 6

C

## [1] 7 8 9

Mat<-matrix(data=c(A,B,C),nrow=3,ncol=3,byrow=FALSE)
Mat

##      [,1] [,2] [,3]
## [1,]    1    4    7
## [2,]    2    5    8
## [3,]    3    6    9

#2.

Vec<-1:12
B<-matrix(data=Vec,nrow=4,ncol=3,byrow=TRUE)
B

##      [,1] [,2] [,3]
## [1,]    1    2    3
## [2,]    4    5    6
## [3,]    7    8    9
## [4,]   10   11   12

tB<-t(B)

test<-tB*tB

subB<-B[1:3,1:3]
subB

##      [,1] [,2] [,3]
## [1,]    1    2    3
## [2,]    4    5    6
## [3,]    7    8    9

#3.

my.list<-list("Stud.id"=c(1,2,4,5),"Stud.name"="Ali","Stud.marks"=c(56,65,68,78) )
my.list

## $Stud.id
## [1] 1 2 4 5
## 
## $Stud.name
## [1] "Ali"
## 
## $Stud.marks
## [1] 56 65 68 78

#4.

my.list[1]

## $Stud.id
## [1] 1 2 4 5

my.list[[1]]

## [1] 1 2 4 5

#5.

my.list[["Stud.Age"]]<-17
my.list[["Stud.Gender"]]<-"Male"


#6.

names(my.list)

## [1] "Stud.id"     "Stud.name"   "Stud.marks"  "Stud.Age"    "Stud.Gender"

names(my.list)<-c("Stud.ID","Stud.Name","Stud.Marks","Stud.Age","Stud.Gender")
my.list

## $Stud.ID
## [1] 1 2 4 5
## 
## $Stud.Name
## [1] "Ali"
## 
## $Stud.Marks
## [1] 56 65 68 78
## 
## $Stud.Age
## [1] 17
## 
## $Stud.Gender
## [1] "Male"

#7.

my.list[-4]

## $Stud.ID
## [1] 1 2 4 5
## 
## $Stud.Name
## [1] "Ali"
## 
## $Stud.Marks
## [1] 56 65 68 78
## 
## $Stud.Gender
## [1] "Male"