30金币悬赏，用R画简单函数图像

急求R 指令， 画下面三个概率密度函数的图像：1. f(x)=4/3 * (1-x^3)     x属于区间(0,1)
2. f(x)=3/7 * x^2         x 属于区间 [1,2]
3. f(x)=1/10       x属于区间 [-2,8]

1. > a<-0
   
2. > b<-1
   
3. > myfunc<-function(x,a,b){
   
4. + out<-rep(0,length(x))
   
5. + out[x>a & x<b]<-(4/3)*(1-x[x>a & x<b]^3)
   
6. + return(out)
   
7. + }
   
8. > plot(x, myfunc(x,a,b), type = "l", col="blue", lwd=4)[code]

复制代码

错误于plot(x, myfunc(x, a, b), type = "l", col = "blue", lwd = 4) :
  找不到对象'x'
这是老师给的第一题的code，但运行出来有错误，哪位高人指点一下

a=0;b=1
x=seq(a,b,by=0.01)
fun1=function(x){ 4/3*(1-x^3)}
plot(x, fun1(x), type = "l", col="blue", lwd=4)
a=1;b=2
x=seq(a,b,by=0.01)
fun2=function(x){ 3/7*x^2}
plot(x, fun2(x), type = "l", col="red", lwd=4)
a=-2;b=8
x=seq(a,b,by=0.01)
fun3=function(x){ n=length(x);re=rep(0,n);for(i in 1:n){ re[i]=0.1} }
plot(x, fun3(x), type = "l", col="green", lwd=4)

冒昧的回个帖呀！
第三个是不是酱紫，
x=seq(-2,8,length=200)
y=dunif(x,min=-2,max=8)
plot(x,y,type="l",xlim=c(-4,10),ylim=c(0,0.2),lwd=2)

1. > a<-0
   
2. > b<-1
   
3. > myfunc<-function(x,a,b){
   
4. + out<-rep(0,length(x))
   
5. + out[x>a & x<b]<-(4/3)*(1-x[x>a & x<b]^3)
   
6. + return(out)
   
7. + }
   
8. > plot(x, myfunc(x,a,b), type = "l", col="blue", lwd=4)[code]

复制代码

错误于plot(x, myfunc(x, a, b), type = "l", col = "blue", lwd = 4) :
  找不到对象'x'
这是老师给的第一题的code，但运行出来有错误，哪位高人指点一下

你这个程序里面没有x变量，当然会出这样的错误

4# 楚韵荆风 那该如何定义这个X变量

或者用：
fun1=function(x){ 4/3*(1-x^3)}
fun2=function(x){ 3/7*x^2}
fun3=function(x){ n=length(x);re=rep(0,n);for(i in 1:n){ re[i]=0.1} }
final.fun=function(fun=c("fun1","fun2","fun3"),a,b,eps=0.01)
{ x=seq(a,b,by=eps)
  plot(x,fun(x), type = "l", col="red", lwd=4)
}
final.fun(fun1,0,1,eps=0.01)

见楼上~~~~~~~~

真强，上面说得都是太好了，不错支持