the x is .8 or -.8

eq1<-function(x){x^2}
eq2<-function(x){cos(x)}
x<-seq(-1,1,by=.01)
plot(x,eq1(x), type = "l")
lines(x,eq2(x), type = "l")