请问data有高招吗？谢谢！

题：检验孟德尔遗传定律中F2代豌豆紫花和红花比例是否符合3：1          试验中发现F2代共289株，紫花208株，百花81株。H0：p=0.75 Y~B（289，0.75）  编程如下：
data ex;k=208,m=81;n=k+m;p0=0.75;p1=1-probbnml(p0,n.k-1);p2=probbnml(p0,n,k);put p1 p2;run;
输出结果为：p1=0.8944746517 p2=0.1317366789      
α=0.05，这两个概率都大于0.5α，因此接受H0，认为紫花与百花所占比率为3：1.
以上为最简单的总体率的假设检验，不知道是不是你想要的~如果你想知道的是作两个总体率的假设检验的话，就继续发请求，不想打字了~

我是还想要两总体率的比较，还请lying-dragon多指点，帮我再写一下下面的程序！