spss中怎樣進(jìn)行fisher精確概率法統(tǒng)計(jì)

1、spss中怎樣進(jìn)行fisher精確概率法統(tǒng)計(jì)個獨(dú)立樣本率比較的2檢驗(yàn)屬四格表資料2檢驗(yàn)。這類資料在醫(yī)學(xué)研究中較為多見。    例如比較兩種方法治療某種疾病的有效率是否相同？治療結(jié)果如下：               有效   無效    有效率（）        試驗(yàn)組   12     1        92.31      

2、  對照組    3     8        27.27    可以在SPSS中進(jìn)行統(tǒng)計(jì)分析，具體操作詳見附件中的.EXE文件。在讀取統(tǒng)計(jì)結(jié)果時，應(yīng)當(dāng)注意2檢驗(yàn)的適用條件，正確選擇Pearson卡方檢驗(yàn)、Yates校正卡方檢驗(yàn)、Fisher精確概率法（本法不屬于2檢驗(yàn)）。1”個。如例7-4，表內(nèi)4個實(shí)際頻數(shù)變動的組合數(shù)共有個，依次為：(1)(2)(3)(4)(5)0221212203194189283746556ad-bc= -198ad-bc= -165ad-bc= -132ad-

3、bc =-99ad-bc= -66(6)(7)(8)(9)(10)517616715814913473829110011ad-bc= -33ad-bc=0ad-bc=33ad-bc=66ad-bc= 99各組合的概率服從超幾何分布，其和為1。可按公式(8-9)計(jì)算(8-9)式中,等符號的意義同表7-1；！為階乘符號。2累計(jì)概率的計(jì)算單、雙側(cè)檢驗(yàn)不同。設(shè)現(xiàn)有樣本四格表中的交叉積差，其概率為，其余情況下的組合四格表的交叉積差記為，概率記為。（1）單側(cè)檢驗(yàn)若現(xiàn)有樣本四格表中，須計(jì)算滿足和條件的各種組合下四格表的累計(jì)概率。若，則計(jì)算滿足和條件的各種組合下四格表的累計(jì)概率。（2）雙側(cè)檢驗(yàn)計(jì)算滿足和條件的

4、各種組合下四格表的累計(jì)概率。若遇到或時，四格表內(nèi)各種組合的序列呈對稱分布，此時按單側(cè)檢驗(yàn)規(guī)定條件只計(jì)算單側(cè)累計(jì)概率，然后乘以2即得雙側(cè)累計(jì)概率。二、檢驗(yàn)步驟本例，宜用四格表資料的Fisher確切概率法直接計(jì)算累計(jì)概率。檢驗(yàn)步驟為：（1）：，即兩組新生兒HBV的總體感染率相等：，即兩組新生兒HBV的總體感染率不等（2）計(jì)算現(xiàn)有樣本四格表的和及各組合下四格表的，見表8-4。本例、。（3）計(jì)算滿足條件的各組合下四格表的概率。（4）計(jì)算同時滿足和條件的四格表的累計(jì)概率。本例、和滿足條件，累計(jì)概率為表8-4例8-1的 Fisher確切概率法計(jì)算表四格表組合102292-1980.000001432121

5、83-1650.00009412322074-1320.00197656431965-990.018447855*41856-66*0.08762728*651747-337616380871529339814110660.0912039010913011990.01289752* 為現(xiàn)有樣本。按檢驗(yàn)水準(zhǔn)不拒絕H0，尚不能認(rèn)為預(yù)防注射與非預(yù)防的新生兒HBV的總體感染率不等。#include<stdio.h>#include <time.h>#include<conio.h> /*清屏*/#include <stdlib.h> /*顯示目錄*/#i

6、nclude<string.h> #define MAX 80 void input(); /*輸入數(shù)據(jù)函數(shù)*/void sort();/*排序數(shù)據(jù)函數(shù)*/void sort1(); void sort2(); void sort3();  void display();/*顯示數(shù)據(jù)函數(shù)*/ void display1();void insert(); /*插入數(shù)據(jù)函數(shù)*/void del(); /*刪除數(shù)據(jù)函數(shù)*/void average(); /*平均值函數(shù)*/void find();/*查找數(shù)據(jù)函數(shù)*/void find1();void find2(); void

7、save(); /*保存數(shù)據(jù)函數(shù)*/void read(); /*讀出數(shù)據(jù)函數(shù)*/void del_file();  /*刪除文件函數(shù)*/void modify(); /*修改文件函數(shù)*/int now_no=0; struct student   int no;   char name20;   char sex4;   float score1;   float score2;   float score3;   float sort;   float ave;   float sum; ;

