R Notebook

mydata = matrix(c(1:6, c(10,15,19,26,32,37), c(11,16,17,28,35,39)),6,3)
mydata

     [,1] [,2] [,3]
[1,]    1   10   11
[2,]    2   15   16
[3,]    3   19   17
[4,]    4   26   28
[5,]    5   32   35
[6,]    6   37   39

plot(mydata[,1], mydata[,2], type = "l", lwd = 8, xlim = c(01,10), ylim = c(0,40))

x1 = seq(-2,2,0.5)
x1

[1] -2.0 -1.5 -1.0 -0.5  0.0  0.5  1.0  1.5  2.0

y1 = x1^3 - 3*x1
y1

[1] -2.000  1.125  2.000  1.375  0.000 -1.375 -2.000 -1.125  2.000

x2 = seq(-2,2,0.01)
y2 = x2^3 - 3*x2
plot(x1,y1,type = "l")
lines(x2,y2,col = "red")

x = seq(-4,4,.01) # A fine grid between (-4,4)
y = dnorm(x,0,1)
plot(x,y,type = "l")