# Week 2 Exercise 3

# This exercise is NOT TESTED WITH RTMC, but you should use this template to create
# the plots and SUBMIT YOUR CODE TO THE SERVER. After writing your code, the pictures
# can be plotted by pressing "Source" (the pictures will appear on the Plots tab).
# a)
plot(NULL, xlim = c(0,5), ylim = c(0,2.5))
x <- seq(0,5, by=0.01)


# b)
d1 <- c(1,2,5,10,100)
d2 <- c(1,1,2,1,100)
colpal <- c("red", "black", "blue", "green", "grey")


# c)
#fx <- df(x,d1,d2)

for (i in 1:5){
  #lines(x, fx, d1[i], d2[i], type = "l", col=colpal[i])
  lines(col=colpal[i],curve(df(x,df1=d1[i],df2=d2[i]), from=0, to=5, add=TRUE))

}



# d)