8、 struct student stuMAX,*p; main()/*主函數(shù)*/ int as;  char ch;  do      start: printf("nnnttt歡迎使用學(xué)生成績管理系統(tǒng)n");        printf("nnnnnntt*按任意鍵繼續(xù)*");       ch=getch();      while(!ch);   system("

9、;cls"); /*一下為功能選擇模塊*/  do       printf("ntttt1.錄入學(xué)員信息ntttt2.顯示學(xué)員總成績信息ntttt3.對總成績排序ntttt4.顯示學(xué)員單科成績排序ntttt5.添加學(xué)員信息ntttt6.刪除學(xué)員信息ntttt7.修改學(xué)員信息ntttt8.查詢學(xué)員信息ntttt9.從文件讀入學(xué)員信息ntttt10.刪除文件中學(xué)員信息ntttt11.保存學(xué)員信息ntttt12.退出n");     printf("tttt選擇功能選項(xiàng)(輸入所選功能前的數(shù)

10、字):");     fflush(stdin);    /*可用可不用，用于清除緩存防止下次用scanf輸入是出現(xiàn)錯誤*/     scanf("%d",&as);     switch(as)            case 1:system("cls");              input();   

11、           break;        case 2:system("cls");              display();              break;       case 3:system("cls");       

12、       sort();              break;       case 4:system("cls");              display1();              break;       case 5:system(&q

13、uot;cls");              insert();              break;       case 6:system("cls");              del();              break;

14、60;      case 7:system("cls");              modify();              break;        case 8:system("cls");              find();   

15、60;         break;        case 9:system("cls");              read();              break;        case 10:system("cls");        

16、0;     del_file();              break;        case 11:system("cls");              save();              break;        case 12:system(&qu

17、ot;exit");              exit(0);        default:system("cls");              goto start;      while(1);/*while(1)，1表示真，所以while(1)表示永遠(yuǎn)循環(huán)下去，一般在while(1)的循環(huán)體內(nèi)都有break 或者return 跳出循環(huán)*/

18、60;      /*至此功能選擇結(jié)束*/ void input()/*原始數(shù)據(jù)錄入模塊*/   int i=0;   char ch;   do              printf("tttt1.錄入學(xué)員信息n輸入第%d個學(xué)員的信息n",i+1);          printf("n輸入學(xué)生編號:");          

19、;scanf("%d",&stui.no);          fflush(stdin);          printf("n輸入學(xué)員姓名:");          fflush(stdin);          gets();          printf("n輸入

20、學(xué)員性別:");          fflush(stdin);          gets(stui.sex);          printf("n輸入學(xué)員成績1:");          scanf("%f",&stui.score1);          printf("n

21、輸入學(xué)員成績2:");          fflush(stdin);          scanf("%f",&stui.score2);          printf("n輸入學(xué)員成績3:");          fflush(stdin);          scanf("

22、%f",&stui.score3);          printf("nn");          i+;          now_no=i;          printf("是否繼續(xù)輸入?(Y/N)");          fflush(stdin);     &

23、#160;    ch=getch();          system("cls");        while(ch!='n'&&ch!='N');    system("cls"); void sort()/*排序數(shù)據(jù)函數(shù)*/     struct student temp;     int i,j;     av

24、erage();    for(i=1;i<now_no;i+)           for(j=1;j<=now_no-i;j+)                       if(stuj-1.ave<stuj.ave)                         

25、0;         temp=stuj;                   stuj=stuj-1;                   stuj-1=temp;                               &

26、#160;   printf("排序以完成進(jìn)入功能2可進(jìn)行顯示n");    system("pause");    system("cls"); void sort1()/*排序數(shù)據(jù)函數(shù)*/   struct student temp;   int i,j;   for(i=1;i<now_no;i+)           for(j=1;j<=now_no-i;j+)   

27、0;                    if(stuj-1.score1<stuj.score1)                                      temp=stuj;              

28、60;      stuj=stuj-1;                      stuj-1=temp;                               void sort2()/*排序數(shù)據(jù)函數(shù)*/      struct student temp;  

29、;    int i,j;      for(i=1;i<now_no;i+)               for(j=1;j<=now_no-i;j+)                        if(stuj-1.score2<stuj.score2)            

30、;                           temp=stuj;                     stuj=stuj-1;                     stuj-1=temp;         &#

31、160;                         void sort3()/*排序數(shù)據(jù)函數(shù)*/      struct student temp;      int i,j;      for(i=1;i<now_no;i+)                   for(j=1;j&l

32、t;=now_no-i;j+)                            if(stuj-1.score3<stuj.score3)                                         temp=stuj;

33、60;                     stuj=stuj-1;                       stuj-1=temp;                                   

34、0;   void display()/*顯示數(shù)據(jù)函數(shù)*/   int i;   char as;   average();      do           printf("ttt班級學(xué)員信息列表n");       printf("t編號t姓名t性別t成績1t成績2t成績3t平均值n");       for(i=0;i<now_no&&stui.n

35、ame0;i+)          printf("t%dt%st%st%.2ft%.2ft%.2ft%.2fn",stui.no,,stui.sex,stui.score1,stui.score2,stui.score3,stui.ave);       printf("tt按任意鍵返回主菜單.");       fflush(stdin);       as=getch();   &#

36、160;   while(!as);   system("cls"); void display1()/*顯示數(shù)據(jù)函數(shù)*/   int i;    char as;      do            printf("ttt班級學(xué)員score1成績排序n");        printf("t編號t姓名t性別t成績1n");  

37、0;    sort1();       for(i=0;i<now_no&&0;i+)          printf("t%dt%st%st%.2ftn",stui.no,,stui.sex,stui.score1);        printf("ttt班級學(xué)員score2成績排序n");        

38、printf("t編號t姓名t性別t成績2n");       sort2();       for(i=0;i<now_no&&0;i+)           printf("t%dt%st%st%.2ftn",stui.no,,stui.sex,stui.score2);         printf(&q

39、uot;ttt班級學(xué)員score3成績排序n");        printf("t編號t姓名t性別t成績3n");       sort3();       for(i=0;i<now_no&&0;i+)           printf("t%dt%st%st%.2ftn",stui.no,,stui.se

40、x,stui.score3);         printf("tt按任意鍵返回主菜單.");        fflush(stdin);        as=getch();        while(!as);    system("cls"); void insert()/*插入數(shù)據(jù)函數(shù)*/    char ch;    

41、do             printf("ntt輸入新插入學(xué)員隊(duì)信息n");         printf("n輸入學(xué)生編號:");         scanf("%d",&stunow_no.no);         fflush(stdin);         printf("n輸入學(xué)員姓名:

42、");         fflush(stdin);         gets(stunow_);         printf("n輸入學(xué)員性別:");         fflush(stdin);         gets(stunow_no.sex);         printf("n輸入學(xué)員成績

43、1:");         fflush(stdin);         scanf("%f",&stunow_no.score1);         printf("n輸入學(xué)員成績2:");         fflush(stdin);         scanf("%f",&stunow_no.score2)

44、;         printf("n輸入學(xué)員成績3:");         fflush(stdin);         scanf("%f",&stunow_no.score3);         printf("nn");         now_no=now_no+1;        

45、; sort();         printf("是否繼續(xù)輸入?(Y/N)");         fflush(stdin);         ch=getch();         system("cls");            while(ch!='n'&&ch!='N'); vo

46、id del()/*刪除數(shù)據(jù)函數(shù)*/     int inum,i;     printf("輸入要刪除學(xué)員的編號:");     fflush(stdin);     scanf("%d",&inum);     for(i=0;i<now_no;i+)               if(stui.no=inum)        

47、               if(i=now_no)now_no-=1;              else                                    stui=stunow_no-1;        

48、;            now_no-=1;                              sort();              break;                       &#

49、160;system("cls"); void save()/*保存數(shù)據(jù)函數(shù)*/     FILE *fp;     int i;     char filepath20;     printf("輸入要保存的文件路徑:");     fflush(stdin);     gets(filepath);     if(fp=fopen(filepath,"w")=NULL)   

50、0;             printf("n保存失敗!");           exit(0);           for(i=0;i<now_no;i+)                         stui.sum=stui.score1+stui.score2+stui.sc

51、ore3;               stui.ave=stui.sum/3;               fprintf(fp,"t%dt%st%st%.2ft%.2ft%.2ft%.2fn",stui.no,,stui.sex,stui.score1,stui.score2,stui.score3,stui.ave);              

52、; fclose(fp);     printf("學(xué)生信息已保存在%s中!n",filepath);     system("pause");     system("cls"); void find()/*查詢函數(shù)*/     int i;     char str20,as;     do               printf("

53、;輸入要查詢的學(xué)生姓名:");         fflush(stdin);         gets(str);         for(i=0;i<now_no;i+)         if(!strcmp(,str)                          

54、printf("t編號t姓名t性別t成績1t成績2t成績3t平均值n");               printf("t%dt%st%st%.2ft%.2ft%.2ft%.2fn",stui.no,,stui.sex,stui.score1,stui.score2,stui.score3,stui.ave);                     printf(&q

55、uot;tt按任意鍵返回主菜單.");         fflush(stdin);         as=getch();           while(!as);     system("cls"); void average()/*求平均數(shù)*/   int i;   for(i=0;i<now_no;i+)          

56、60; stui.sum=stui.score1+stui.score2+stui.score3;         stui.ave=stui.sum/3;     void modify()/*修改數(shù)據(jù)函數(shù)*/   int i;   char str20;   printf("輸入要修改的學(xué)生姓名:");   fflush(stdin);   gets(str);   for(i=0;i<now_no;i+)      

57、;  if(!strcmp(,str)                 system("cls");         printf("ntt輸入新插入學(xué)員隊(duì)信息n");         printf("n輸入學(xué)生編號:");         fflush(stdin);         scanf("%d",&stui.no);         printf("n輸入學(xué)員性別:");