mixnormal<-function(){
x<-seq(from=-10,to=10,by=0.01)
y<-1/sqrt(10*pi)*exp(-x*x/10)
z<-1/sqrt(2*pi)*exp(-x*x/2)
w<-0.25*y+0.75*z
plot(x,y,col='red',type='l')
lines(x,z,col='blue')
lines(x,w,col='green')
}
然后运行这个函数,可是并不能显示整个图像,怎么能显示三个函数的全部图像呢?
谢谢了


雷达卡



京公网安备 11010802022788号







