希望这个能对大家有用，多多交流。。。

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研究新亮点，引领癌症研究新时代