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')
}
然后運(yùn)行這個(gè)函數(shù),可是并不能顯示整個(gè)圖像,怎么能顯示三個(gè)函數(shù)的全部圖像呢?
謝謝了