# Create two lists.

list1 <- list(1,2,3)

list2 <- list("Sun","Mon","Tue")

# Merge the two lists.

merged.list <- c(list1,list2)

# Print the merged list.

print(merged.list)

[[1]]

[1] 1

[[2]]

[1] 2

[[3]]

[1] 3

[[4]]

[1] "Sun"

[[5]]

[1] "Mon"

[[6]]

[1] "Tue"

# Create lists.

list1 <- list(1:5)

print(list1)

list2 <-list(10:14)

print(list2)

# Convert the lists to vectors.

v1 <- unlist(list1)

v2 <- unlist(list2)

print(v1)

print(v2)

# Now add the vectors

result <- v1+v2

print(result)

[[1]]

[1] 1 2 3 4 5

[[1]]

[1] 10 11 12 13 14

[1] 1 2 3 4 5

[1] 10 11 12 13 14

[1] 11 13 15 17 19

dim()

dim()

 z <- 1:18

dim(z) <- c(2,3,3)

z

array()

x <- 1:24

array(x,c(3,6))

aperm()

 x <- 1:24

A <- array(x,c(3,6))

aperm(A)

rownames(c())

colnames(c())

t()

A %*% B 

solve()

 AX=b 

dat1 <- c(3,4,5,2,1,3,6,5,4)
matrix1 <- matrix(dat1, nrow = 3, ncol = 3, byrow = TRUE)
matrix1

     [,1] [,2] [,3]
[1,]    3    4    5
[2,]    2    1    3
[3,]    6    5    4


library(MASS)
ginv(matrix1)

           [,1]       [,2]        [,3]
[1,] -0.4074074  0.3333333  0.25925926
[2,]  0.3703704 -0.6666667  0.03703704
[3,] 0.1481481 0.3333333 -0.18518519

eigen(matrix1)

$values

[1] 11.238947 -2.088872 -1.150075

$vectors

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

[1,] -0.6017346 -0.3458537 -0.4307244

[2,] -0.3305706 -0.5288292  0.8445517

[3,] -0.7270754  0.7750644 -0.3181336

> A <- matrix(c(2,3,-2,1,2,2),3,2)
> A

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



> is.matrix(A)

[1] TRUE

> is.vector(A)

[1] FALSE

is.matrix( ) 
is.vector( ) 

> A = matrix( 
+   c(2, 4, 3, 1, 5, 7), # the data elements 
+   nrow=2,              # number of rows 
+   ncol=3,              # number of columns 
+   byrow = TRUE)        # fill matrix by rows 
 
> A                      # print the matrix 
     [,1] [,2] [,3] 
[1,]    2    4    3 
[2,]    1    5    7 
> A[2, 3]      # element at 2nd row, 3rd column 
[1] 7 
> A[2, ]       # the 2nd row 
[1] 1 5 7 
> A[ ,3]       # the 3rd column 
[1] 3 7 
> A[ ,c(1,3)]  # the 1st and 3rd columns 
     [,1] [,2] 
[1,]    2    3 
[2,]    1    7 
> dimnames(A) = list( 
+   c("row1", "row2"),         # row names 
+   c("col1", "col2", "col3")) # column names 
 
> A                 # print A 
     col1 col2 col3 
row1    2    4    3 
row2    1    5    7 
 
> A["row2", "col3"] # element at 2nd row, 3rd column 
[1] 7 

> x = cbind(c(10, 20), c("[]", "[]"), c("[[1,2]]","[[1,3]]"))

> x

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

[1,] "10" "[]" "[[1,2]]"

[2,] "20" "[]" "[[1,3]]"