title: “R Notebook for Lab 9 - Wyatt James” output: html_notebook

Problem 1

1. (a)

a = seq(0,2*pi,by=pi/20)
a

##  [1] 0.0000000 0.1570796 0.3141593 0.4712389 0.6283185 0.7853982 0.9424778
##  [8] 1.0995574 1.2566371 1.4137167 1.5707963 1.7278760 1.8849556 2.0420352
## [15] 2.1991149 2.3561945 2.5132741 2.6703538 2.8274334 2.9845130 3.1415927
## [22] 3.2986723 3.4557519 3.6128316 3.7699112 3.9269908 4.0840704 4.2411501
## [29] 4.3982297 4.5553093 4.7123890 4.8694686 5.0265482 5.1836279 5.3407075
## [36] 5.4977871 5.6548668 5.8119464 5.9690260 6.1261057 6.2831853

1.(b)

length(a)

## [1] 41

1.(c)

b = seq(0,2*pi,length = 20)
b

##  [1] 0.0000000 0.3306940 0.6613879 0.9920819 1.3227759 1.6534698 1.9841638
##  [8] 2.3148577 2.6455517 2.9762457 3.3069396 3.6376336 3.9683276 4.2990215
## [15] 4.6297155 4.9604095 5.2911034 5.6217974 5.9524913 6.2831853

1.(d)

b[10]

## [1] 2.976246

Problem 2

2.(a)

A = matrix(c(3,7,3,4,1,2,2,5,7),nrow=3,ncol=3,byrow=TRUE)
A

##      [,1] [,2] [,3]
## [1,]    3    7    3
## [2,]    4    1    2
## [3,]    2    5    7

x=matrix(c(1,1,2),nrow=1,ncol=3,byrow=TRUE)
x

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

y= matrix(c(1,2,3),nrow=3,ncol=1)
y

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

z = matrix(c(3,1,4),nrow=1,ncol=3)
z

##      [,1] [,2] [,3]
## [1,]    3    1    4

2.(b)

u = x*z
u

##      [,1] [,2] [,3]
## [1,]    3    1    8

2.(c)

w = z*z
w

##      [,1] [,2] [,3]
## [1,]    9    1   16

2.(d)

B = rbind(A[1:2,],x,A[3,])
B

##      [,1] [,2] [,3]
## [1,]    3    7    3
## [2,]    4    1    2
## [3,]    1    1    2
## [4,]    2    5    7

2.(e)

dim(B)

## [1] 4 3

2.(f)

C = cbind(A[,1:2],y,A[,3])
C

##      [,1] [,2] [,3] [,4]
## [1,]    3    7    1    3
## [2,]    4    1    2    2
## [3,]    2    5    3    7

2.(g)

dim(C)[2]

## [1] 4

2.(h)

C[3,2]

## [1] 5