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

1、spss中怎樣進(jìn)行fisher精確概率法統(tǒng)計最短距離法是把兩個類之間的距離定義為一個類中的所有案例與另一類中的所有案例之間的距離最小者.缺點是它有鏈接聚合的趨勢,因為類與類之間的距離為所有距離中最短者,兩類合并以后,它與其他類之間的距離縮小了,這樣容易形成一個較大的類.所以此方法效果并不好,實際中不太用. 2.最長距離法是把類與類之間的距離定義為兩類中離得最遠(yuǎn)的兩個案例之間的距離.最長距離法克服了最短距離法鏈接聚合的缺點,兩類合并后與其他類的距離是原來兩個類中的距離最大者,加大了合并后的類與其他類的距離. 3.平均聯(lián)結(jié)法,最短最長距離法都只用兩個案例之間的距離來確定兩類之間的距離,沒有充分利用

2、所有案例的信息,平均聯(lián)結(jié)法把兩類之間的距離定義為兩類中所有案例之間距離的平均值,不再依賴于特殊點之間的距離,有把方差小的類聚到一起的趨勢,效果較好,應(yīng)用較廣泛. 4.重心法,把兩類之間的距離定義為兩類重心之間的距離,每一類的重心是該類中所有案例在各個變量的均值所代表的點.與上面三種不同的是,每合并一次都要重新計算重心.重心法也較少受到特殊點的影響.重心法要求用歐氏距離,其主要缺點是在聚類過程中,不能保證合并的類之間的距離呈單調(diào)增加的趨勢,也即本次合并的兩類之間的距離可能小于上一次合并的兩類之間的距離. 5.離差平方和法,也稱沃爾德法.思想是同一類內(nèi)案例的離差平方和應(yīng)該較小,不同類之間案例的離差

3、平方和應(yīng)該較大.求解過程是首先使每個案例自成一類,每一步使離差平方和增加最小的兩類合并為一類,直到所有的案例都?xì)w為一類為止.采用歐氏距離,它傾向于把案例數(shù)少的類聚到一起,發(fā)現(xiàn)規(guī)模和形狀大致相同的類.此方法效果較好,使用較廣.個獨(dú)立樣本率比較的2檢驗屬四格表資料2檢驗。這類資料在醫(yī)學(xué)研究中較為多見。    例如比較兩種方法治療某種疾病的有效率是否相同？治療結(jié)果如下：               有效   無效    有效率（）      

4、  試驗組   12     1        92.31        對照組    3     8        27.27    可以在SPSS中進(jìn)行統(tǒng)計分析，具體操作詳見附件中的.EXE文件。在讀取統(tǒng)計結(jié)果時，應(yīng)當(dāng)注意2檢驗的適用條件，正確選擇Pearson卡方檢驗、Yates校正卡方檢驗、Fisher精確概率法（本法不屬于2檢驗）。第三節(jié)四格表資料的Fisher確切概

5、率法前面提及，當(dāng)四格表資料中出現(xiàn)，或，或用公式(8-1)與公式(8-4)計算出值后所得的概率時，需改用四格表資料的Fisher確切概率(Fisher probabilities in 2×2 table)。該法是由R.A.Fisher(1934年)提出的，其理論依據(jù)是超幾何分布(hypergeometric distribution)，并非檢驗的范疇。但由于在實際應(yīng)用中常用它作為四格表資料假設(shè)檢驗的補(bǔ)充，故把此法列入本章。下面以例8-1介紹其基本思想與檢驗步驟。例8-1 某醫(yī)師為研究乙肝免疫球蛋白預(yù)防胎兒宮內(nèi)感染HBV的效果，將33例HBsAg陽性孕婦隨機(jī)分為預(yù)防注射組和非預(yù)防組，結(jié)

6、果見表8-3。問兩組新生兒的HBV總體感染率有無差別？表8-3兩組新生兒HBV感染率的比較組別陽性陰性合計感染率（%）預(yù)防注射組4182218.18非預(yù)防組561145.45合計9243327.27一、基本思想在四格表周邊合計數(shù)固定不變的條件下，計算表內(nèi)4個實際頻數(shù)變動時的各種組合之概率；再按檢驗假設(shè)用單側(cè)或雙側(cè)的累計概率，依據(jù)所取的檢驗水準(zhǔn)做出推斷。1各組合概率的計算在四格表周邊合計數(shù)不變的條件下，表內(nèi)4個實際頻數(shù),變動的組合數(shù)共有“周邊合計中最小數(shù)+1”個。如例7-4，表內(nèi)4個實際頻數(shù)變動的組合數(shù)共有個，依次為：(1)(2)(3)(4)(5)022121220319418928374655

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

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

