希望这个能对大家有用,多多交流。。。
R code:
n<-20;k<-seq(0,20);p<-0.2;
plot(k,dbinom(k,n,p),type="o",col="blue",pch=3);
par(new=TRUE)
plot(k,dnbinom(k,n,p),type="o",col="green",pch=4,xaxt="n",yaxt="n",xlab="",ylab="");
axis(4)
mtext("y2",side=4)
fig
https://blog.sciencenet.cn/blog-344534-340073.html
下一篇:
华大基因单细胞测序成果登Cell研究新亮点,引领癌症研究新时代