# 定义方程函数
> f1 <- function (x, a, b) a*x+b
# 给a,b常数赋值
> a<-5;b<-10
# 在(-10,10)的区间,精确度为0.0001位,计算方程的根
>...以图形展示方程:y = 5*x + 10
# 创建数据点
> x<-seq(-5,5,by=0.01)
> y<-f1(x,a,b)
> df<-data.frame(x,y)
# 用ggplot2来画图...以图形展示方程:y = x^2 + 5*x + 6
# 创建数据点
> x<-seq(-5,1,by=0.01)
> y<-f2(x,a,b,c)
> df<-data.frame(x,y)
# 用ggplot2...以图形展示方程:y = x^2 + 5*x + 6
# 创建数据点
> x<-seq(-5,5,by=0.01)
> y<-f3(x,a,b,c,d)
> df<-data.frame(x,y)
# 用...# 定义2个函数
> fy1<-function(x) (-3*x+4)/5
> fy2<-function(x) (-1*x+1)/2
# 定义数据
> x<-seq(-1,4,by=0.01)
>