9、確切概率法計算表四格表組合102292-1980.00000143212183-1650.00009412322074-1320.00197656431965-990.018447855*41856-66*0.08762728*651747-337616380871529339814110660.0912039010913011990.01289752* 為現(xiàn)有樣本。按檢驗水準(zhǔn)不拒絕H0，尚不能認(rèn)為預(yù)防注射與非預(yù)防的新生兒HBV的總體感染率不等。#include<stdio.h>#include <time.h>#include<conio.h> /*清屏*

10、/#include <stdlib.h> /*顯示目錄*/#include<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ù)

11、據(jù)函數(shù)*/void find1();void find2(); void 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;

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

13、#160; while(!ch);   system("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");  

14、60; printf("tttt選擇功能選項(輸入所選功能前的數(shù)字):");     fflush(stdin);    /*可用可不用，用于清除緩存防止下次用scanf輸入是出現(xiàn)錯誤*/     scanf("%d",&as);     switch(as)            case 1:system("cls");         

15、;     input();              break;        case 2:system("cls");              display();              break;       case 3:system("c

16、ls");              sort();              break;       case 4:system("cls");              display1();              break; 

17、      case 5:system("cls");              insert();              break;       case 6:system("cls");              del();      &

18、#160;       break;        case 7:system("cls");              modify();              break;        case 8:system("cls");          &

19、#160;   find();              break;        case 9:system("cls");              read();              break;        case 10:system("cls&qu

20、ot;);              del_file();              break;        case 11:system("cls");              save();              break;   &

21、#160;    case 12:system("exit");              exit(0);        default:system("cls");              goto start;      while(1);/*while(1)，1表示真，所以while(1)表示永遠(yuǎn)循環(huán)下去，一般在whi

22、le(1)的循環(huán)體內(nèi)都有break 或者return 跳出循環(huán)*/        /*至此功能選擇結(jié)束*/ void input()/*原始數(shù)據(jù)錄入模塊*/   int i=0;   char ch;   do              printf("tttt1.錄入學(xué)員信息n輸入第%d個學(xué)員的信息n",i+1);          printf("n輸入學(xué)生編號:"

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

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

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

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

27、  fflush(stdin);          ch=getch();          system("cls");        while(ch!='n'&&ch!='N');    system("cls"); void sort()/*排序數(shù)據(jù)函數(shù)*/     struct student temp; &#

28、160;   int i,j;     average();    for(i=1;i<now_no;i+)           for(j=1;j<=now_no-i;j+)                       if(stuj-1.ave<stuj.ave)               &#

29、160;                   temp=stuj;                   stuj=stuj-1;                   stuj-1=temp;                    

30、               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+)           f

31、or(j=1;j<=now_no-i;j+)                        if(stuj-1.score1<stuj.score1)                                      temp=stuj;     &

32、#160;                stuj=stuj-1;                      stuj-1=temp;                               void sort2()/*排序數(shù)據(jù)函數(shù)*/   &#

33、160;  struct student temp;      int i,j;      for(i=1;i<now_no;i+)               for(j=1;j<=now_no-i;j+)                        if(stuj-1.score2<stuj.score2)

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

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

36、160;       for(j=1;j<=now_no-i;j+)                            if(stuj-1.score3<stuj.score3)                                  

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

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

39、; for(i=0;i<now_no&&0;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);  

40、;     as=getch();       while(!as);   system("cls"); void display1()/*顯示數(shù)據(jù)函數(shù)*/   int i;    char as;      do            printf("ttt班級學(xué)員score1成績排序n");        printf(&q

41、uot;t編號t姓名t性別t成績1n");       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成績排序

42、n");        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);  

43、;       printf("ttt班級學(xué)員score3成績排序n");        printf("t編號t姓名t性別t成績3n");       sort3();       for(i=0;i<now_no&&0;i+)           printf("t%dt%st%st%

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

45、/    char ch;    do             printf("ntt輸入新插入學(xué)員隊信息n");         printf("n輸入學(xué)生編號:");         scanf("%d",&stunow_no.no);         fflush(stdin);    

46、;     printf("n輸入學(xué)員姓名:");         fflush(stdin);         gets(stunow_);         printf("n輸入學(xué)員性別:");         fflush(stdin);         gets(stunow_no.sex);   

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

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

49、=now_no+1;         sort();         printf("是否繼續(xù)輸入?(Y/N)");         fflush(stdin);         ch=getch();         system("cls");            while(ch!='

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

51、no=inum)                        if(i=now_no)now_no-=1;              else                                    stui=st

52、unow_no-1;                    now_no-=1;                              sort();              break;            

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

54、path,"w")=NULL)                 printf("n保存失敗!");           exit(0);           for(i=0;i<now_no;i+)                         stu

55、i.sum=stui.score1+stui.score2+stui.score3;               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);  

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

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

58、;           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);            

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

60、#160;           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=

61、0;i<now_no;i+)        if(!strcmp(,str)                 system("cls");         printf("ntt輸入新插入學(xué)員隊信息n");         printf("n輸入學(xué)生編號:");         fflush(stdin);