2010年の分

ERG R

しばらくブログを書けなくてテンパっていたら、ただログイン状態が切れていただけでした。
というわけで、たまっていたRでやったことを更新します。

#cone and rod
x1<-c(-20:0)
x2<-c(0:20)
y1<-8*exp(x1+10)
y2<-8*exp(-x2+10)
x<-c(x1,x2)
y<-c(y1,y2)
y3<-4000000*dnorm(x,0,10)-y
plot(x,y,type='l',col='red',ylim=c(0,160000),yaxt='n')
par(new=T)
plot(x,y3,type='l',col='blue',ylim=c(0,160000),ylab='',yaxt='n')
axis(2,yaxp=c(0,160000,10))



こんな風に指定すれば、

y軸をそろえることができました！！！
一見落着★
Fくんありがとう！