####E:/Network/CGI_webpage/data//Cycle.txt E:/Network/CGI_webpage/data//GO_data.txt E:/Network/CGI_webpage/out//cellcycleoutput.txt E:/Network/CGI_webpage/data//MIPS_Kernel_L070.txt E:/Network/CGI_webpage/data//cycle_A_I_G.txt E:/Network/CGI_webpage/data//informativeGO.txt 10 200 5 1 1 2 E:/Network/CGI_webpage/data//cycle_A_I_G.txt
rlt<-matrix(nrow=1100,ncol=5)
rlt<-t(rlt)
row.names(rlt)<-c("GOCLASS","Gene","p-Value by exp","p-Value by exp + ppi","total members")
rlt<-t(rlt)
mytot<-1
all<-1:3203
rlt[mytot,1]<-"GO:0006414"
rlt[mytot,2]<-"YAL003W"
ori<-c(3203,3191,3201,3198,1321,2974,3164,3178,3090,3181,745,2389)
ppi<-c(3203,2896,3101,3197,206,3202,3200,3100,3156,3199,869,3201)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006457"
rlt[mytot,2]<-"YAL005C"
ori<-c(3186,3188,1495,3201,3139,3117,1304,2772,3202,3200,3199,17,1743,261,1200,2618,1463,265,776,3174,2792,3203,1948,3198,3185,1861,3169,3197,2764,2374,690,2960,3193,2852,3196)
ppi<-c(3200,2914,3118,3199,2896,3085,2299,2675,3195,3194,3030,128,2694,717,389,2151,832,1632,1012,3101,3181,3188,1856,3185,3191,1061,3174,3034,2639,1994,87,2907,3202,3095,3196)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030437"
rlt[mytot,2]<-"YAL009W"
ori<-c(2846,488,204,28,175,115,1569,1796,1673,2556,1411,2316,1704,1614,1242,1337,3108,1963,96,625,3039,2320,2110,1878,2311,2967,690,1733,1134,2994)
ppi<-c(2376,395,2248,1955,68,805,766,3061,1561,2096,2682,1456,2157,1673,950,1156,3203,1354,793,2002,3114,2134,1722,1362,1794,3142,2065,1617,2133,2873)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007015"
rlt[mytot,2]<-"YAL016W"
ori<-c(2982,3202,2481,1805,1794,2665,2700,1745,2207,1183,2252,2956,2576,726,2471,1994,2320,1409,1702,783,1371,1695,3146,215,2441,2798,3163,2712,2499,2097,2369,3186,2163,991,2604,1884,730,2641,2953,2337,2538)
ppi<-c(2648,2482,2111,1212,1731,2763,2649,1323,2234,693,2519,2669,2505,2421,2057,2826,2415,2353,1286,3121,2269,1828,3103,1977,2623,2798,2955,2536,1782,1614,2040,2657,2597,1014,2384,1552,2446,2449,2700,2050,2624)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YAL017W"
ori<-c(2683,3177,2059,1167,840,1929,175,748,563,1689,1143,2092,2492,1597,1208,2045,2053,935,736,766,2794,1574,1373,758,1438,2123,1586,1687,1735,377,2198,1998,1050,1799,1581,1668,3024,3183,2732,85,2187,2826,2202,1711,2738,355,2373,3068,1060,2699,3081,1805,2525,1598,2238,479,507,688,1315,1944,414,2148,3180,2716,800,2212)
ppi<-c(2664,3179,1010,1721,388,2073,2023,892,411,2264,2161,2446,2220,1599,1576,1471,2440,1499,383,1936,2644,2583,1239,884,1332,2316,1674,1624,2230,1217,2124,2509,386,1722,1415,1949,2939,3188,2482,50,2550,2006,3001,1093,2301,821,1902,2384,2576,2539,3146,1912,2060,1958,2427,1314,1410,237,824,1962,1116,2121,2992,2618,1384,1874)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030490"
rlt[mytot,2]<-"YAL026C"
ori<-c(2010,1747,1319,289,1236,1830,1231,1634,2693,1356,1294,1867,1011,1374,2374,1069,1321,2742,1877,655,2079,789,1544)
ppi<-c(2254,1047,1258,136,2139,1251,918,422,2776,1261,650,2090,973,1329,2067,1372,935,2426,699,431,1081,180,932)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000082"
rlt[mytot,2]<-"YAL040C"
ori<-c(2378,1631,2826,3016,1912,1818,431,2664,807,3053,733,264,864,1327,520,2606,2737,2911,778,3014,1004,128,1205)
ppi<-c(3132,877,2883,3069,1659,2898,2623,2744,905,3087,361,1497,1354,1955,58,2723,2768,3119,457,2762,2150,964,2955)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007124"
rlt[mytot,2]<-"YAL041W"
ori<-c(1865,283,1569,3077,57,396,170,2009,2826,744,2757,2923,1186,469,1308,765,2810,864,2721,1149,1925,1223,47,3000,2308,999,1279,1709,392,2327,1118)
ppi<-c(2038,155,1103,3075,16,1762,2430,2044,2926,2414,2812,3035,220,1676,1778,633,2971,346,2875,523,2203,2919,1646,3028,2341,1419,975,2504,2597,1688,955)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007264"
rlt[mytot,2]<-"YAL041W"
ori<-c(1865,298,2681,396,2437,2839,391,2781,1296,682,2340,2167,2045,1709,1210,392,1800)
ppi<-c(2038,2107,2588,1762,2652,2862,684,3026,854,3126,2660,2675,2443,2504,672,2597,2637)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006888"
rlt[mytot,2]<-"YAL042W"
ori<-c(2686,1903,2246,3046,2223,429,2484,1060,1014,2396,136,2152,2629,3202,2341,998,2060,1123,1995,1750,1015,2506,923,508,1004,2316,2722,2042,2877,1409,2479,1535,3148,1771,3015,2299,2882,2789,3016,1326,1571,3023,3171)
ppi<-c(2774,2245,2126,3118,2047,1401,2665,919,1677,2075,175,1338,2374,3203,1550,530,2978,2580,2139,2219,908,2819,1275,239,1141,2981,2840,1770,2028,2523,2625,2201,2957,2869,3037,2144,3093,2443,2867,1947,946,2962,2943)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000070"
rlt[mytot,2]<-"YAL047C"
ori<-c(976,467,1640,1007,3100,3084,2568,180,1700,1264,2111,601,3056,939,2372,2043,1339,2329,1977,1183,1244,1056,998,2100,2174,1424,661)
ppi<-c(1725,280,927,1755,2298,2968,2101,68,1492,386,2181,833,1995,452,2562,1978,1919,2016,1775,1169,903,1380,1753,2470,1900,744,1595)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000723"
rlt[mytot,2]<-"YAR003W"
ori<-c(2438,2256,1775,2193,1692,2204,2378,1447,187,3161,145,117,3184)
ppi<-c(2594,3146,1457,1772,766,2044,1595,967,456,3116,122,545,3185)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006348"
rlt[mytot,2]<-"YAR003W"
ori<-c(360,1810,2256,3050,3145,2680,473,860,1673,2926,2764,460,1772,2204,1889,1219,3135,1447,613,1066,751,2310,2672,1449,21,1246,2231,1175,520)
ppi<-c(170,2306,3146,3018,3163,2751,2909,387,969,3029,2016,102,2698,2044,1957,1194,3167,967,1098,2632,2206,2065,2710,2599,17,708,2858,641,1698)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YBL001C"
ori<-c(2097,1055,1532,2196,1682,3182,2790,2119,618,421,1523,2167,1347,1133,1439,15,1881,3143,1799,2715,934,2995,2306,2851,1943,382,2691,787,712,2336,3188,288,1652,2858,549,639,630,646,1344,3144,2452,2327,3064,1197,2753,1393,2956,1830,1617,2190,1628,1459,420,1270,1820,1542,2419,612,2466,2970,3020)
ppi<-c(2335,690,2730,1526,1667,3182,2301,1677,2000,665,541,2752,1444,1359,1061,669,2673,2721,1643,2630,207,2855,1696,2515,1373,1730,2909,792,200,1638,3169,495,1503,2794,2239,299,298,800,1293,3159,2561,1662,3105,1334,2461,2114,3041,1105,2409,1673,745,2048,262,1657,1837,1388,2291,1032,2320,2933,2334)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006897"
rlt[mytot,2]<-"YBL007C"
ori<-c(2791,3120,2329,2471,2938,2941,2192,3176,2112,3192,3167,246,3111,572,1949,3164,1105,1899,3089,3083,2752,2870,1583,2086,1881,2602,3025,714,1594,2719,2446,1244,1084,3093,763,1090,2481,362,377,2737,1364,1602,888,3157,188,2080)
ppi<-c(2099,3108,2200,2593,3143,2857,2090,2625,2786,2684,2803,185,2853,1549,2718,2902,1876,2408,2540,3110,2482,3041,1355,2072,1546,1827,2464,1882,2569,2836,2685,2632,1285,2940,417,1256,2409,1275,934,2811,2661,1806,1701,2689,678,2344)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007015"
rlt[mytot,2]<-"YBL007C"
ori<-c(2989,3170,3197,2329,1701,852,2192,2475,755,2999,3164,1292,2823,1498,1279,1479,1159,1169,3083,2814,2267,1048,2086,123,2630,833,2602,1610,714,863,1594,3093,1855,2810,2402,362,2925,1364,3157,2773,2080)
ppi<-c(2870,2558,3147,2200,1193,1542,2090,2843,893,3120,2902,2432,3045,1817,866,2691,2368,1611,3110,2386,2431,1854,2072,1688,2581,653,1827,2342,1882,542,2569,2940,2623,2759,2013,1275,2246,2661,2689,2621,2344)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YBL007C"
ori<-c(1935,3158,3170,2681,2457,2722,2819,2635,1646,637,3045,2222,1484,585,2547,1462,2584,3167,471,2640,1926,1046,2999,510,1035,480,2189,2550,1679,2913,1625,2488,200,1466,2752,2280,1859,812,575,2415,877,1729,1881,2602,1199,517,2626,985,3025,209,2446,3093,629,2628,1656,1090,2737,323,2812,1614,2080)
ppi<-c(1348,3168,2558,2774,2952,2865,2861,2526,1563,690,3044,1816,815,941,2837,1792,2198,2803,458,2367,1561,1255,3120,1612,622,1711,2154,1883,1427,2890,1581,2527,486,1691,2482,1765,1111,632,624,2218,1512,1468,1546,1827,1583,1865,2753,358,2464,60,2685,2940,261,2040,2196,1256,2811,712,2608,497,2344)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006348"
rlt[mytot,2]<-"YBL052C"
ori<-c(457,2750,1321,981,1600,40,3182,2983,1250,493,1667,3099,1196,3083,2393,1138,638,1547,1088,3085,2101,2786,2665,2636,2956,362,2686,1860,3007)
ppi<-c(1318,2244,1838,1246,1161,696,2811,3099,688,233,1484,3097,821,2858,2050,1216,344,777,1079,2536,2779,2868,2894,3035,3133,218,2841,2614,2550)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006970"
rlt[mytot,2]<-"YBL061C"
ori<-c(1123,2316,2208,806,1061,1208,3088,903,1337,886,3136,920,2691,1943,2226,2282,1467,1690,671,1296,218,472,2839,827)
ppi<-c(1544,2712,1545,2558,700,2311,3128,1529,1397,436,2657,2543,2479,1439,2441,2580,2639,944,2100,2274,2460,1474,2615,2070)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006457"
rlt[mytot,2]<-"YBL075C"
ori<-c(3184,2646,2139,3147,2610,1588,2821,2090,3199,3203,3137,1117,642,351,1101,2956,2897,183,1219,3202,3016,3193,2643,3176,3198,2238,3089,3197,2948,1240,2210,3161,3201,1940,3187)
ppi<-c(3190,2438,2904,3157,2614,850,2014,2365,3182,3197,2934,1344,672,610,281,2715,3075,1651,1693,3109,3143,3163,2858,3147,3194,1809,3146,2922,3051,664,1451,2924,3202,997,3179)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006623"
rlt[mytot,2]<-"YBL078C"
ori<-c(2714,2372,1257,2520,2978,785,1334,1863,3025,2328,3107,2287,3073,2680,2779,3008,2291,512,1396,2683,2399,2136,813,2506,2705,2984,1342,2406,3096,3076,2986,2852,41,1865,2439,2218,2221,1978)
ppi<-c(2877,1486,3037,2433,2869,1786,2159,1349,2602,1679,2967,2561,3201,1959,2871,2954,1547,984,1098,2847,1980,2199,334,2138,2898,3203,697,2493,3199,2682,2593,2414,354,2022,2526,2887,1777,2681)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006406"
rlt[mytot,2]<-"YBL079W"
ori<-c(2844,2171,2295,719,1659,1254,2781,2050,2995,1912,2983,805,2373,1907,1629,2052,2387,2581,1161,2376,2516,1661,1242,2864,739,3165,2155,345,3171,3162,1326,1115,2686,2123,2880,1017,2788,3183,2553,2462,3085,1386,1359,2000,1931)
ppi<-c(2884,1975,1962,403,2410,986,2890,2649,2759,2350,2507,2744,2761,1083,2786,1258,2559,2513,571,2367,1839,1602,1386,3053,625,2792,2600,1250,2800,2598,1892,1168,2937,1051,3121,339,2495,3133,2570,2575,3136,728,1236,3203,1911)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006611"
rlt[mytot,2]<-"YBL079W"
ori<-c(2171,2295,719,1659,2182,2995,1912,805,2373,1907,1629,2387,2581,2376,1467,3165,2155,3171,3162,2686,2880,2788,3183,2553,2000)
ppi<-c(1975,1962,403,2410,2722,2759,2350,2744,2761,1083,2786,2559,2513,2367,2717,2792,2600,2800,2598,2937,3121,2495,3133,2570,3203)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000070"
rlt[mytot,2]<-"YBL084C"
ori<-c(1038,2370,861,1688,2460,411,700,2473,734,1838,2063,412,2052,494,3019,1394,471,2881,513,312,2335,1678,2057,864,1076,1533,2865)
ppi<-c(2451,1916,570,3200,2329,991,3198,1691,667,1021,3195,737,3201,178,2626,1989,3197,3199,1161,537,1484,2000,3202,1316,1003,871,3203)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0016567"
rlt[mytot,2]<-"YBL084C"
ori<-c(186,609,1688,96,84,3146,700,2473,2063,1939,412,1811,2052,1211,662,471,2881,2470,2057,1877,3041,2865)
ppi<-c(2489,2334,3200,492,2142,2730,3198,1691,3195,2400,737,1956,3201,469,1104,3197,3199,2765,3202,1806,2775,3203)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000070"
rlt[mytot,2]<-"YBL097W"
ori<-c(766,2145,2422,3052,991,2319,282,2690,2197,2383,2617,2295,2066,2804,2623,1839,1877,1879,1335,2876,3196,2855,3014,1829,2781,3097,2671)
ppi<-c(2539,2681,1934,2696,2395,2215,1986,2558,1725,1870,2596,2083,2689,2985,2516,2484,2734,2654,1085,2808,3199,2879,2695,2057,2760,3159,2692)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YBL101C"
ori<-c(1093,3172,3194,2554,2766,1024,2770,2737,1461,3078,2895,1188,216,631,1155,924,2942,2613,1125,832,2300,1404,2794,159,1009,1714,1545,2414,979,2756,667,3171,370,234,2976,3144,3100,2075,716,2008,1055,336,1096,2889,1702,1378,2385,511,2806,1046,2099,3038,337,1794,2603,807,1468,1961,3152,1605,1924)
ppi<-c(1924,2667,2539,2581,2705,463,2464,2687,1817,2880,3082,1268,128,1068,1433,1564,2558,2815,799,1800,1440,1323,2971,769,731,2060,2332,1913,387,2856,539,3142,566,1628,2630,3154,3136,1647,877,1357,1847,1038,720,2741,1463,2121,2042,177,2623,615,1809,2711,173,1986,2952,1353,819,1266,3178,1136,2423)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006367"
rlt[mytot,2]<-"YBL103C"
ori<-c(3156,1178,1850,1682,1271,1185,907,2214,2862,1278,2966,2704,804,1895,1411,1457,773,2790,1859,2758,1790,2677,2481,1796,1616,1122,2175,3132,2019)
ppi<-c(2554,681,1412,2439,2086,2102,359,1865,1913,1604,2385,1948,933,1731,1275,1818,229,2035,2020,2878,1153,3203,1847,1386,1035,1108,1533,3187,2613)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YBL105C"
ori<-c(2768,2828,2567,2878,572,2384,89,2313,1157,701,225,3033,2457,748,1378,2390,2894,2075,1623,1203,1958,3155,193,1813,2350,2661,1758,2365,2949,2168,2911,3171,1681,758,2044,2635,2015,808,711,612,1658,2644,1138,2687,2519,2886,3195,2298,761,3057,3070,438,3064,717,735,2322,1085,504,2577,2337,2630,805,1494,1979,3068,613)
ppi<-c(3075,2745,2542,2833,312,2418,1722,2429,1630,1911,2619,2245,2408,2551,1639,2184,2970,2759,1051,1981,1596,2913,692,1404,1980,2838,1549,2170,2772,2023,3069,2778,1117,566,1726,2773,1789,358,2887,254,698,2686,1363,2690,2554,2585,3134,2386,2770,2916,3110,1711,3051,208,1907,2035,1740,199,2533,2971,2713,1777,1653,2142,3029,599)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007015"
rlt[mytot,2]<-"YBL105C"
ori<-c(3202,3159,2333,1980,896,1315,1122,2103,998,2523,1698,1706,2911,961,2581,1854,2757,2635,1351,2307,1345,625,2896,45,3048,1064,2965,2433,2761,915,1801,3101,1831,1770,2627,2283,2811,2737,2997,3156,1168)
ppi<-c(3118,2478,2048,1466,827,2161,678,2474,1342,2938,2399,2332,3069,2465,2593,2595,2369,2773,1302,2594,2315,1391,3020,1783,2769,825,2982,2156,1699,348,2576,2756,2614,1609,2475,1851,2807,2459,2857,2828,2815)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YBL105C"
ori<-c(1461,3159,3185,3001,525,571,3170,2915,2543,2313,1524,2763,419,437,1089,829,1510,1130,1155,298,2486,115,2523,348,343,1758,2573,2739,2275,2699,2599,2218,1066,1953,3067,2470,2025,1152,1472,2595,2376,261,2132,2965,367,1515,2817,569,2377,484,2424,3101,29,2068,1419,351,1873,1070,1023,1505,1168)
ppi<-c(1324,2478,3191,3108,562,251,2350,2905,2650,2429,585,2687,207,1021,1158,1236,2498,2597,1206,1853,2751,1143,2938,680,320,1549,2100,2405,2220,2744,3094,1844,1022,2612,2366,2033,1398,758,1301,2518,2717,1220,3203,2982,508,1931,2992,212,2379,187,2458,2756,53,1765,2966,1035,1212,1106,403,1687,2815)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006979"
rlt[mytot,2]<-"YBR006W"
ori<-c(1840,3049,3051,1416,132,2266,1024,3021,2963,128,2731,2696,2488,539,1136,1497,3047,2026,79,756,1766,2147)
ppi<-c(1317,3096,3072,1461,44,1623,1269,2979,3025,2552,2856,3050,2818,808,2541,1018,3095,2180,1324,316,1585,1511)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006606"
rlt[mytot,2]<-"YBR017C"
ori<-c(97,843,620,934,2948,2838,2890,2525,87,3155,2286,2953,902,2018,3159,2094,1309,2926,641,2199,2820,2843,825)
ppi<-c(407,509,972,2066,2974,3064,3065,2904,2977,3180,2866,2987,773,2852,2586,1997,2337,3102,150,1883,3078,3004,585)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000398"
rlt[mytot,2]<-"YBR055C"
ori<-c(3056,1054,1669,1223,21,2786,2814,1914,1963,1611,1166,731,2556,1388,1084,1124,2893,2496,1760,2219,1032,1599,1231,2196,2175,2874,2816,2532,1984,2085,2193,3169,1713,2844,2601,1218,2747,1576,2799,3083,2452,1374,553,2489,1701,1975,1672,751,1944,2562,1251)
ppi<-c(3093,2392,956,683,1960,2689,2605,2510,2545,766,536,695,2714,649,372,711,3050,2679,1904,1387,2573,2756,2340,2584,2363,2953,2745,2162,935,1561,2682,3114,849,2067,2407,2006,2819,1507,2805,2986,2279,1198,1461,2325,2521,2894,2738,3203,1163,2342,2106)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000398"
rlt[mytot,2]<-"YBR065C"
ori<-c(2991,2593,2046,3129,125,1943,705,153,156,1715,1797,1139,1396,539,3103,2854,1693,3121,1035,1420,2524,1038,481,590,478,3173,2959,2768,1110,189,2525,2205,339,467,1220,1019,1454,3056,1152,1765,223,1620,2461,1395,2713,2901,95,896,1814,1932,207)
ppi<-c(2933,2848,1161,3117,2055,2633,1868,2471,2251,678,882,990,1632,664,3180,2949,1582,3182,2319,832,2453,2910,2076,1004,1628,3114,3060,2079,325,509,2552,1818,154,1532,2297,2012,1406,3046,836,1642,2008,899,2136,1125,2803,2836,908,635,1147,1808,1992)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YBR065C"
ori<-c(2109,2848,2642,3102,1982,2577,635,1291,779,458,1369,1827,507,1501,1008,2302,1439,1523,89,2699,2881,2347,2934,689,2939,902,3169,1107,1202,1883,862,1711,141,1889,1532,1515,1281,438,1398,134,338,2132,916,890,8,1235,1806,1370,1707,182,2359,1770,311,3195,34,805,1602,1480,2043,1854,159)
ppi<-c(2608,2387,2879,2494,1276,2628,2194,1099,1566,668,601,1699,265,1909,1331,1956,2236,2704,250,2021,2737,2054,3030,1116,2916,2593,2576,620,1054,1297,461,1327,439,2030,2321,909,669,603,1243,82,1594,2789,516,1814,116,1866,1163,704,2322,109,1961,2016,146,3035,139,1475,943,2218,1170,1145,2432)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YBR067C"
ori<-c(1676,2503,2752,651,1994,2480,1458,1269,38,1909,3099,934,1974,2887,1748,921,2882,3069,124,3062,1357,3053,3005,1675,2496,594,1088,1502,359,1804,2,3199,21,100,1870,3201,3163,2021,633,322,148,1604,64,1414,1842,1661,815,355,1809,463,1795,1176,1476,2960,995,2880,1684,1272,3083,460,744)
ppi<-c(1545,2288,2673,2721,1383,2246,2298,1238,1823,914,3129,1123,1472,2775,1165,1816,2490,2738,277,2621,1427,2921,3079,1358,2418,2146,2499,1508,99,1189,55,3164,204,2584,2605,3197,3172,1279,867,176,2402,1412,38,1713,1115,2186,380,100,2580,215,964,2174,921,2430,478,2732,1028,1199,3167,60,2545)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006457"
rlt[mytot,2]<-"YBR072W"
ori<-c(3181,2581,519,3196,1756,2629,514,1221,3136,3069,2938,50,2652,521,1290,775,132,1775,832,1083,2340,3026,429,3160,2523,588,2365,2694,2138,2700,482,1722,3040,2406,3041)
ppi<-c(2903,2680,2461,3200,1078,2634,2192,1409,3005,2885,2567,154,2485,745,562,763,54,2281,1248,2160,2667,2790,1732,3049,2068,325,2181,2509,1601,2767,42,2284,3132,2572,2920)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YBR076W"
ori<-c(3012,2549,1194,926,2293,2295,488,1717,765,240,1749,2257,2847,2159,1283,754,1771,2890,689,3202,1557,3175,1880,2237,3011,707,2831,438,371,2239,1958,1394,948,2670,482,1166,1511,90,1390,1734,429,2869,2044,910,1750,1265,1591,1933,654,1268,1410,734,994,2260,1157,1501,1370,950,2844,2001,890)
ppi<-c(2978,2441,677,2034,1623,1318,2182,1440,1619,734,891,2681,2940,1760,1315,1182,2335,2824,934,2822,770,2932,1095,2041,3042,2382,2771,719,195,2197,1579,1279,1016,2156,2196,587,898,262,1350,961,1709,2549,1311,1482,1020,2005,906,1298,2236,733,698,2173,484,1783,927,1694,749,1936,3038,1197,2273)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006413"
rlt[mytot,2]<-"YBR079C"
ori<-c(2021,2994,2658,2529,561,2955,3165,3140,3108,2704,1451,2583,2295,1806,2660,3186,3089,2825,2544,3022,3084,2554,2335,53,3109)
ppi<-c(2136,3066,3184,2633,431,2624,2923,3155,3113,2656,1606,2424,2587,1447,2607,3202,3203,3190,3200,2910,3175,2759,1192,33,2968)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006888"
rlt[mytot,2]<-"YBR080C"
ori<-c(2831,40,2191,2266,2931,593,3145,857,1581,1834,340,1247,3170,2934,324,812,1121,550,1693,1134,1550,2452,1045,961,1432,1171,2553,856,1397,2727,2681,2967,3043,1264,2536,1200,2128,2466,3077,1951,2068,596,2907)
ppi<-c(2919,1004,2341,1892,2679,1183,3094,810,1545,1619,747,1008,2729,2661,343,497,1695,2655,1676,2666,1630,2352,997,480,1355,2331,2572,682,1471,3048,2521,2898,2105,2135,2215,1480,1672,2767,2821,1605,1252,1429,2295)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YBR097W"
ori<-c(3194,2810,2108,1573,275,1945,405,904,309,2308,1567,2099,2573,641,661,2101,2227,1554,1435,619,2805,1967,1678,1083,2182,2511,1633,2924,1808,111,2269,2483,1991,1288,1783,987,2818,3108,1239,745,2815,967,2380,971,2566,216,2361,1965,492,2761,2923,1367,1649,2286,397,797,1058,991,1439,1762,990,1980,2367,2995,703,2040)
ppi<-c(3194,2549,1122,2639,136,1755,2064,772,267,2158,1992,2516,2150,1910,1220,1572,2809,2662,784,1865,2808,2566,1812,1035,2141,2636,1681,2779,2542,1127,2289,2490,971,1347,1595,1480,2941,3110,1777,302,3066,1454,3203,477,2281,948,1664,1844,2435,2637,2986,1611,1033,1878,2128,1805,1398,420,871,1841,1307,1875,1820,2645,1393,1613)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006623"
rlt[mytot,2]<-"YBR097W"
ori<-c(2911,526,2136,3198,2089,632,804,3166,2910,2141,2928,2783,3145,1790,2619,721,1115,1941,1335,2380,1560,2492,1255,2098,2057,2901,1127,924,2497,2716,3090,522,912,147,2739,1117,3011,814)
ppi<-c(2870,591,2262,2990,1943,1025,1192,3091,2515,1354,2836,2288,2825,1629,2564,885,491,1804,965,3203,1711,2301,395,1987,1679,2774,575,717,2680,2505,2705,1736,926,720,3069,3201,2865,2072)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007131"
rlt[mytot,2]<-"YBR098W"
ori<-c(2096,869,2964,1183,2717,2385,2143,2231,1967,1297,2876,2018,1574,1522,1893,2872,2418)
ppi<-c(2979,2351,2668,798,2067,1793,838,2417,1972,1118,2580,1513,3047,2064,928,2866,2374)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000122"
rlt[mytot,2]<-"YBR103W"
ori<-c(97,1625,1548,1512,466,2246,1165,2163,2057,2098,492,1329,973,135,353,1858,3026,3016)
ppi<-c(106,990,726,1908,695,1202,1772,1416,1814,2041,265,752,767,1463,879,1590,2922,2965)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006348"
rlt[mytot,2]<-"YBR103W"
ori<-c(1492,3112,226,1916,3006,935,2242,647,2787,2213,2689,1615,806,623,2682,1889,2398,1339,2844,2478,456,1831,2007,3,1032,2786,2358,2963,2032)
ppi<-c(2292,3156,2035,2011,3094,2990,2633,246,2896,1782,2130,1423,728,1273,3083,1495,2136,904,2446,2397,1874,1406,2978,1720,391,2841,1863,2695,2904)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006897"
rlt[mytot,2]<-"YBR109C"
ori<-c(2890,1744,1896,1918,138,959,3083,2771,2508,2030,2309,2635,1723,3189,2092,2995,2716,3173,1727,2446,3150,1400,3199,2927,2337,2495,2443,1301,2916,2430,1332,1686,340,3015,1275,1029,1265,942,3027,2860,2246,2228,2883,2490,1305,3156)
ppi<-c(2612,823,1311,1916,39,1102,3137,2448,2603,2581,2697,3110,2433,2560,2252,2587,2108,2402,2131,1959,2864,712,3003,2918,1762,2656,2950,1489,2056,1670,777,2031,1444,2635,509,1577,1562,2075,2527,2952,2535,3197,2799,2465,1808,2543)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006414"
rlt[mytot,2]<-"YBR118W"
ori<-c(3203,3196,3202,3198,1714,2869,3176,3190,3171,3124,2224,2927)
ppi<-c(3203,2918,3154,3197,431,3200,3202,3151,3189,3196,2547,3201)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000723"
rlt[mytot,2]<-"YBR136W"
ori<-c(2380,1425,1621,2356,3054,811,3081,902,658,2352,1269,1157,2973)
ppi<-c(2004,2045,1201,1738,3091,1392,3155,593,861,2726,450,659,2892)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007131"
rlt[mytot,2]<-"YBR136W"
ori<-c(2221,2992,2648,1848,2618,2671,1756,1772,1156,4,688,3119,1711,2400,2184,1930,2377)
ppi<-c(1829,2440,2729,1143,2170,2732,1177,1411,1235,208,878,3126,1955,2571,1475,1902,1599)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006457"
rlt[mytot,2]<-"YBR155W"
ori<-c(1472,2071,448,1475,854,1240,2420,2273,1685,2047,296,3152,2375,1120,1498,2988,2945,2309,2949,1956,2318,1592,2976,1740,983,433,2099,1938,2262,845,2205,1966,2219,1931,1727)
ppi<-c(2444,1373,1701,863,409,691,2733,2314,898,1740,1625,3126,2189,1363,503,2809,2925,2523,2700,2192,2795,1876,2637,2918,501,338,1107,3037,2713,523,1419,2352,2649,1443,2938)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YBR156C"
ori<-c(2156,2639,2207,2612,1859,1842,732,3006,2486,367,2380,2593,1472,2897,2676,577,2202,1451,763,2688,619,1651,3024,3160,2882,1935,2342,342,3178,2212,2715,2488,2419,1776,2661,1475,936,272,3038,626,2064,3087,12,2609,409,723,2830,1285,752,3091,2747,72,3032,1269,1896,3012,2511,951,1792,846,1028,344,843,2547,2566,952)
ppi<-c(1819,2157,3059,1972,1304,1289,2446,2809,3024,1775,2328,2279,2170,2702,2298,329,2027,1894,455,2570,792,2257,2865,3136,2870,2377,2618,1185,3036,2623,2444,2032,1602,1118,2560,2371,979,121,3126,296,1542,2987,540,2603,2451,746,2799,1882,1536,2390,2075,1276,3053,490,2556,2695,2348,505,1159,2014,1164,1873,1193,2109,2337,421)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000082"
rlt[mytot,2]<-"YBR160W"
ori<-c(2299,659,2508,874,944,483,2285,3200,2492,3106,1314,303,3107,1832,2099,2466,2337,2370,2858,1695,1230,985,2756)
ppi<-c(3017,313,1476,2812,1149,2646,2559,3202,2856,3087,533,1445,3204,1899,1124,2163,1741,3200,2653,2501,2116,1532,3197)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YBR160W"
ori<-c(1134,3011,1648,2684,3032,3169,1437,2508,3114,2046,1960,817,2173,3124,1372,2504,2889,1538,190,303,1712,2649,2145,1764,1609,3020,367,2168,2371,1832,505,1781,3175,102,2224,1356,440,1093,2905,1105,2057,2093,1278,1534,783,1898,2306,216,634,2149,1330,404,2960,2345,1230,985,824,447,921,781,3009,1530,184,1295,2250,1583)
ppi<-c(556,2806,735,2860,3110,3068,2084,1476,2998,2433,2315,2167,2435,2643,1780,2162,2921,3138,126,1445,1586,2417,3084,1403,1354,2550,1938,2088,2688,1899,201,1393,3188,38,1947,1594,529,482,2505,499,1632,1458,785,873,2304,2763,2110,2038,1998,1598,692,1627,2915,1612,2116,1532,1628,224,440,2693,2665,2195,1415,2500,1633,810)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006623"
rlt[mytot,2]<-"YBR164C"
ori<-c(2675,327,1523,1707,1720,1727,2091,412,922,657,773,2895,357,877,2141,3066,2630,1478,1945,1705,1294,1508,1856,2754,884,719,1474,2081,2503,1946,1629,2625,437,3029,904,1842,983,1886)
ppi<-c(2236,63,2016,1414,1800,1720,1981,794,1978,201,1132,2224,1220,1866,1643,2990,2073,1252,1403,1173,2126,1962,1396,2815,259,998,730,987,2364,2249,2083,2272,958,2722,494,1169,1247,2459)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006457"
rlt[mytot,2]<-"YBR169C"
ori<-c(3203,3145,3196,1476,2972,2888,1343,2457,3201,3198,3175,158,2295,65,1469,2099,1492,696,779,2812,3052,3199,1971,3193,3091,946,3168,3195,2458,2030,1006,2860,3197,2897,3192)
ppi<-c(3177,3183,2906,2964,2816,2922,2272,1665,3184,3180,2871,260,2583,826,466,1334,1019,1946,1017,2955,3146,3140,2291,3154,3141,582,3174,2870,2099,1433,192,2791,3201,3030,3160)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000723"
rlt[mytot,2]<-"YBR175W"
ori<-c(2083,1346,2967,2245,2454,2251,1260,2985,846,895,2857,2970,397)
ppi<-c(3196,1144,2895,2058,1983,2177,426,3081,926,1993,3097,3070,578)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006348"
rlt[mytot,2]<-"YBR175W"
ori<-c(2083,1312,509,972,194,2621,1107,2937,19,1236,623,1689,1518,2251,2884,49,14,2985,94,1034,318,1483,2423,1978,2728,1180,652,643,1088)
ppi<-c(3196,566,2504,1019,95,2799,2692,3062,14,659,2826,941,1542,2177,3055,584,13,3081,148,2089,1919,604,2526,1844,2898,645,919,87,572)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007005"
rlt[mytot,2]<-"YBR179C"
ori<-c(1424,2287,1534,1973,2509,2093,462,3124,1664,1825)
ppi<-c(643,1851,936,1443,2292,1965,371,3158,1446,2034)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0045944"
rlt[mytot,2]<-"YBR182C"
ori<-c(2996,545,711,2628,1814,2503,683,150,1194,2449,2746,2738,645,1579,485,1563,2078,468,2959,324,1174,1820,165,3098,2376,1955,2985,2453)
ppi<-c(3089,1642,238,2637,1177,2621,724,498,837,2068,2938,3018,1007,763,1714,791,1992,1441,2905,1838,1955,999,807,3143,1665,1214,3004,3203)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0009060"
rlt[mytot,2]<-"YBR185C"
ori<-c(2164,2147,2373,3097,1353,1130,2541,3003,1192,3045,1806,742,2965,2172,2864,3155,2231,2714,1393,1303,2619,2826,340,778,2170,2280,1437,3198,270,2559,214,728,2598,1359,584,1451,2958)
ppi<-c(1366,2994,2349,3138,705,573,2290,2981,596,3082,1152,352,3001,1385,3067,3166,1551,2593,1414,1211,1970,2890,1558,295,1557,1740,729,3202,84,2276,36,1265,2568,501,2103,1498,2345)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006367"
rlt[mytot,2]<-"YBR198C"
ori<-c(3074,2426,950,3010,2739,2306,851,1160,2654,1274,2813,764,2793,2989,3068,1659,2728,3072,964,2511,1912,3083,2155,3037,2328,2425,1786,3003,2994)
ppi<-c(3192,2926,1818,3126,3019,2764,321,1804,2761,1672,3079,2018,3050,2900,3011,1931,3081,2869,2616,2287,1385,3195,1762,2938,2851,2867,1790,3144,2344)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006487"
rlt[mytot,2]<-"YBR205W"
ori<-c(3195,2124,2730,3186,2478,1190,2267,2158,635,982,136,3139,2395,958,444,2316,3160)
ppi<-c(3201,2863,2047,3010,2382,642,1873,2808,362,1161,59,3119,2820,1489,1871,2438,2957)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YBR205W"
ori<-c(2568,2798,2707,3166,797,1408,257,2699,1536,2754,873,2634,545,956,2098,223,2347,2230,2989,80,1456,124,921,1346,81,1932,486,3073,2267,1979,2973,1710,2647,2471,2526,2465,1777,2261,2324,3050,3051,897,3019,3190,1570,2304,2978,1478,3056,2298,1649,3165,1513,1277,2000,3024,2992,1505,1368,2833,2462)
ppi<-c(2867,2895,2682,2676,406,1021,122,2650,2161,2830,273,2211,346,1284,2270,980,2452,1863,3023,1260,650,556,458,1796,112,1968,1641,3070,1873,1818,3025,1789,2359,2510,2434,2019,1204,2783,2141,3125,2289,1572,3140,3032,1396,2153,3105,897,2422,1893,1047,2742,934,2022,1702,2966,3072,2122,906,3080,2626)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006897"
rlt[mytot,2]<-"YBR207W"
ori<-c(3121,1734,2449,1595,3115,2785,847,2975,1758,2787,3162,81,3175,563,878,2907,1223,706,2990,2983,770,1362,1423,825,1531,1471,2327,855,154,2903,2478,496,1473,2495,708,1551,2620,103,611,2791,570,2118,742,2415,671,1983)
ppi<-c(2337,1908,2060,1468,3197,2703,425,2626,2237,2590,2606,135,3065,2207,2850,2436,1753,2443,2647,2942,1817,598,1253,919,757,1225,1985,1743,2104,2971,1875,2634,1515,2773,476,1212,2829,1418,1502,2914,2177,2346,2221,2512,1445,2267)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006623"
rlt[mytot,2]<-"YBR217W"
ori<-c(1228,2226,1553,1604,2881,129,416,2793,3137,313,954,2505,2651,3086,496,318,1274,2811,1095,2574,2294,722,361,160,2577,2657,2891,381,1302,850,458,699,2109,684,2189,2445,2470,1766)
ppi<-c(3014,1494,1883,1845,2822,1132,1070,2840,2625,200,1623,1987,3177,2834,840,833,394,3201,579,1713,2812,2435,87,486,2722,2863,2936,582,3129,2651,1542,1449,2132,1625,2909,1918,2056,2438)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006261"
rlt[mytot,2]<-"YBR228W"
ori<-c(998,2156,2820,430,1568,200,1845,135,2180,2485,836)
ppi<-c(456,2149,2815,562,626,426,3203,1234,2711,2215,2184)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007015"
rlt[mytot,2]<-"YBR234C"
ori<-c(2397,3175,2254,2200,2457,1381,2655,2088,482,3025,3200,735,2128,1507,922,1450,1264,794,3155,2674,1060,1668,565,652,1686,2194,2746,843,1415,920,856,2262,1900,2958,1826,430,2978,1588,2865,2450,2348)
ppi<-c(2503,2352,2089,1436,2257,1517,2826,2045,651,3075,2481,2337,1530,1923,496,2459,2482,1288,3143,2036,1949,2287,595,1746,2398,1974,1815,1761,1776,1291,2215,2784,2483,2803,1018,1402,2134,2181,2595,2621,2172)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0045944"
rlt[mytot,2]<-"YBR240C"
ori<-c(2848,1771,948,2599,673,1046,454,1066,1561,1810,429,2225,1688,2086,189,3174,1034,822,2857,1569,849,701,242,2708,2390,1932,2902,736)
ppi<-c(2986,1617,373,2771,291,467,534,944,754,2461,59,1747,1264,1237,713,3186,1881,1453,2916,1908,1652,245,622,2752,1753,1311,2920,1552)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006487"
rlt[mytot,2]<-"YBR243C"
ori<-c(3130,2463,2783,3195,3147,909,2640,3077,137,665,1483,2968,3134,3004,2577,3070,3076)
ppi<-c(2620,3157,2524,3177,2969,391,2720,3164,67,909,518,2920,3099,2721,2737,3125,2801)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006979"
rlt[mytot,2]<-"YBR244W"
ori<-c(1941,2824,2259,3079,160,1438,196,3098,1790,1395,113,1908,316,1777,1067,2494,710,18,1366,3077,1525,262)
ppi<-c(1749,2845,1620,2944,133,824,1136,3078,1047,2618,353,1121,379,1901,1857,2059,395,535,1579,3165,1665,83)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006888"
rlt[mytot,2]<-"YBR254C"
ori<-c(1899,26,1294,1528,871,3185,29,2455,733,2999,2701,2957,1410,1092,2774,1645,1271,2826,1392,1258,2010,394,151,1232,1277,2237,1550,2650,1512,1598,765,1046,699,3076,1465,1876,2053,728,165,1603,2228,3002,619)
ppi<-c(1337,8,1047,973,2287,3200,136,2294,3202,3198,2915,2594,2253,522,2829,1467,1379,2195,3197,2433,1758,1084,512,679,1305,1959,928,2622,3204,2394,2043,569,1146,2432,1006,3203,1375,1778,359,3199,1916,2251,1432)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006348"
rlt[mytot,2]<-"YBR275C"
ori<-c(3109,763,2029,881,3169,2925,1359,365,851,3161,921,451,2730,1896,2285,961,3186,830,2117,2554,1897,2189,1182,2789,4,1391,1915,1523,348)
ppi<-c(2720,419,2543,2342,3186,3052,2951,99,446,3182,1780,81,3139,2020,2923,1169,3192,653,1538,2321,2190,1057,3200,2745,11,830,2702,970,324)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000723"
rlt[mytot,2]<-"YCL011C"
ori<-c(1571,1564,2913,2799,495,3066,1338,1018,2957,917,2385,2047,1563)
ppi<-c(1896,1169,2189,3039,255,2903,531,773,2769,791,1447,1371,984)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000282"
rlt[mytot,2]<-"YCL012W"
ori<-c(3202,2886,1546,3118,2856,1067,128,27,1598,2891,3201,1422,1924,3182,2367,396,2622,2241)
ppi<-c(3202,2544,758,3149,2122,397,2,1604,1462,2880,3203,788,2236,3013,1886,184,2675,2705)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000282"
rlt[mytot,2]<-"YCL014W"
ori<-c(3202,2810,1185,2826,2128,2242,39,59,2649,2012,3187,1057,1729,3198,1880,533,2773,2436)
ppi<-c(3181,2460,537,2958,2054,1155,1,1493,2449,2840,3203,487,2521,3023,1218,259,2838,2167)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YCL024W"
ori<-c(931,689,278,2078,2873,1300,2964,3006,3145,416,2515,268,1744,3061,2947,596,1049,811,2421,2087,1469,352,3018,2240,2573,2290,1650,1860,311,2769,484,23,2834,430,880,2756,1185,2195,3107,770,2372,2112,1210,2190,2246,1330,12,1687,1482,387,930,2846,1211,1734,3017,1079,570,1372,2622,321,1977,866,1430,1989,33,1828)
ppi<-c(580,2838,103,744,3104,1180,1995,2116,3127,1814,2709,2297,2225,3072,2746,341,1189,2978,1687,2619,1416,1941,2966,1643,2075,2851,1952,1782,2721,2646,195,1719,2427,191,1139,2251,954,1479,3131,374,1210,1816,1585,1455,2551,1839,553,2540,1932,1329,311,2136,1539,1045,2543,2240,2527,706,2460,2477,1787,2355,1587,2396,828,801)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006365"
rlt[mytot,2]<-"YCL031C"
ori<-c(3160,3002,2799,2602,2904,3078,1909,2288,3123,3100,3089,3193,458,2303,2731,3013,3189,2895,2876,3142,3166,3035,3009,2758,3113,2943,2909,2735,2935,2996,2775,1248,2631,2063,1286,3140,3109,2923,2667,2887)
ppi<-c(3162,2903,2958,3095,3134,2960,673,2699,2914,2367,3129,3196,2344,2038,2683,2921,2989,3033,2985,3190,3073,3135,3007,3000,3091,2899,3155,2547,3015,3125,3009,1214,3008,2918,1014,3167,3127,3106,2940,2920)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006979"
rlt[mytot,2]<-"YCL033C"
ori<-c(3077,2663,3203,3034,156,3094,1729,3146,2885,1426,3115,2781,1760,2604,1946,2391,3191,1782,580,1871,2406,2096)
ppi<-c(3077,2109,3203,2862,118,3143,1467,3067,2999,2038,3165,2326,1938,2545,2804,1944,3187,1405,1119,1115,2753,1059)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006897"
rlt[mytot,2]<-"YCL034W"
ori<-c(2430,1875,2577,718,1685,2267,2491,2621,3092,2449,2316,2916,2928,2196,733,2250,2473,2954,1262,2798,918,993,1866,2195,1703,725,228,1101,1737,2353,1399,1669,1195,1818,175,1138,1333,1970,2812,195,2772,804,1645,1366,1357,2230)
ppi<-c(2769,1958,2664,1228,604,1972,2577,2451,2802,2602,2899,3022,2869,2530,2432,2764,2035,2858,2526,3020,2731,464,1671,2036,996,1381,2618,1363,2315,1512,923,2045,1385,2821,70,1677,1423,2627,2934,97,3181,1544,2103,2195,1486,2552)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007015"
rlt[mytot,2]<-"YCL034W"
ori<-c(1858,2430,2029,2350,2425,658,2491,1136,2533,821,2250,905,860,2860,3169,9,1926,1023,2798,2934,2374,1850,2195,421,1761,1222,725,2352,1101,2343,1737,1818,1021,2879,2109,1970,656,2772,1366,2377,2230)
ppi<-c(1583,2769,2360,2058,2396,1800,2577,1293,2385,493,2764,2519,482,2177,3187,2411,2803,1485,3020,2570,2494,2800,2036,2101,2571,1223,1381,1924,1363,2500,2315,2821,2685,2864,1492,2627,2217,3181,2195,2545,2552)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006979"
rlt[mytot,2]<-"YCL035C"
ori<-c(3067,2145,3203,2799,103,3109,2056,3144,2049,1326,3164,3079,1424,2760,2200,1916,3195,2067,547,1817,2389,2547)
ppi<-c(3113,1135,3203,2210,35,3154,1548,3105,1307,1842,3174,3115,1755,2777,2834,1442,3192,1726,1380,607,2123,2214)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006623"
rlt[mytot,2]<-"YCL038C"
ori<-c(2672,3174,1588,1489,2961,533,2078,1922,2285,1905,2809,820,2836,1951,2452,2055,2794,934,1680,1988,2251,2230,663,1267,2320,2648,1372,2243,1702,2394,3143,760,1297,512,1494,1177,2157,333)
ppi<-c(2056,3179,973,1859,2599,1291,1901,1880,2242,1195,2657,2355,2158,1969,2409,1488,2774,815,794,3085,2088,2174,112,1113,1791,2586,722,1311,1904,1932,2805,1483,1321,1299,964,2783,2156,1555)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006006"
rlt[mytot,2]<-"YCL040W"
ori<-c(1483,1625,326,962,2190,2832,2862,1590,1119)
ppi<-c(913,2009,350,411,1504,2861,2811,859,2261)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006457"
rlt[mytot,2]<-"YCL043C"
ori<-c(3147,2741,1736,664,3039,2901,3116,2635,3167,2944,3135,751,101,2205,1957,2090,2672,761,1579,3145,2398,3191,1726,2555,3175,3184,3134,3118,2128,446,2160,2678,2987,3068,2948)
ppi<-c(3113,2911,1992,2695,3104,3131,2186,1963,3092,2590,2848,1015,1331,1429,1309,2869,2931,1890,1476,3056,2696,3057,2091,2615,3186,3189,3177,2704,2255,215,1212,2791,3102,3172,2928)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YCL051W"
ori<-c(2204,2961,2989,3112,1338,1081,1783,3005,2777,2106,3116,591,1255,509,824,1533,902,3071,1263,1811,723,1214,2599,2024,757,1288,2265,2293,2339,3134,2867,2353,2397,1424,2804,1702,1791,404,2920,3066,2280,1961,2882,1120,1135,984,2735,2421,2947,1874,1934,1240,2575,1649,1790,720,1029,1846,1901,2632,2640)
ppi<-c(1768,2569,3093,2634,689,1588,1082,2690,2259,1955,3155,1067,638,1042,1426,1598,2121,2271,1181,2009,188,2012,2533,2253,507,2184,2174,2045,1750,3058,1720,1964,1864,2072,2378,988,1027,447,2741,3128,2299,1442,3062,1342,931,2215,2866,1948,2417,942,1369,2552,2834,1604,1412,961,586,1840,1286,2022,2206)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0045944"
rlt[mytot,2]<-"YCL055W"
ori<-c(635,1796,2394,504,1042,480,2142,1035,2322,1216,2220,1376,932,1217,1191,2184,2439,2848,320,2547,2666,1968,2607,1030,978,2371,231,2634)
ppi<-c(244,1168,2019,241,541,248,1953,976,1216,1939,2099,1294,546,444,1470,1657,2168,2570,415,2773,2376,1765,2377,531,450,1864,147,2473)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006365"
rlt[mytot,2]<-"YCL059C"
ori<-c(3001,2995,3090,3011,3159,3034,2459,2937,3042,2408,3196,3187,465,2654,3084,3131,3202,3062,2885,3056,3109,3074,2970,3148,3182,2875,3141,3179,3190,3177,2974,1614,3017,2285,2044,3052,3118,3064,2676,3173)
ppi<-c(3061,2988,2908,3173,3197,3032,1672,3108,3011,2595,3194,3181,2375,2680,2824,3037,3090,3056,3055,3169,3105,3145,3042,3185,3134,2893,3193,2918,3106,3177,3171,1540,3118,3016,2593,3081,3132,3174,2977,3170)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006348"
rlt[mytot,2]<-"YCL061C"
ori<-c(3135,1789,2708,337,3124,1702,2682,1086,2604,3170,1595,1777,2050,2332,2002,2315,3197,518,2560,1785,1624,2419,1121,1491,45,1583,1253,1970,1960)
ppi<-c(2866,1059,2516,2189,3084,2383,3036,403,2425,3184,2167,596,3086,2048,2318,1489,3198,294,2371,2356,2482,2155,2420,2528,35,992,2574,646,2508)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YCR002C"
ori<-c(732,1574,1367,2380,908,25,512,1462,2316,1711,1487,1027,2487,51,2626,2227,255,855,2507,107,981,177,1081,688,1000,2217,1242,2902,3194,1349,3102,120,3078,2461,2625,72,67,1751,2329,3119,2691,1279,2009,1970,369,2097,1247,2387,1875,1514,1501,1849,2409,1852,2758,166,1110,2107,267,2030,3063)
ppi<-c(1018,2325,787,2473,452,663,238,2217,2102,1344,561,1359,2479,595,2300,2475,2433,2321,1840,1620,754,885,582,1326,662,2376,2113,2807,3202,1547,3127,367,3025,3189,2263,50,54,1287,2266,3150,3200,1597,1481,2544,337,2098,619,2119,2273,1072,871,2593,2372,1688,1760,1177,562,1451,60,1100,2565)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000082"
rlt[mytot,2]<-"YCR008W"
ori<-c(1510,757,1077,78,2098,1752,945,1518,409,773,2062,2869,194,1055,2009,2554,1074,198,1046,24,1051,3196,686)
ppi<-c(2330,2252,821,1914,1943,2107,1702,640,549,1638,1129,2731,107,2585,1159,2183,1119,421,920,1143,2540,2799,1454)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006897"
rlt[mytot,2]<-"YCR009C"
ori<-c(2611,1873,1538,693,2773,2453,1897,866,2110,3064,2913,210,2449,726,1626,3115,152,1191,2236,2847,2704,2984,2019,1645,1827,2175,2165,58,2713,2835,2740,1888,1367,385,2422,2507,1638,333,1817,2363,2478,203,2709,3168,168,2812)
ppi<-c(2656,2587,583,321,3020,2370,1385,2540,3089,2837,2629,382,2175,1568,2609,2712,1068,1905,2290,3142,2552,3127,1381,1256,1074,2526,2534,1547,2020,3076,2948,2093,1417,2835,1544,2713,1244,2099,1549,2150,2620,941,2104,2663,809,2215)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006970"
rlt[mytot,2]<-"YCR009C"
ori<-c(1089,3048,1897,2110,1715,2913,715,302,2118,1578,2125,2704,166,2606,2313,2165,1131,1583,2507,3095,2478,2028,2902,1631)
ppi<-c(1134,3023,1385,3089,1112,2629,2092,1352,1716,788,2483,2552,2198,2780,2522,2534,2453,965,2713,2716,2620,2470,2679,2236)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006365"
rlt[mytot,2]<-"YCR035C"
ori<-c(2943,3130,3083,2916,2305,2941,1956,3133,3135,2475,2914,3181,477,1380,2195,3124,3172,3043,3136,3099,2982,3134,3000,3077,3137,3052,3182,2842,2861,3110,2852,367,2885,1059,2724,2714,3190,2100,2831,3167)
ppi<-c(3020,3154,2832,2994,2927,3203,977,3199,3049,2103,2954,3178,2289,750,3048,3202,3076,3050,3204,3187,2988,3188,2967,3161,3077,3121,3189,2350,2867,3126,3140,674,3040,3201,2739,2857,3181,2951,2795,3182)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006402"
rlt[mytot,2]<-"YCR035C"
ori<-c(2941,3133,1188,2422,1122,477,3066,3145,2195,3124,3136,2912,3095,3174,1218,2384,2505,1059,2724,2173,2714)
ppi<-c(3202,3199,2451,2409,2440,2289,2854,3041,3048,3202,3204,2972,2662,3123,1243,2744,2455,3201,2739,2140,2857)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000282"
rlt[mytot,2]<-"YCR038C"
ori<-c(3012,2882,542,2749,1639,1004,1027,4,1160,1388,2771,600,1173,2580,670,22,3173,504)
ppi<-c(2911,2941,290,2858,2035,213,92,1273,979,2344,2977,208,1847,2312,283,15,3187,2136)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007124"
rlt[mytot,2]<-"YCR038C"
ori<-c(1847,2996,2828,1855,1162,1868,330,2493,1063,408,1821,1388,1115,1327,1773,3188,1643,3052,2704,1589,744,184,315,2580,2389,323,1986,1717,668,1924,1085)
ppi<-c(2446,3048,2659,1476,778,2319,2188,3025,484,2142,1880,2344,116,1302,2076,3195,2008,3026,2673,765,1852,2297,1523,2312,2044,1251,1686,2340,2249,1726,596)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007264"
rlt[mytot,2]<-"YCR038C"
ori<-c(1847,187,2472,1868,1920,455,2152,2524,2973,4,2345,3112,483,1717,2037,668,667)
ppi<-c(2446,1389,2306,2319,2126,1288,1881,3018,3053,1273,2125,2686,1204,2340,1230,2249,2423)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006367"
rlt[mytot,2]<-"YCR042C"
ori<-c(1282,2496,2626,2391,3026,2676,3004,2741,2125,2684,2451,923,2043,2633,2523,247,2606,1643,948,1437,500,3086,1944,1295,544,3107,2209,779,1089)
ppi<-c(1456,2927,2178,2885,3120,2238,3046,2798,2748,1739,2854,2179,2744,2594,2377,1384,2436,2735,2401,719,238,3060,2699,2620,843,3054,2730,235,2745)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000282"
rlt[mytot,2]<-"YCR047C"
ori<-c(1587,1339,614,1712,3144,2623,1031,2624,2753,2298,1295,3174,1647,850,3107,2947,1985,2592)
ppi<-c(1612,734,1980,914,2681,2322,141,2109,2829,2168,423,3166,2363,2236,3121,2998,1374,1909)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006365"
rlt[mytot,2]<-"YCR057C"
ori<-c(2712,3117,2979,3005,3075,3132,2539,2941,3187,1010,3152,3190,708,2702,3015,3042,3148,3130,3095,3121,3102,3185,3169,3155,3150,3079,3181,3100,3086,3171,3161,2079,3165,2860,2577,3051,3143,2589,2780,3133)
ppi<-c(2868,3104,3049,3109,3172,3093,1629,3112,3124,2330,3148,3170,2323,2784,2881,3084,2997,3142,3118,3191,3066,3186,3080,3199,3143,3097,3195,2718,2998,3184,3201,1805,3157,3079,2810,3078,3149,3090,2731,3147)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030490"
rlt[mytot,2]<-"YCR057C"
ori<-c(1978,3005,3172,3186,3183,2958,3102,3138,2543,3150,2333,2731,1037,3086,3182,3038,3201,3165,2971,3060,2589,3139,3168)
ppi<-c(2744,3109,3146,3173,3163,2955,3066,3198,2524,3143,2324,2690,1580,2998,3040,2888,3169,3157,3116,3110,3090,3194,3162)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006457"
rlt[mytot,2]<-"YCR060W"
ori<-c(3161,1606,2913,1125,3020,2970,1522,3029,3125,2321,3091,338,2671,1392,1862,2673,267,2099,323,2138,1725,2935,1509,2858,2313,2130,2636,2242,1831,1175,556,1113,2434,1629,2511)
ppi<-c(2269,748,2749,1866,3080,2999,2094,3105,3049,2316,2367,726,3203,2138,829,2884,169,2120,1064,1938,1470,1988,2777,2440,1525,1444,2901,2577,2389,584,70,1883,1841,850,1960)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000282"
rlt[mytot,2]<-"YCR063W"
ori<-c(3188,2909,2724,1687,3193,598,633,531,441,3139,2782,2513,2482,2456,3099,1365,2651,1433)
ppi<-c(3127,3106,2362,825,2601,132,32,1622,669,2590,3080,2582,2192,2425,3132,793,2792,2865)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006888"
rlt[mytot,2]<-"YCR067C"
ori<-c(2391,2239,1372,3185,427,1122,2179,360,1702,2459,706,1149,1184,2884,56,402,1911,148,1682,3011,1129,1471,1835,486,267,3137,1870,2612,2303,530,249,2773,2522,867,1816,145,1840,2165,2204,194,2379,1851,3095)
ppi<-c(1954,1607,1950,3186,2273,1873,2533,894,2077,2131,372,1155,2443,3017,149,173,2665,1923,2146,2322,801,1879,1241,193,533,3030,1278,2809,2080,2126,2389,2950,2885,2522,1338,1020,2086,2133,1566,1230,1858,2615,3151)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YCR073C"
ori<-c(1894,2301,1902,1760,3091,1154,2383,458,2256,2362,2424,1372,2522,2605,268,2419,3146,463,1052,146,899,1813,2151,2054,2673,2627,1845,2286,877,206,1434,1101,3076,2030,2948,1261,704,1169,2595,1166,1302,355,1116,416,1443,968,1163,312,2591,1778,2504,825,2833,2933,854,1076,426,1489,2096,391,1901,2389,91,1977,2136,2534)
ppi<-c(1122,2333,874,647,2239,693,1732,849,2157,2395,2047,2608,2563,2515,1140,2129,3097,965,577,1776,1157,2709,2694,1818,2734,2374,2507,2006,1261,1530,843,1698,3194,1415,2928,1868,714,721,2173,720,471,1119,594,194,2708,1284,1309,1533,1987,1380,3201,2131,2672,2917,2566,2636,1929,788,1464,1855,1838,2535,1244,2520,1752,2504)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000122"
rlt[mytot,2]<-"YCR081W"
ori<-c(386,2151,16,2457,2752,245,3134,179,2357,2055,2571,869,3033,3003,3049,2937,2027,702)
ppi<-c(1908,1072,16,1941,2713,1464,3081,33,2267,2134,2536,434,3068,2573,2822,2676,2309,932)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000122"
rlt[mytot,2]<-"YCR093W"
ori<-c(1622,2128,568,2768,2834,2346,2813,2316,1378,2642,269,1671,1207,1605,3064,2607,2373,1855)
ppi<-c(2417,1675,192,2932,2856,2288,2713,1423,1903,2724,144,1111,1356,1743,3104,2117,1902,1631)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000027"
rlt[mytot,2]<-"YDL014W"
ori<-c(2984,3061,3145,2626,2935,3055,2922,3125,3104,2886,3116,3089,3191,2961,1383,3095,3134,2687,3188,3178,3008,2891,2972,1273,3022,2612)
ppi<-c(3173,3127,3139,2670,2964,2951,3114,3193,3054,2976,3136,3190,3200,3151,2750,3051,3166,2840,3181,3199,3082,2919,3014,648,3131,2592)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000154"
rlt[mytot,2]<-"YDL014W"
ori<-c(2949,2894,3179,3201,3181,3151,1259,3004,3160)
ppi<-c(2945,2955,3128,2894,3201,3154,659,3203,3168)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006365"
rlt[mytot,2]<-"YDL014W"
ori<-c(2576,3054,2852,3010,2984,3047,1936,3084,2949,2136,2935,3158,945,1745,2490,3039,3100,3050,2928,2922,2894,3025,2886,2920,3179,2723,3191,3201,3181,3134,3058,2014,3151,2655,2778,3088,3165,3004,2948,3160)
ppi<-c(2719,3055,2969,2802,3173,3015,1197,3162,2945,2336,2964,3170,2404,1069,2801,3052,2975,3137,3042,3114,2955,3046,2976,3132,3128,2344,3200,2894,3201,3166,3159,1607,3154,3006,2839,3105,3165,3203,2972,3168)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030490"
rlt[mytot,2]<-"YDL014W"
ori<-c(1761,3010,3176,3124,3203,2412,2894,2982,2962,3179,2635,2707,1521,3181,3166,3031,3180,3151,2693,2937,3004,2925,3128)
ppi<-c(2703,2802,3148,3129,3184,1699,2955,3142,2997,3128,2805,2723,1776,3201,2960,2858,3167,3154,2822,3125,3203,3016,3133)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YDL017W"
ori<-c(152,195,468,915,1430,2917,2261,1462,2695,1718,1916,331,1490,1867,2669,994,1832,926,2552,2672,278,17,3183,2124,2502,1925,2563,1341,1072,1313,741,65,3117,3053,2314,2436,1251,136,2402,2834,1287,508,574,1120,491,1784,25,37,2484,167,1055,2480,569,2668,1864,2766,2754,3148,1544,1391,1592,2409,379,1838,486,2278)
ppi<-c(96,2179,310,94,2781,2989,1774,932,2662,1814,3149,2353,2392,1973,2666,534,1198,1941,2371,1792,556,1427,2861,2001,2126,2740,2197,1307,1875,1540,392,1374,3129,2988,2169,2477,1155,80,2983,2972,560,1208,1633,588,2203,2615,949,1835,2956,1495,376,2062,609,2849,1968,1747,2578,3159,858,2611,1789,2600,1138,2370,1213,1796)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007124"
rlt[mytot,2]<-"YDL024C"
ori<-c(627,3035,2398,529,1646,2516,1695,1456,648,63,1494,756,1544,867,2798,3188,699,2569,2802,1095,263,1430,723,1903,1836,481,2242,2252,1476,1830,2255)
ppi<-c(2363,2583,1179,1013,855,2784,2429,871,232,2206,1412,2360,342,1082,2345,3178,1589,2593,2927,516,2174,2400,1750,2247,2393,1030,2745,2299,2375,2398,988)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007015"
rlt[mytot,2]<-"YDL029W"
ori<-c(1821,1760,1013,2519,2345,2480,3197,2711,1152,2395,2983,473,1641,372,1986,100,1684,1231,2475,1003,1200,3201,2493,1207,2326,3173,2113,2744,1210,2485,3175,1223,2331,1578,342,994,1844,2079,1455,245,2668)
ppi<-c(1543,2296,1848,2436,1817,1944,3195,2110,1074,1949,2310,2399,1259,1768,1687,2232,1559,1742,1360,1842,2398,3108,2068,2420,2590,3200,1766,2667,1885,3028,2334,2401,2373,1381,149,1325,2169,2348,2187,1452,2141)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000398"
rlt[mytot,2]<-"YDL030W"
ori<-c(1232,2384,2073,3131,2259,2361,2272,2712,2915,436,2195,3092,1829,1254,3195,3187,2434,1774,618,2242,3148,1932,1483,637,837,1325,1921,1656,313,541,1772,1733,181,1194,944,1335,2509,2010,2575,1523,385,2964,2560,1253,2183,1239,256,1792,1448,433,1306)
ppi<-c(1034,2103,1263,3059,2167,2600,2051,2667,2237,117,1243,2993,2355,1489,3204,3191,2507,792,2543,2120,2421,2477,2480,1098,2091,872,1348,1393,64,781,2152,1310,94,2134,1949,2210,2412,3108,2945,1422,2381,2991,2243,1441,2255,2465,1805,828,1401,1889,2292)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000027"
rlt[mytot,2]<-"YDL031W"
ori<-c(3024,2936,2697,2311,3203,3056,3042,3071,3165,3162,3160,3060,3131,2954,2143,3137,3169,1792,2980,3190,2534,2923,2140,109,2781,2828)
ppi<-c(3157,3049,2739,1818,3200,2991,3163,3186,3119,3133,3153,3178,3189,3151,3126,3084,3188,2177,3104,3195,2799,2971,1525,73,3028,2710)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006365"
rlt[mytot,2]<-"YDL031W"
ori<-c(2839,3194,2364,3111,3024,3107,2783,2673,2905,1945,3203,3139,1057,3066,3141,2934,3193,3076,2930,3042,2986,3119,3162,3184,3110,2935,3131,3181,3166,3169,3134,2873,3033,2893,2050,3178,3068,2801,3030,3116)
ppi<-c(2946,3190,2976,2923,3157,3034,2293,2959,3035,2695,3200,3143,2438,3110,2842,3001,3039,3123,3044,3163,3025,3135,3133,3202,3094,2943,3189,2870,3076,3188,3198,2837,3090,3019,2759,3162,3112,3150,3125,3130)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007124"
rlt[mytot,2]<-"YDL035C"
ori<-c(1684,2874,2430,1594,2772,1739,224,1468,426,2005,460,1639,2120,620,813,2515,1326,2847,2830,508,2996,873,2458,1732,2404,1571,2307,2887,2941,1406,2417)
ppi<-c(1952,2654,1595,2410,2634,1127,2301,3202,199,2081,582,1946,1082,1066,2206,2857,1183,2923,2980,210,2334,1809,2352,1937,2218,1902,1565,2270,1956,1872,3203)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006348"
rlt[mytot,2]<-"YDL042C"
ori<-c(2401,39,1281,2370,2658,1575,1632,351,1337,3048,1123,370,2650,656,2451,2178,2705,3051,2344,622,2069,1365,1189,859,119,3013,2105,1211,659)
ppi<-c(2361,44,2872,1978,2924,1175,2173,139,705,3100,2038,74,2791,1466,1959,1700,2843,3036,1856,2639,2677,647,3057,2227,90,3080,1935,803,435)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000082"
rlt[mytot,2]<-"YDL047W"
ori<-c(2391,2187,1206,945,2042,3182,3159,809,3065,1325,2345,2386,1961,3198,1170,2627,1752,3196,2970,1937,2809,2725,2371)
ppi<-c(2250,2543,692,1974,1907,2329,2223,538,3099,2091,3203,2923,1397,3049,278,2483,3201,3142,3121,2214,2887,3030,2975)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YDL047W"
ori<-c(893,2158,1012,2787,2187,3004,563,1475,1797,58,598,2241,284,1783,2814,430,280,1746,1491,2386,582,1626,1624,2422,2149,698,2655,472,2598,3198,1064,2237,1147,919,883,1498,1592,750,2862,2418,1127,3090,817,3097,1481,2599,1267,2524,610,1365,2176,2028,1502,722,2809,2725,1016,468,2665,2679,1936,165,1886,1240,1239,1259)
ppi<-c(413,2042,530,3052,2543,3118,698,1767,1823,1331,1328,2394,1976,1946,2537,229,942,2333,908,2923,782,2264,1664,2478,1857,2298,2675,1261,2421,3049,462,2528,430,567,1008,1869,1327,486,1768,2630,572,2476,1042,3149,2538,2067,1248,2608,1618,1752,1594,2045,1132,216,2887,3030,1643,169,2771,2671,1830,1542,1731,1629,1429,768)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YDL047W"
ori<-c(704,746,2918,2158,764,1768,164,2619,1827,1744,1323,1142,497,842,1875,775,2885,326,2850,205,1201,218,1148,1341,711,2655,137,1658,2132,1895,1411,3055,2709,805,2680,3083,3080,2984,2281,2286,2078,393,1445,2871,2551,2494,1984,1311,2146,2273,909,2503,2031,287,2482,1641,1327,2904,1233,1414,1088)
ppi<-c(1028,2324,3039,2042,327,1378,89,2304,1435,1800,548,1260,249,1020,2308,1176,2427,2591,2582,1518,454,644,574,1158,556,2675,2069,1160,1444,1029,889,3051,2826,1829,2143,3138,3132,2971,2086,1837,1845,952,798,2485,2396,2138,1268,734,2121,1987,366,2548,1525,1173,2193,1638,728,2742,904,988,2398)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006457"
rlt[mytot,2]<-"YDL065C"
ori<-c(1111,2903,224,2655,1177,3146,1381,2127,2060,2493,1540,2852,389,1805,783,2877,3138,641,2656,3179,2727,2066,2746,1295,3041,2649,2521,2510,2305,85,2626,2819,2472,2250,2518)
ppi<-c(1648,3035,1625,1778,598,3198,903,2839,1554,2615,2800,2698,630,1685,176,3031,3186,1753,2610,3073,2568,2129,2708,1346,3125,2551,3030,2267,2918,53,2808,2653,2124,1292,1875)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0009060"
rlt[mytot,2]<-"YDL067C"
ori<-c(2308,2985,2073,1562,2249,3087,3200,2916,2742,217,2010,504,3177,2255,2138,2274,820,3052,2962,1842,925,2181,1941,2806,3128,3201,2667,2622,1877,2980,1417,778,1768,2030,1419,2282,2720)
ppi<-c(1798,2715,1971,768,1709,3121,3162,2838,2849,101,1307,225,3157,2640,1042,1848,339,3017,2224,677,278,1592,2296,2892,3149,3203,2794,2672,1011,2437,503,1384,1588,972,2460,2297,2338)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006348"
rlt[mytot,2]<-"YDL074C"
ori<-c(494,3189,1933,1139,1344,2495,1617,2551,1817,2519,1579,3070,2569,2644,2657,1816,1882,2301,2500,2666,3014,1969,2323,2208,1808,1691,2808,2046,3022)
ppi<-c(1525,3176,1939,1899,1395,2630,2030,2765,1219,2450,1778,3082,1914,2569,2326,1863,1406,1435,2287,2578,2694,973,2401,2355,866,1090,2681,2792,2890)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006414"
rlt[mytot,2]<-"YDL081C"
ori<-c(3185,3187,3202,3200,516,2873,3147,3199,3151,3164,1479,2718)
ppi<-c(3188,3195,3191,3202,17,3160,3162,3199,3186,3192,1016,3165)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000398"
rlt[mytot,2]<-"YDL084W"
ori<-c(1773,2109,2237,2299,2846,1541,1750,1182,2736,1171,2,587,1452,1430,2314,2335,1555,2443,285,325,700,105,292,310,854,716,1621,670,1533,485,2025,1501,1226,446,9,1094,2276,1355,2082,252,468,645,2781,58,230,1701,622,1943,1202,344,2195)
ppi<-c(1176,1411,2400,1484,2475,2432,2632,2695,2514,595,6,576,2816,752,1610,1756,1091,1531,2206,426,2054,1383,2364,1018,1894,690,1577,1351,574,776,2082,2220,566,2065,1862,1969,1928,1281,1353,630,2453,220,2535,702,1557,2195,1064,802,565,2376,2796)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006348"
rlt[mytot,2]<-"YDL084W"
ori<-c(824,3031,1096,2839,542,1092,200,2661,2646,175,1771,2833,2607,3117,1694,1022,407,242,521,1349,775,877,2913,3158,3101,268,1428,476,1937)
ppi<-c(1974,3104,2237,2760,961,557,1030,2469,2686,101,2839,3045,2466,2859,2128,1194,232,364,531,2445,1533,366,2754,2543,3146,211,1060,297,1280)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006406"
rlt[mytot,2]<-"YDL084W"
ori<-c(2926,1784,1799,1714,2572,3176,1938,3196,2843,1505,2999,2798,2659,1550,991,1171,1776,2302,1090,1251,2162,759,48,2148,325,2551,457,2184,2602,2707,2248,485,2397,326,2575,979,792,3082,2111,2055,2428,2701,2358,1931,479)
ppi<-c(2967,1278,2181,1046,2536,3180,2746,3196,2505,2604,2566,2666,2200,602,2553,595,2349,2402,528,653,1129,785,315,2607,426,2617,2145,2925,2548,2435,2460,776,2126,141,2936,412,2439,3016,2478,2373,2038,2849,2228,2620,1820)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006406"
rlt[mytot,2]<-"YDL088C"
ori<-c(2048,1557,3203,1957,892,1074,1963,2908,2265,2828,1357,652,2083,3196,3154,2759,3000,1901,1431,1893,1002,1534,2986,592,1817,2293,1098,1771,2747,2790,1955,3143,2664,2787,2063,1373,2581,2486,1213,818,2187,699,2169,1288,2627)
ppi<-c(1388,718,2693,1505,1985,379,1620,2934,2830,2590,1694,2616,2802,3200,2651,2722,2555,2427,998,1565,894,1221,2983,1550,1937,2482,2412,1900,2597,2540,2416,3075,2690,3163,2099,544,2534,2735,3130,2277,1848,145,2285,2130,2501)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006611"
rlt[mytot,2]<-"YDL088C"
ori<-c(2048,3203,1957,892,1671,2265,2828,652,2083,3196,3154,3000,1901,1893,2782,2293,1098,2747,2790,2664,2063,2581,2486,1213,1288)
ppi<-c(1388,2693,1505,1985,2537,2830,2590,2616,2802,3200,2651,2555,2427,1565,2681,2482,2412,2597,2540,2690,2099,2534,2735,3130,2130)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000398"
rlt[mytot,2]<-"YDL098C"
ori<-c(1372,3022,3151,2220,1638,1776,2256,2354,2429,952,2673,2680,960,385,3154,2877,2702,2342,290,2898,3163,1879,1670,390,610,2070,1767,2309,376,415,2509,1809,369,1899,2096,319,2502,1716,1837,1536,624,3028,2028,1874,2596,1793,300,1261,386,881,622)
ppi<-c(1199,3100,2422,1761,2216,2098,1984,2377,1975,489,2110,2307,1648,3203,3189,2890,3094,1418,2182,2736,2236,2490,2113,843,1827,1212,1560,1977,183,714,2293,1065,152,1981,2072,1798,2496,1523,1303,1306,2212,3008,2761,1988,1927,2028,882,462,600,1847,2083)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YDL101C"
ori<-c(510,1397,228,2580,2941,3167,2539,2872,2135,704,2631,262,2855,3181,3068,602,2371,106,1323,2934,1587,991,3033,2241,2905,2349,2208,1209,1442,1635,1149,10,3114,576,956,2513,625,1275,3110,344,2028,2355,315,1691,1556,636,218,765,2949,844,1505,2092,2907,1311,3012,1226,842,990,1537,366,2402,1356,383,364,274,382)
ppi<-c(271,2909,180,2018,3052,3181,2185,2199,1220,1715,2507,2511,2671,2980,2941,367,2335,2406,671,2342,1687,2094,3045,1657,2707,2727,2750,1434,3203,2082,555,1259,3158,402,1123,2414,826,717,3135,191,2146,2278,1260,932,2612,1356,1796,1822,2747,1586,733,1718,2984,736,2318,1889,2820,505,960,2334,2443,2678,1500,2240,1291,136)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006367"
rlt[mytot,2]<-"YDL108W"
ori<-c(1817,1159,2495,3028,1801,1908,3201,3013,539,1658,3036,1169,1963,1533,821,126,73,1734,2936,416,2428,2281,1264,682,47,1285,3182,1697,1052)
ppi<-c(850,2080,2123,2153,2195,2388,3204,2464,1606,1978,2171,1968,1563,1397,2252,1030,42,2338,2443,182,2095,1057,2146,1102,593,1125,3202,1264,2148)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YDL108W"
ori<-c(1758,841,2294,523,1930,478,2349,1803,26,760,2368,1638,2557,1034,873,2892,2797,1255,727,813,3009,2085,1776,749,1963,2738,1251,3083,800,391,364,1483,2678,2086,2456,1449,2475,1828,233,2433,2561,10,2724,202,1441,1699,1565,162,1552,732,665,960,1438,1926,36,787,2034,2205,1054,597,1242,3097,310,2240,1902,1920)
ppi<-c(971,2295,1849,20,1894,255,2082,2053,262,772,2114,2326,2515,2023,1244,2934,2958,1218,341,2613,2919,1657,1427,892,1563,2220,2389,2875,1356,2052,133,1539,2302,1038,2394,1987,2628,1043,296,1839,1912,572,2048,109,2414,1461,1422,1661,2238,1221,286,1774,1265,872,2492,2511,2046,1433,455,2814,1310,2539,964,2137,1577,1055)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006365"
rlt[mytot,2]<-"YDL111C"
ori<-c(2992,3125,2936,3189,3096,3136,2574,2811,3172,1820,3119,3199,201,2918,2969,2964,3110,3088,3064,3111,3144,3140,3166,3183,3068,3117,3145,3098,3108,3051,3165,2284,3006,2219,2040,3127,3179,2370,3049,3071)
ppi<-c(3067,3117,3200,3042,3119,3189,1717,3192,3077,2460,3127,3190,2450,2997,3142,3201,2933,3122,3203,3180,3049,3168,3079,3198,3087,3113,3183,2603,3012,3166,3197,2086,3060,3202,2083,3138,3163,3099,3043,3105)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006402"
rlt[mytot,2]<-"YDL111C"
ori<-c(2936,2811,933,2373,1838,201,2956,2849,2969,2964,3064,2976,1819,3107,1057,2468,1092,2219,2040,2188,3127)
ppi<-c(3200,3192,2412,2393,2539,2450,2649,2722,3142,3201,3203,2905,2709,3140,1356,2954,2427,3202,2083,2384,3138)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006623"
rlt[mytot,2]<-"YDL113C"
ori<-c(3130,2098,1648,2835,2981,1232,1633,2574,3002,1345,2976,1554,3145,2794,1266,1815,1839,844,1751,2765,2266,426,991,793,2709,3129,2001,1531,3166,2412,2760,406,396,578,3097,2427,2973,2416)
ppi<-c(3098,1765,1733,2812,2456,1711,1870,2735,2586,612,3066,1943,3072,2697,1221,2187,844,1111,645,2606,2650,1904,292,720,2511,3104,1410,1322,3008,2560,2603,671,629,1438,2944,2722,2979,2183)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006406"
rlt[mytot,2]<-"YDL116W"
ori<-c(2156,1604,3203,1489,575,1227,2293,2818,2048,2787,1147,525,1008,3186,3191,3023,3046,1449,1565,2014,1758,1704,2911,942,1429,2392,1497,1608,2332,3003,1962,3094,2882,2793,1717,1557,2513,2531,1502,684,2064,671,2641,1150,2704)
ppi<-c(1585,805,3201,929,2486,612,1744,2869,2290,2814,1685,1991,2741,3197,2480,3041,2403,2372,1079,1884,1587,1372,2896,1691,2006,2367,2370,1783,2423,2441,2596,2999,2626,3140,1563,742,2456,1965,2659,2236,1512,229,2905,2136,2135)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006611"
rlt[mytot,2]<-"YDL116W"
ori<-c(2156,3203,1489,575,1434,2048,2787,525,1008,3186,3191,3046,1449,2014,3002,2392,1497,2332,3003,2882,1717,2513,2531,1502,1150)
ppi<-c(1585,3201,929,2486,2315,2290,2814,1991,2741,3197,2480,2403,2372,1884,2908,2367,2370,2423,2441,2626,1563,2456,1965,2659,2136)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000082"
rlt[mytot,2]<-"YDL132W"
ori<-c(2732,1048,169,897,726,811,1104,1431,390,1765,649,343,879,1115,1966,722,2403,1648,23,3179,1205,109,917)
ppi<-c(2996,2552,83,1161,749,2943,2467,531,510,3005,215,1493,462,1787,950,2922,2407,1357,138,3028,2167,943,1077)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0016567"
rlt[mytot,2]<-"YDL132W"
ori<-c(608,811,1691,1378,1104,1765,1116,1889,2154,449,257,722,1711,2390,3079,2824,410,831,2602,3179,1638,279)
ppi<-c(1553,2943,2177,1241,2467,3005,1967,965,2254,2655,516,2922,2178,2142,3105,2143,1620,177,2182,3028,1969,1328)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007015"
rlt[mytot,2]<-"YDL135C"
ori<-c(2548,899,1369,1325,818,2404,2669,808,1701,660,2463,2673,1492,130,1229,2410,2975,2509,513,118,1713,1693,2475,2803,2133,3165,2903,3172,2657,2294,2828,2811,1756,1202,1606,1290,756,2456,1700,618,2700)
ppi<-c(2922,2269,2725,1306,425,2608,2749,1817,1793,315,2189,2516,805,1564,718,2868,2496,2529,152,3189,1880,2589,2669,2252,2413,3124,2943,2825,2125,1286,2710,2321,2869,1153,826,2287,2796,2425,2085,2361,3088)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007264"
rlt[mytot,2]<-"YDL135C"
ori<-c(706,208,1012,808,687,1772,1571,329,660,3180,130,118,2903,756,2031,1642,2700)
ppi<-c(2800,1430,1714,1817,2363,2142,1397,128,315,2948,1564,3189,2943,2796,1196,2852,3088)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006888"
rlt[mytot,2]<-"YDL145C"
ori<-c(3046,2252,1709,3103,1353,579,2815,1390,3082,1268,896,2986,926,3180,356,400,2828,665,2565,2796,216,3151,2761,727,1717,3166,1493,3196,2389,1606,614,884,2735,1654,2449,984,3028,2586,2961,1130,1557,2896,3187)
ppi<-c(3106,1769,2232,3038,2388,1778,2885,723,2253,2078,1788,3030,2196,3202,431,264,3043,2368,2252,2322,423,3078,2947,316,1581,3036,823,3193,2244,2428,2231,741,2685,2742,2838,1881,3165,2378,3015,2027,872,2951,3090)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000723"
rlt[mytot,2]<-"YDL220C"
ori<-c(2105,2340,2306,2876,2631,2395,3005,357,1527,2126,1334,1994,2772)
ppi<-c(2238,3002,2028,2697,2164,2453,3110,202,885,1553,470,1445,2730)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006888"
rlt[mytot,2]<-"YDL226C"
ori<-c(2374,2985,945,313,1172,2293,3009,2257,1118,666,1919,2926,3195,1717,1832,1464,1462,1645,2088,1027,1878,2027,1288,2272,2664,2136,2727,978,1948,3096,3088,175,1014,1467,1677,2104,2411,1266,2352,1617,1299,858,1543)
ppi<-c(2385,3139,1336,792,685,1494,3119,2524,1263,1179,1589,3025,2752,886,1126,928,1120,2290,1565,2908,1865,1379,1134,1811,2529,1587,2787,822,1459,2944,2371,259,1524,1794,919,1559,1592,2739,2205,1500,870,1044,1607)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006897"
rlt[mytot,2]<-"YDL231C"
ori<-c(2856,372,3074,1678,2567,2807,378,1868,811,2558,2557,160,3160,2,460,807,444,358,2521,1929,549,2226,60,1047,1831,653,1359,933,691,1788,2527,2653,2945,1200,1514,756,2602,1524,575,2290,572,1025,645,2580,838,560)
ppi<-c(2374,2022,3060,1013,2620,2764,215,2693,2305,2049,2754,201,3142,1250,2872,2171,1223,2694,2767,1488,1958,1939,665,1032,1021,1316,2130,1509,2625,1039,2106,2571,2803,1990,491,1377,2083,2824,1849,1758,2276,1723,1794,2480,1297,2340)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006970"
rlt[mytot,2]<-"YDL235C"
ori<-c(2293,3050,578,335,359,550,937,868,1147,1805,2467,2609,100,1520,230,450,1046,1752,138,1679,2379,589,1633,1770)
ppi<-c(2374,3065,288,2494,364,2111,2321,1681,2810,1712,2469,2488,2302,1284,1319,2293,2450,3200,604,2331,2278,2602,2272,2243)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007264"
rlt[mytot,2]<-"YDL240W"
ori<-c(2553,2572,911,1379,2373,1667,2541,1587,1086,273,3187,3130,1203,2486,1144,832,1230)
ppi<-c(2563,2690,2967,1513,3037,1130,2525,630,538,1996,2723,2855,2796,2831,409,2396,3188)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000082"
rlt[mytot,2]<-"YDR002W"
ori<-c(1789,1099,2136,2105,692,2999,2958,642,1843,8,2248,3042,953,2927,95,3016,1494,2562,2411,288,1752,2733,1298)
ppi<-c(2029,1975,1565,1223,2510,2761,2731,1051,1542,1662,1271,2670,482,2709,6,2742,1335,1941,1493,2010,2527,2692,1519)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006606"
rlt[mytot,2]<-"YDR002W"
ori<-c(252,1603,1518,2799,1526,2230,573,1644,2945,1146,1352,2933,494,2880,526,1626,2461,1442,3106,1596,477,693,2422)
ppi<-c(2194,1063,938,2114,1533,2168,2275,1988,2322,979,2326,2509,669,2854,2429,2052,2419,1034,3139,1518,2482,2105,2120)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006261"
rlt[mytot,2]<-"YDR013W"
ori<-c(1223,2751,1215,1259,2698,3106,2597,2965,1,163,3051)
ppi<-c(1177,3203,1222,1118,2811,3199,2763,3148,809,106,3160)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006365"
rlt[mytot,2]<-"YDR021W"
ori<-c(1887,2526,1948,2560,1857,2795,2553,1009,2450,227,2081,1911,665,3191,2476,507,2165,1908,1025,1779,2690,2854,3076,2550,1962,2935,2038,1659,1673,1212,2990,2266,2577,2141,3094,2779,1745,1876,1366,1639)
ppi<-c(1341,2329,1973,2467,1150,2952,1912,488,2762,2163,1648,1320,2513,3194,2337,1206,2435,1254,1252,719,2426,2893,2889,3003,1747,3132,1703,1831,1457,1639,3090,1696,1763,1917,3168,2891,1087,1153,421,708)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006006"
rlt[mytot,2]<-"YDR043C"
ori<-c(1415,3102,2290,3094,1247,924,2001,2738,1008)
ppi<-c(1587,2520,2994,3140,562,484,1483,2810,2435)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YDR052C"
ori<-c(1238,404,1659,2314,1916,2347,2470,2055,575,2446,2421,740,2902,3175,2080,2290,1895,494,2235,1663,1713,1103,3130,1397,2500,2458,426,3119,193,123,1564,351,3022,838,1723,931,1527,2202,2243,795,2231,296,1737,78,1458,287,386,591,2911,1979,1962,560,1354,2703,853,848,223,2490,1386,58,1909,2221,367,1835,323,2568)
ppi<-c(609,2187,517,1452,2558,2594,1850,3145,757,2953,2043,2050,1774,2522,1630,1695,2411,982,1584,2023,1283,2147,2929,1188,1995,2417,2729,2860,995,957,712,1820,2886,666,1577,1501,1384,2027,1895,458,1666,843,676,56,2346,874,3202,1769,2349,1948,1014,1572,1171,1939,1917,1566,2071,1890,611,2153,1535,2719,1337,2460,1100,3024)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000082"
rlt[mytot,2]<-"YDR054C"
ori<-c(1671,817,1742,3097,905,2898,3190,153,2211,250,2760,2348,573,3202,1452,2869,1282,2698,2382,1836,2582,2772,847)
ppi<-c(2359,2244,1123,2946,2869,2947,2915,104,2379,3014,3059,2796,303,2943,453,2929,1726,2604,2402,2876,2724,2903,1439)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0016567"
rlt[mytot,2]<-"YDR054C"
ori<-c(1036,905,72,2932,3190,250,2253,2180,247,1623,2689,2869,1672,926,2161,1175,1470,1126,467,1836,2079,1684)
ppi<-c(1698,2869,1162,2980,2915,3014,2031,1488,1655,2856,2775,2929,1958,362,3194,1943,1973,534,1468,2876,2894,1959)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000027"
rlt[mytot,2]<-"YDR060W"
ori<-c(3189,3076,3041,2639,3072,2942,2899,3074,3190,3058,3117,2859,3197,2821,1679,2880,2992,2550,3033,3150,2795,2579,2863,726,2966,1745)
ppi<-c(3178,3187,3069,2712,3072,2870,3137,3181,3151,3021,3118,3136,3196,3107,2690,2992,3173,2714,3129,3191,2962,2439,2986,381,3157,1051)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006897"
rlt[mytot,2]<-"YDR069C"
ori<-c(2928,1121,2772,2130,2300,2870,2248,2676,2434,2389,2947,121,3140,380,605,2860,152,2005,2968,3071,810,2626,498,488,918,859,3111,235,2088,2380,1989,1400,1734,791,1255,1593,1625,588,566,2514,977,280,888,2549,123,1158)
ppi<-c(2562,1630,2686,1568,1843,2982,1750,2308,2329,2477,2296,404,3042,1871,2788,2516,848,2815,2692,3147,2150,2566,834,593,363,1061,2285,1198,2654,2412,1407,1758,1499,2733,950,1673,1178,985,2107,2418,2475,1029,1636,2336,742,2189)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YDR077W"
ori<-c(1497,3025,2838,1569,1464,3078,1749,974,2878,1568,1296,565,2620,2251,2176,2372,1745,3172,16,2956,1064,2407,3140,1185,1289,287,1286,1186,765,1545,611,3198,66,141,1733,3143,3111,890,265,1630,46,1178,186,983,1516,568,695,634,2602,93,1973,1303,1459,2520,1715,753,1870,736,2818,449,2419)
ppi<-c(1764,2414,2896,2655,815,3028,984,2422,2794,2402,1029,1057,2630,2258,1831,2923,2550,2572,124,2511,575,1955,3166,1722,744,1716,2144,1329,277,858,634,3172,285,2236,2646,3141,3124,584,541,970,1552,1142,69,1205,2513,1731,310,197,2606,21,1161,2061,846,2086,2352,820,1128,1107,2883,123,2204)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0009060"
rlt[mytot,2]<-"YDR079W"
ori<-c(2251,2977,2974,2824,2773,3104,3105,2064,3099,2717,2981,731,2518,3123,2746,3193,2694,3082,590,885,1300,1576,2620,3010,2507,3177,3149,2852,2574,1702,1196,2798,1799,2464,1715,752,1112)
ppi<-c(2926,3064,2979,2946,2864,3123,2992,1573,3139,2770,3049,315,2390,3044,2965,3195,2999,3020,592,240,712,903,2407,3094,2583,3186,3158,2903,2283,1312,1140,2277,1597,1903,2175,888,1908)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006413"
rlt[mytot,2]<-"YDR091C"
ori<-c(1964,2792,2901,164,2527,3196,829,2851,2410,3116,3171,3147,2843,3174,3029,1569,3070,3069,1560,1819,2639,2508,210,887,2703)
ppi<-c(2351,2826,2165,6,2119,3056,1713,2603,2066,3028,3136,3161,2564,3195,2285,2095,2296,2899,2204,2637,2600,2529,455,474,1546)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006979"
rlt[mytot,2]<-"YDR098C"
ori<-c(1346,2964,3094,2852,1419,1808,1318,2365,2258,2160,1914,224,1063,2277,2586,1341,1603,522,2196,2688,1234,2083)
ppi<-c(1242,3021,3138,2987,689,1316,1625,2578,1644,2295,1648,42,943,2265,2526,1245,1050,1057,1722,2396,1791,1533)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007124"
rlt[mytot,2]<-"YDR099W"
ori<-c(2921,1975,484,1640,2980,2425,2190,2914,433,1518,1724,2075,2895,1844,521,1291,2149,2910,2706,721,1988,1212,867,1884,2072,1005,780,1604,760,2907,175)
ppi<-c(2314,1921,243,2049,3028,1888,2573,1882,199,2553,1423,2109,3109,1667,2550,902,3137,3048,2836,432,2725,2145,2338,1842,2549,1245,909,2255,1950,2910,308)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030437"
rlt[mytot,2]<-"YDR099W"
ori<-c(2702,2598,2026,2190,2361,2063,3024,2914,698,1623,2282,1801,65,3114,3026,1303,1989,109,2554,837,1368,321,3162,2844,2568,263,2649,110,702,385)
ppi<-c(2387,2653,2187,2573,1903,2768,3133,1882,851,1953,2797,1317,1823,2671,2960,2322,1984,85,1964,2022,769,625,3105,2893,2752,331,1942,31,1495,1772)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006888"
rlt[mytot,2]<-"YDR108W"
ori<-c(93,332,3183,953,235,2406,58,2321,53,3134,2642,1543,1050,228,2759,2287,919,2836,2301,1610,1576,424,1070,2543,1198,895,871,1805,2833,1187,1515,1861,973,3130,1351,2892,1727,791,807,2077,864,1848,79)
ppi<-c(104,146,3198,1014,164,2059,210,1922,3199,3200,2745,575,2423,525,2672,1991,1156,2676,3197,2306,983,886,1421,2694,1152,1672,425,1162,3204,2565,2111,1621,1734,2297,1000,3202,1197,2088,1094,3201,378,1833,1172)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000070"
rlt[mytot,2]<-"YDR113C"
ori<-c(1776,1177,2507,1270,2985,2988,1953,212,16,2600,2333,1623,2159,3116,982,1449,664,2471,1979,437,2792,2844,387,1446,1123,3173,1945)
ppi<-c(2985,1587,2498,1648,2971,2811,1813,958,508,3203,1962,1534,1799,3171,2803,2904,1745,1959,2373,1207,3094,3052,1349,1929,1165,3131,1797)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006606"
rlt[mytot,2]<-"YDR113C"
ori<-c(1002,1671,2384,1849,1942,88,2735,1489,2583,2465,1145,2745,1149,259,142,2925,2842,2154,1179,2839,1667,601,1599)
ppi<-c(2358,1724,2260,2279,1647,1952,2221,2608,2324,1890,2427,2319,805,1522,2519,2736,2452,1743,545,2698,2248,1739,1553)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0009060"
rlt[mytot,2]<-"YDR115W"
ori<-c(2610,2129,3032,3173,1939,3007,3164,3012,2801,2198,790,660,3003,2695,2834,3019,3198,1973,1925,1059,473,1563,69,1065,1159,2145,2624,2789,1945,1809,1124,1489,1923,779,1868,665,3005)
ppi<-c(2270,1401,2997,3191,1199,3073,3125,3026,2982,1444,354,330,3043,2213,3033,3083,3196,1683,1225,551,147,927,1393,395,588,1629,2805,2607,1120,1269,2610,1374,1614,212,2028,743,2741)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0009060"
rlt[mytot,2]<-"YDR116C"
ori<-c(3095,1632,2820,3135,3044,2618,2707,2898,2710,2845,2153,84,2394,2844,3107,3181,3140,2288,1659,1326,189,3073,1269,2190,2381,2005,3121,3195,1661,529,817,2589,1555,1111,1302,786,3113)
ppi<-c(3132,913,2942,2824,3103,2623,2720,3040,2792,2948,1593,82,2553,2629,3191,3186,3137,2058,1070,711,94,3119,2001,1532,1955,1373,3149,3196,1200,951,326,2467,1503,764,2734,1053,2513)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000070"
rlt[mytot,2]<-"YDR118W"
ori<-c(1350,1688,2871,1310,2320,892,1521,1167,794,489,3046,1115,1798,464,2332,365,2195,1742,276,1034,2520,681,2295,840,2960,1644,1855)
ppi<-c(2174,3198,2978,1293,1949,1937,3187,446,552,112,3168,1135,3194,226,1983,1388,3185,3189,229,1235,2223,1066,3196,1277,2922,1050,3195)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0016567"
rlt[mytot,2]<-"YDR118W"
ori<-c(1688,1748,61,1179,103,2148,1521,1167,3046,1719,1115,760,1798,1868,707,2195,1742,1051,2295,1334,1002,1855)
ppi<-c(3197,2022,1684,1228,1890,2032,3187,446,3168,2168,1135,2042,3194,986,1110,3185,3189,325,3196,2894,2543,3195)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006348"
rlt[mytot,2]<-"YDR121W"
ori<-c(1498,1290,2490,11,978,2588,1338,1997,2708,2234,2549,2295,2685,1504,1082,3173,2682,661,2513,808,1625,962,666,1579,1420,2042,2060,1782,1988)
ppi<-c(2602,724,2672,1451,1112,2660,1322,2106,2817,1659,2637,1087,2851,1853,2032,2984,2721,537,1768,2437,1699,632,2068,1912,836,1463,1511,870,1201)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006897"
rlt[mytot,2]<-"YDR129C"
ori<-c(2126,2874,846,2309,1849,343,2222,1922,3139,631,1298,2468,704,3116,1241,3107,804,3196,861,2778,2909,1362,3113,2573,792,2527,1984,999,3033,1886,1230,1033,281,1472,1697,2043,166,1528,3022,986,2536,507,2407,1495,322,1743)
ppi<-c(2585,2785,990,2009,1860,111,1895,2500,2672,2222,3170,2415,1852,2813,2413,2564,1201,2791,2105,2401,2678,766,2967,2524,331,2028,2676,1440,2049,1075,817,1681,1259,2175,597,1621,664,1550,2248,529,2633,1162,1829,2217,1033,2360)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006970"
rlt[mytot,2]<-"YDR129C"
ori<-c(1998,1849,967,3139,1560,1298,778,351,1497,943,395,2909,2389,504,3039,1984,1672,2601,2043,3008,2536,2937,1863,24)
ppi<-c(1905,1860,771,2672,987,3170,2047,1597,899,431,2479,2678,2885,920,3045,2676,2717,2259,1621,3005,2633,2718,2169,2320)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007015"
rlt[mytot,2]<-"YDR129C"
ori<-c(2543,2126,1267,2631,2309,3190,2618,2086,2198,2245,3107,2247,1700,332,2096,395,1675,1988,2778,780,376,2932,2573,897,2389,3126,2527,2607,999,2592,3033,1472,1672,1941,158,1528,1340,2536,1495,24,1743)
ppi<-c(2309,2585,2333,2603,2009,3185,2188,1616,2102,1655,2564,2322,1318,1393,2911,2479,2288,2330,2401,2051,2378,3054,2524,2261,2885,3163,2028,2651,1440,2976,2049,2175,2717,1894,82,1550,2171,2633,2217,2320,2360)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006367"
rlt[mytot,2]<-"YDR145W"
ori<-c(1716,2979,2371,3109,3181,2429,2921,2787,3095,1611,3158,1420,3156,2782,2643,546,1532,3096,2586,1068,1409,2065,2908,2437,1515,1369,2492,2919,3038)
ppi<-c(739,3091,2863,2870,2995,2525,3024,2706,3020,2986,3048,2207,3167,2791,1646,2180,873,2946,2951,689,838,852,2865,3059,2583,1420,2820,2889,2679)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030437"
rlt[mytot,2]<-"YDR155C"
ori<-c(794,2545,2688,1990,3012,3026,2203,1550,678,933,3062,773,334,2074,2395,604,859,134,3027,1090,2201,1809,3049,3102,2403,619,3048,178,2497,893)
ppi<-c(294,2415,2625,2168,3108,2905,1536,1284,857,1729,2681,501,1897,2440,1905,840,685,68,2704,1995,1556,1568,2978,3133,1947,140,2450,46,2576,1841)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006406"
rlt[mytot,2]<-"YDR159W"
ori<-c(718,1587,2133,1538,2506,989,2362,2551,1863,1052,2731,2694,1208,149,57,427,1959,2925,273,2785,404,1193,994,1597,636,187,776,1484,1502,1007,1667,266,81,1166,1670,2576,169,963,2188,1700,2907,1671,1125,3023,192)
ppi<-c(391,683,1573,2335,2015,527,2913,2492,2224,1570,2387,2376,2151,57,2006,168,2511,2503,175,2768,214,861,764,2303,996,2275,2158,2713,1679,2536,2655,489,1634,395,1389,3018,2034,978,2386,2032,3180,486,1079,2522,2153)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006611"
rlt[mytot,2]<-"YDR159W"
ori<-c(718,2133,1538,2506,2343,1863,1052,2694,1208,149,57,1959,2925,2785,191,187,776,1502,1007,81,1670,169,963,2188,3023)
ppi<-c(391,1573,2335,2015,2680,2224,1570,2376,2151,57,2006,2511,2503,2768,1347,2275,2158,1679,2536,1634,1389,2034,978,2386,2522)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006367"
rlt[mytot,2]<-"YDR167W"
ori<-c(1473,2790,3036,1837,3193,3082,1528,1429,2932,2503,2429,1994,3104,2986,3060,1394,2626,2937,1154,1774,648,2156,2836,1289,1869,2434,806,1432,2622)
ppi<-c(547,2982,3193,1961,2986,2399,714,1877,2876,3078,2918,1851,3171,2895,3046,2641,3047,2996,2908,1132,337,967,2837,2849,2673,2700,989,1158,2475)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0009060"
rlt[mytot,2]<-"YDR175C"
ori<-c(1425,1978,2456,1740,2762,1385,1767,1388,2921,768,2888,239,968,3058,2663,2927,3118,2225,1913,1011,831,2374,2202,3069,3021,2718,3185,2196,2698,520,2455,3164,1302,2101,1705,2322,1647)
ppi<-c(829,1376,2106,2494,2928,844,1805,1418,3022,434,3030,142,646,2804,2903,3037,3182,2183,1347,485,713,2068,2129,3133,3067,2833,3189,1798,2974,761,2904,2984,1371,1891,2240,1575,2347)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006888"
rlt[mytot,2]<-"YDR189W"
ori<-c(2554,3108,124,2154,2842,2894,334,1496,2884,863,177,2999,3200,2921,68,848,2403,397,2325,1747,1247,2904,2531,2564,3138,2001,2103,1899,1746,1462,2206,991,2633,262,2858,1091,1659,2808,2960,2079,2571,483,2792)
ppi<-c(2507,3168,1748,1846,2955,2742,1732,1092,2595,2074,354,2710,2970,3114,281,581,2619,2264,2601,2752,1234,2311,2344,2540,3061,2717,1471,1515,2586,3202,2631,698,2323,2605,2908,2242,1051,2713,3016,2550,2361,1423,2123)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006406"
rlt[mytot,2]<-"YDR192C"
ori<-c(1752,2639,914,517,2545,1201,2428,2616,2294,1495,2510,3127,2331,326,66,493,1779,2851,1485,3029,1079,207,862,2072,250,1917,422,2513,1703,2411,1841,58,1234,540,2216,1322,662,1857,944,2920,2474,920,2427,3110,1000)
ppi<-c(1387,2837,884,2472,2462,602,2209,2645,2189,3132,2530,2675,2761,161,2623,265,2745,2656,811,3085,656,476,692,2220,879,2693,2090,2750,2120,2679,2922,308,2416,179,1805,812,2363,1457,2331,2553,2316,272,3078,2548,1938)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006611"
rlt[mytot,2]<-"YDR192C"
ori<-c(1752,914,517,2545,2625,2294,1495,3127,2331,326,66,1779,2851,3029,360,1917,422,1703,2411,1234,2216,662,1857,944,3110)
ppi<-c(1387,884,2472,2462,2562,2189,3132,2675,2761,161,2623,2745,2656,3085,1735,2693,2090,2120,2679,2416,1805,2363,1457,2331,2548)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006623"
rlt[mytot,2]<-"YDR200C"
ori<-c(691,657,1569,183,575,1206,3024,337,230,2361,2392,2083,286,44,1833,2322,1235,984,2598,543,741,1691,2755,3106,1398,306,105,2734,1821,2920,442,2389,1492,3059,1661,938,464,1431)
ppi<-c(1748,355,2029,2072,910,2128,2824,649,1867,2930,2781,2056,1377,1561,1445,1773,596,1120,1900,810,2653,2315,2946,3079,926,924,75,2256,2557,2291,1715,2501,1947,2996,1492,1450,891,2215)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007131"
rlt[mytot,2]<-"YDR207C"
ori<-c(320,3112,1545,1283,2084,2632,343,621,148,1506,701,2488,2296,3169,593,639,430)
ppi<-c(568,3027,1627,1167,2443,2528,79,751,415,1291,908,2033,1549,2894,215,1619,179)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030437"
rlt[mytot,2]<-"YDR207C"
ori<-c(109,2115,2985,2608,1228,2610,2962,695,2205,579,1140,2388,1327,1382,1557,1665,1329,504,1374,1200,2316,118,1619,1427,560,68,3137,142,964,33)
ppi<-c(33,1581,2807,2710,615,2897,3093,1920,1900,1854,2840,2251,2276,2404,1412,1692,1977,279,2014,2344,1869,401,1367,919,303,16,3190,68,3123,1037)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006413"
rlt[mytot,2]<-"YDR211W"
ori<-c(2981,2893,3202,2806,408,3180,2639,2816,3181,3108,1570,2652,3042,1356,2956,3129,3159,3098,1781,3093,2526,1830,2483,158,3052)
ppi<-c(3052,2906,3030,2927,307,2964,2734,2938,3181,2544,1786,2745,2693,1066,2651,3107,2920,3014,2665,2798,2692,3203,1399,104,3075)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006457"
rlt[mytot,2]<-"YDR212W"
ori<-c(2798,2178,1047,2506,2508,2634,2966,2216,2985,1391,2619,2668,1543,568,1581,3194,2615,1813,2055,2866,2792,2622,2516,2560,1477,2355,1797,2760,1693,729,469,2428,2329,2095,1896)
ppi<-c(2702,1544,2030,2578,2632,1360,2927,2789,3075,1728,2132,1917,1777,1118,862,3203,2808,2246,1668,2248,2678,2266,2628,1889,800,2287,644,2637,2021,403,47,2211,1757,1208,2203)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006457"
rlt[mytot,2]<-"YDR214W"
ori<-c(3203,3193,3162,1737,3198,3129,3038,2137,2908,3199,3192,450,1773,321,1244,3075,2581,577,1771,3181,3138,3201,2856,3202,3187,2112,3189,3195,3108,1293,2412,3160,3196,2458,3197)
ppi<-c(3191,3198,2795,2997,3197,3101,3032,2232,2899,3175,2949,453,2710,953,295,3014,2912,1852,1638,3088,3167,3151,2640,3180,3193,1529,3192,2915,2942,722,1922,2950,3200,2143,3173)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0045944"
rlt[mytot,2]<-"YDR217C"
ori<-c(759,716,2352,1598,838,833,1695,2403,1983,1292,2204,1959,655,2316,1500,244,3038,980,1572,1969,1594,2210,1587,512,1087,1934,290,2559)
ppi<-c(345,386,2519,904,473,659,1477,1673,1961,1537,1646,1397,758,1824,1903,156,3002,1739,1315,2022,2091,1941,1950,253,639,1469,207,2196)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007124"
rlt[mytot,2]<-"YDR251W"
ori<-c(307,1185,1674,2771,3013,2975,2542,3132,291,2367,434,1292,3166,2985,2427,1115,396,3162,2704,156,2823,1727,2925,184,1629,2566,1483,2576,1972,2703,1014)
ppi<-c(2147,1844,1158,3023,2933,2842,2193,2940,134,2004,674,2355,3199,2938,2978,811,545,3175,2790,97,2650,2499,2736,1246,2225,1998,2187,2392,2305,2462,2005)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0016567"
rlt[mytot,2]<-"YDR260C"
ori<-c(220,1312,3162,968,3125,1070,2512,1989,1240,1820,2532,2208,887,103,2198,2493,433,567,137,2757,1111,279)
ppi<-c(2135,2232,2611,2736,1981,2649,2888,1004,2715,2320,2569,2044,2714,35,2592,2897,2562,115,2075,2729,1576,2312)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006897"
rlt[mytot,2]<-"YDR264C"
ori<-c(3176,2742,3020,2592,929,1878,2767,1989,1235,2120,2602,271,3099,1233,1498,2888,2322,1905,2846,3188,2386,2403,1593,255,2249,3110,3087,1363,1303,1548,2113,548,281,2831,54,277,2187,695,934,2992,932,2483,1600,2772,1063,2053)
ppi<-c(2427,2543,2911,2544,1120,1489,2738,1445,2362,2595,2519,511,2683,1880,2366,2502,3178,2365,2421,3191,2308,1755,1309,806,1925,2926,2330,1253,2383,649,1533,3021,1084,2604,17,1406,1523,3066,1888,3060,2477,2720,2322,2507,1509,2629)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006365"
rlt[mytot,2]<-"YDR280W"
ori<-c(2245,3022,3091,2975,3129,2592,2756,975,2661,2783,2735,3092,303,410,2235,3202,3073,3037,3146,3047,2737,2955,2230,2896,3182,2537,3118,3025,3042,3203,2208,1483,2973,2322,2474,2624,3045,2236,2266,3194)
ppi<-c(1784,3094,3196,2915,3109,2977,3200,222,2917,2313,2872,3140,2331,193,2919,3203,3072,3127,3201,3137,3069,3139,2699,2947,3130,2097,3164,2373,2972,3190,2627,1143,3123,3199,2047,2716,3095,3076,2237,3195)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006402"
rlt[mytot,2]<-"YDR280W"
ori<-c(3091,2756,1170,1481,427,303,2438,2426,2235,3202,3146,2531,3086,3193,1435,3088,3094,2322,2474,943,2624)
ppi<-c(3196,3200,2435,2390,2366,2331,2771,2908,2919,3203,3201,2785,2644,3153,2286,2686,2532,3199,2047,2241,2716)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006888"
rlt[mytot,2]<-"YDR299W"
ori<-c(1020,932,2270,470,1279,2095,2064,1430,2033,1768,2653,2881,1124,1207,2753,1200,2089,3031,2911,2739,349,2512,1803,2338,1892,2822,1213,2459,596,1832,1346,60,461,1024,990,2530,2429,1512,1568,1879,833,1731,788)
ppi<-c(606,438,1692,882,739,2280,1606,841,1703,1788,2571,3076,2337,376,1718,618,1732,2583,1836,2355,445,2286,2494,2059,1832,2175,688,1551,1193,1650,2311,216,1406,1870,728,1677,2036,2381,1255,1787,462,1856,1762)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006367"
rlt[mytot,2]<-"YDR311W"
ori<-c(1345,2582,2851,2047,2650,3157,1138,2084,2451,3158,2349,1960,3197,2886,1560,693,854,2856,27,1142,2518,2380,566,762,1592,3089,1393,2147,1359)
ppi<-c(535,2688,3040,1645,2781,2822,414,1295,2835,2832,2657,1987,3148,2883,2994,1844,627,2821,1434,732,2219,1281,1691,1682,1363,3079,1273,1147,1958)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000082"
rlt[mytot,2]<-"YDR328C"
ori<-c(936,1973,1150,3083,1211,2912,3192,225,2731,725,2865,2402,1509,3188,1744,2437,726,2837,2401,1857,2569,2552,1496)
ppi<-c(1727,1934,613,3050,2668,2916,2932,153,2922,2755,3109,2766,815,2915,731,2877,1382,2128,2508,2907,2682,2879,1693)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0016567"
rlt[mytot,2]<-"YDR328C"
ori<-c(585,1211,3192,85,2898,725,1661,1769,530,1402,2318,2437,1329,599,2665,2160,1385,2095,275,1857,996,783)
ppi<-c(1887,2668,2932,1543,2917,2755,2614,709,2185,2591,2303,2877,2410,200,3016,2644,2470,1676,1712,2907,2999,2054)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006611"
rlt[mytot,2]<-"YDR335W"
ori<-c(2479,1881,1471,2592,2803,3138,1785,1432,2944,514,1485,1095,2857,2357,1850,3180,2626,1929,3155,3099,3121,349,2581,2553,2661)
ppi<-c(2178,1627,2653,2570,2665,2859,2147,2814,2316,162,2619,2546,2490,1995,2488,2847,2740,2173,3088,2423,3105,2399,2885,2340,2422)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006979"
rlt[mytot,2]<-"YDR346C"
ori<-c(93,448,250,191,1393,154,1992,454,418,2372,472,374,2569,1388,2599,2034,49,1580,2982,2334,1078,1348)
ppi<-c(362,156,164,83,1205,82,2105,508,201,2222,716,62,2930,1247,2739,1704,46,1298,1842,2445,1412,453)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YDR351W"
ori<-c(2133,2375,1008,2931,1851,639,2601,2874,624,802,792,198,1992,1092,2159,1354,460,2174,1810,2496,2718,960,1836,1314,1510,3007,2750,2741,1896,1640,2315,467,1564,3149,2065,228,311,65,2593,1243,1976,2900,2854,3176,534,2705,2637,2660,2724,2118,2476,2296,2045,2989,167,1639,3106,2438,2527,3094,781)
ppi<-c(2215,2804,498,2739,1213,744,2626,2645,903,1773,749,168,1401,1224,1506,1598,2502,2633,1266,2154,2134,1065,1366,1730,1183,2079,2261,2670,1868,1468,937,521,1459,2404,2895,123,159,277,2588,652,2341,3020,3015,2959,1004,2486,2733,2723,2878,1484,2815,2877,1672,2935,333,2511,3147,2828,1531,3137,2524)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000723"
rlt[mytot,2]<-"YDR369C"
ori<-c(1506,3013,2418,433,2577,771,2201,2526,26,2437,1716,2831,2064)
ppi<-c(1789,3018,2242,711,2585,1423,1459,1815,114,1636,1096,1791,1437)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006623"
rlt[mytot,2]<-"YDR372C"
ori<-c(1171,679,1871,313,2036,1529,3150,212,65,2514,2503,1773,206,7,278,3102,2621,1737,2458,8,1896,1830,2790,2821,1805,225,368,2694,1519,2177,1609,2626,2689,2434,2888,2075,78,309)
ppi<-c(1884,753,2756,1960,1561,2127,2870,588,1805,2892,2185,1575,1094,1031,452,2453,3007,1627,1635,361,2860,2330,2898,2877,1127,518,187,3001,2294,2607,1839,2920,3130,2736,3021,2866,348,2507)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000398"
rlt[mytot,2]<-"YDR378C"
ori<-c(10,56,2629,3039,1676,1975,2104,3079,3048,1801,1485,2568,2170,2818,3037,2916,919,1855,114,2268,2061,444,1883,1872,1564,66,1326,1226,481,2207,1463,272,1591,2030,2050,1121,1377,640,567,209,2013,2877,2547,112,2550,364,2592,2941,2002,466,1962)
ppi<-c(573,35,2623,3115,1628,2754,2448,2738,2795,768,665,2234,2833,2321,3126,3007,293,852,1836,1137,2427,2875,2590,1903,1847,189,1193,1446,126,1772,2048,808,711,2441,2949,2319,1176,893,275,551,2861,3139,1894,811,2761,1109,2745,3145,1747,2587,2476)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006402"
rlt[mytot,2]<-"YDR378C"
ori<-c(1075,710,946,3079,3048,560,2651,1392,1231,169,462,2589,1324,2213,2719,107,2013,1355,1731,2291,1080)
ppi<-c(2161,1668,554,2738,2795,2764,2848,1684,2447,1257,1188,2165,2563,1775,2281,1338,2861,2212,836,2879,570)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007015"
rlt[mytot,2]<-"YDR379W"
ori<-c(1796,2580,2144,2189,1154,2824,722,2199,650,3174,2311,1540,1129,2037,1569,2534,596,1354,1326,2481,2203,1471,503,1674,2874,554,1504,1202,992,2451,2786,1358,2528,2895,796,912,3177,154,2923,2981,163)
ppi<-c(1916,2333,2785,2017,649,2662,2776,1604,914,3186,2485,2388,570,2225,912,2351,970,1909,687,2804,2468,2252,936,2438,2283,576,1841,2514,1588,1885,2690,2363,2812,2877,391,1667,2927,2254,2547,3085,2576)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007124"
rlt[mytot,2]<-"YDR379W"
ori<-c(717,1957,2614,1758,2436,3009,2584,2601,645,790,650,3144,2288,2954,1732,2908,784,2886,2378,602,2203,452,1674,1508,1913,175,422,3177,2045,1052,1941)
ppi<-c(3044,2689,2853,971,2698,3037,2752,1441,284,2790,914,3053,1457,2791,2539,2847,1027,2905,2012,248,2468,3183,2438,2305,2364,1304,480,2927,3012,1600,1050)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007264"
rlt[mytot,2]<-"YDR379W"
ori<-c(717,1957,722,1366,3161,132,3067,733,3174,786,2037,2481,1504,3177,659,2045,163)
ppi<-c(3044,2689,2776,1400,2862,566,2986,258,3186,3203,2225,2804,1841,2927,384,3012,2576)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006406"
rlt[mytot,2]<-"YDR381W"
ori<-c(1273,3189,1025,1262,1002,1124,2022,3188,2245,2518,179,2283,1117,1393,2467,623,1551,868,710,63,1860,1362,45,225,215,2697,1759,3135,1201,1424,3125,1344,3041,1277,1283,603,1620,1890,1434,546,170,1667,1627,659,707)
ppi<-c(839,3196,804,2895,592,2162,2937,3195,1916,2001,2611,1953,2731,722,2260,411,2280,2516,409,47,1544,1087,243,2036,654,2447,2144,2941,2190,2606,2267,1151,2839,373,790,197,2404,1256,2108,2333,109,575,1302,2682,2258)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006414"
rlt[mytot,2]<-"YDR382W"
ori<-c(3187,3196,3203,3190,982,2914,3173,3192,3168,3136,1536,2788)
ppi<-c(3194,3197,3120,3196,87,3172,3182,3203,3185,3181,1152,3180)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006414"
rlt[mytot,2]<-"YDR385W"
ori<-c(3192,3185,3203,3196,878,2897,3201,3198,3170,3202,1821,3124)
ppi<-c(3195,3201,2936,3147,71,3184,3194,3160,3188,3202,1686,3199)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007131"
rlt[mytot,2]<-"YDR386W"
ori<-c(3003,2483,1650,1422,1909,2828,2492,159,1445,1790,1120,2914,1572,669,538,2490,3196)
ppi<-c(2915,2971,2316,644,2346,2920,2327,463,1418,1523,1061,2949,2397,2075,219,2230,3191)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006897"
rlt[mytot,2]<-"YDR388W"
ori<-c(2218,2461,1791,3028,2139,688,2516,3190,1276,830,1862,2868,2050,3144,1137,3056,1978,3148,1886,2263,2727,1216,2892,2757,1096,1407,1986,939,3075,2007,1735,1594,170,1965,1882,2126,516,446,3089,1307,2686,438,1687,2034,43,2705)
ppi<-c(2744,2654,1522,3124,3027,182,2443,3190,2388,2318,2836,2934,2680,2765,2313,2728,1455,2618,2212,1677,2692,660,2916,2714,471,2061,2681,1549,2169,1223,1760,2175,1011,2738,1822,1890,831,2185,2268,753,2702,1364,2514,2291,731,2226)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006970"
rlt[mytot,2]<-"YDR388W"
ori<-c(932,2139,578,3190,2347,1862,307,1620,1344,1181,424,2727,2122,54,3083,1986,1287,1659,2126,2884,2686,2695,2203,984)
ppi<-c(1319,3027,803,3190,1897,2836,1920,1675,1154,349,2287,2692,2719,512,2840,2681,2410,1092,1890,2754,2702,1948,2310,1980)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007264"
rlt[mytot,2]<-"YDR389W"
ori<-c(2339,1959,493,2359,3168,1351,1680,1677,2784,760,2994,2031,1678,2748,418,1784,1127)
ppi<-c(2541,2413,2275,2938,3107,1869,1554,1795,2878,2544,2662,2276,2592,2717,176,2520,3022)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007124"
rlt[mytot,2]<-"YDR392W"
ori<-c(503,361,1679,254,2031,2424,2399,2857,1280,240,2086,1557,2603,3056,2772,115,737,1182,941,1764,938,994,1643,1948,1123,891,1128,1199,1881,2209,1785)
ppi<-c(2318,1610,1176,321,1847,2127,1974,2928,713,2054,1826,2194,2753,2805,1763,461,919,633,526,1119,2040,2317,2331,2217,2393,2915,1146,2256,2155,1624,1648)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030437"
rlt[mytot,2]<-"YDR392W"
ori<-c(208,2031,1879,2202,2939,2322,2722,2857,1137,22,382,1707,896,1649,2068,2300,169,2444,3045,1834,61,915,2842,2118,2733,1112,2513,963,860,27)
ppi<-c(187,1847,1709,2510,3032,2910,2995,2928,1155,1325,2176,1571,1979,1956,1839,1720,629,2364,2865,2272,51,949,2916,1595,2925,516,2305,388,1403,1263)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006406"
rlt[mytot,2]<-"YDR395W"
ori<-c(2939,1815,2155,2554,2370,2413,1985,1538,2852,1766,999,1360,2316,1788,2252,2366,3008,3176,1107,2529,2132,2500,2814,1526,672,2969,1399,818,2692,3192,2379,847,3108,459,2615,534,2177,2780,1512,3189,2750,14,2085,2963,2324)
ppi<-c(3159,1194,2650,1992,2023,2412,2313,1304,2528,2659,2373,2751,2605,930,2724,1911,2625,2529,602,2547,1282,2441,2508,3162,743,3059,2847,1698,2518,2653,2203,975,2701,97,2851,185,2535,2941,2478,2619,2850,1,1547,3094,2159)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000122"
rlt[mytot,2]<-"YDR397C"
ori<-c(1611,10,680,1469,1474,2140,548,2714,1862,349,2020,2378,1164,240,241,377,1601,2030)
ppi<-c(2211,19,958,1235,1355,3203,177,2922,2647,1626,1446,2199,1108,1196,1020,1586,1748,1759)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030490"
rlt[mytot,2]<-"YDR398W"
ori<-c(1354,3186,3172,3170,3197,2441,3050,3045,2525,3168,1887,2861,2475,3149,3173,2960,3195,3159,2936,2825,2918,3017,3058)
ppi<-c(2292,3056,3174,3167,3177,1577,3077,3161,2400,3146,1681,2890,2360,3084,3024,2761,3203,3160,3098,3005,3158,3118,3097)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006888"
rlt[mytot,2]<-"YDR407C"
ori<-c(1050,1654,1029,1781,3133,1302,366,2877,2145,254,1923,2803,1122,1799,134,899,3029,540,1487,2722,1358,2837,3166,1803,2624,2594,1578,3174,921,1259,487,1587,1457,590,2007,95,1274,2414,1322,2176,2257,1746,2524)
ppi<-c(616,952,3199,1629,3151,2057,3197,2873,2422,3198,2771,2652,2364,2609,289,426,2135,2371,3201,2093,1326,2471,2926,1002,2580,1926,919,3187,3203,2217,2124,1001,1412,2061,1739,3200,625,2238,1379,3202,1799,2394,1922)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000398"
rlt[mytot,2]<-"YDR416W"
ori<-c(2823,2022,2696,1373,1785,1893,1285,602,380,2421,392,680,2328,1051,1612,2894,2429,529,2497,2443,46,1249,14,1511,730,3130,1654,1234,2462,2004,2906,1926,2444,574,1098,2660,1701,1955,1995,3120,1422,409,2605,2244,1358,2245,1233,1064,1155,2096,891)
ppi<-c(2210,1394,2602,829,1196,2431,2064,2433,2126,1946,253,856,1961,407,733,3204,1736,139,2170,2222,2377,2062,1892,3192,2115,3203,1959,2590,1666,1584,2762,3146,1804,2416,2026,2635,1627,1918,1101,3202,2422,106,2148,2576,2030,2981,1299,624,901,2359,2040)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000027"
rlt[mytot,2]<-"YDR418W"
ori<-c(3182,2814,3037,2916,2666,3150,2878,2776,2874,2811,2973,2743,3052,3163,981,2996,2799,3156,3193,3108,3197,1870,3158,1430,3136,1775)
ppi<-c(3168,3008,3050,2988,2582,3057,3137,3016,2921,2775,3143,2975,3105,3182,824,2913,2983,3123,3188,3116,3197,930,3173,806,3167,892)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0045944"
rlt[mytot,2]<-"YDR421W"
ori<-c(2647,2796,382,1607,3095,1645,1848,2267,18,1651,1115,2929,2326,2860,1792,1916,319,1504,1144,733,146,637,1213,2639,1325,2666,3029,224)
ppi<-c(2893,2945,1029,1026,3117,786,1687,2766,108,2410,407,2687,2425,2936,2236,1295,813,1937,1386,2053,1463,216,1057,2691,489,2777,3073,987)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YDR422C"
ori<-c(2123,3071,2134,2562,770,130,1333,134,2434,186,1548,464,117,427,794,2645,2739,1926,327,740,2288,2440,289,2876,528,1464,2087,1947,3086,2839,2585,3169,151,1984,2125,2461,1828,1475,835,2138,2484,1962,1146,2631,2144,2911,3147,2934,219,3118,3034,799,1555,2072,395,2117,1974,1419,2568,2668,1636,1724,1855,2735,3139,722)
ppi<-c(1735,2489,1357,2605,2558,116,1263,1350,1883,834,1764,1794,2935,2323,2759,2680,2895,1989,207,1903,3123,2714,752,2806,817,2348,2491,1701,3067,2497,2294,2785,39,1752,2006,2144,1360,944,2584,1716,1959,1679,1223,2692,2369,1997,2962,2115,2147,2762,3061,1751,1373,1694,1950,2442,2477,805,2779,2859,2745,2230,1858,2026,3001,686)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0045944"
rlt[mytot,2]<-"YDR423C"
ori<-c(1761,522,1028,884,2929,2957,3169,2647,1530,937,2671,2830,2022,2412,2616,182,2377,3083,555,1416,1258,1651,3055,958,1110,1385,2764,2649)
ppi<-c(1163,223,1686,972,3035,2982,3070,2415,1395,1666,2470,2696,2402,2284,1684,57,1998,2785,721,2429,1562,894,2961,463,558,738,2856,1917)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006413"
rlt[mytot,2]<-"YDR429C"
ori<-c(2616,2925,3197,2670,1190,3150,2282,2551,3092,2549,1751,2478,3162,1549,3121,2993,2961,2717,2388,3116,1729,1901,2076,22,2826)
ppi<-c(3094,2798,3196,2725,674,3008,2553,2898,3123,2106,1587,2468,2807,970,2561,3203,3100,3051,3049,2659,847,3038,937,25,2907)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006406"
rlt[mytot,2]<-"YDR432W"
ori<-c(2072,3194,3056,2989,2508,2564,3181,1525,2349,2357,1565,2497,1671,1998,2150,899,2588,2221,1160,1058,1345,627,113,1064,259,2133,387,2700,2460,2282,2493,1596,2820,1552,1714,1530,879,2952,1337,737,1798,2046,2692,2331,842)
ppi<-c(2054,3197,2975,2577,2360,2689,3186,1953,2236,2039,2493,2300,2444,1247,2512,509,2431,2691,631,574,876,678,326,3165,410,2594,2260,2988,2648,2621,2011,1311,2789,672,1763,719,2468,2460,2439,2534,1242,935,2840,3126,2018)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006348"
rlt[mytot,2]<-"YDR440W"
ori<-c(2922,414,2075,1271,3150,3195,3103,2680,174,2205,1110,858,1668,1076,3046,1809,3170,2107,1686,1380,2202,1196,381,755,65,2763,1845,2417,1402)
ppi<-c(2816,176,2329,2101,3130,3196,2936,2901,53,1542,1577,319,2577,1603,3048,1590,3185,1447,1074,2383,1673,529,2701,2551,77,2820,2704,1788,1106)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YDR446W"
ori<-c(1291,1457,156,366,543,1986,3133,420,1268,2759,232,2810,1992,1892,2851,2365,478,2832,978,2955,421,2930,1261,1942,2661,416,1394,1525,1926,1506,2509,1105,2341,2389,51,835,999,291,1350,2458,950,3024,1563,1366,2150,2535,700,1224,848,786,1640,989,2634,2169,580,2307,2223,1244,2313,1849,2383)
ppi<-c(2669,2628,100,1898,227,1256,3161,2391,1069,2400,625,3002,1660,1618,2833,1717,1874,2777,1061,2538,83,2649,527,1637,2799,1633,2376,1440,1263,1097,3029,1152,2776,2493,2011,379,448,420,1167,2075,2066,2762,886,1839,1110,2214,337,559,2372,492,1283,2244,2630,2012,593,1629,1727,1817,1196,1652,2523)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030490"
rlt[mytot,2]<-"YDR449C"
ori<-c(484,3150,3054,3124,3178,2810,3135,3114,2597,3180,2489,2804,995,3108,3146,3125,3169,3021,2924,3157,2747,3100,3188)
ppi<-c(977,2995,3129,3110,3172,2762,3095,3194,2641,3133,2649,2873,1294,3034,3028,2982,3140,3116,3096,3180,3122,3167,3179)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006367"
rlt[mytot,2]<-"YDR460W"
ori<-c(1244,1055,2897,3202,2820,1533,1327,2715,485,2065,2793,921,1621,1520,1070,670,695,1323,2370,1127,2485,2517,786,1436,15,1420,3073,1658,1358)
ppi<-c(537,2139,2961,3196,2337,2210,2614,2282,1842,1762,2333,2009,1419,1351,1449,1409,234,2054,2087,549,2243,1630,1722,1206,389,1223,3203,1003,2341)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0045944"
rlt[mytot,2]<-"YDR463W"
ori<-c(2653,625,302,627,1576,3167,1497,1335,1095,2036,3019,941,3191,3056,1993,1146,1848,816,2381,2387,1249,2100,881,2792,3003,978,2990,768)
ppi<-c(2711,297,1284,550,1089,3182,1312,1201,683,2074,3167,1418,3120,3096,1935,477,1837,1672,1893,2838,1894,1164,695,2906,3071,497,3073,1415)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000122"
rlt[mytot,2]<-"YDR464W"
ori<-c(1538,2321,2599,1411,2529,1242,1215,2631,3143,420,2838,1254,943,944,2597,437,2192,1079)
ppi<-c(2794,1696,2220,544,2512,740,899,2676,2977,1697,2989,754,938,1591,1995,1361,1818,800)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006348"
rlt[mytot,2]<-"YDR469W"
ori<-c(2912,1817,2567,521,900,1466,898,1637,1691,2709,973,2369,760,1891,640,1233,2063,2793,2838,2731,2712,1655,2464,423,1097,678,3077,2229,2901)
ppi<-c(2187,1083,2744,1572,833,922,1380,2551,705,2817,509,1553,425,1725,1030,1186,1516,3204,3014,2089,2759,967,1742,1985,423,428,3004,1461,2352)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006888"
rlt[mytot,2]<-"YDR472W"
ori<-c(2527,1785,2891,2413,1013,670,3040,663,1829,120,1368,746,922,1795,3059,1322,738,2719,1772,653,462,1452,1691,1221,210,1070,1024,1969,2404,907,1357,2580,2729,3132,2003,2493,2782,1602,2260,674,1782,2231,2439)
ppi<-c(2547,1151,3198,1515,561,2417,3202,576,1493,3200,1103,629,2294,802,2968,829,1333,2474,3197,2415,568,1697,1196,662,523,2273,521,1271,3204,2433,2215,1820,2261,2559,1547,3203,2892,2287,2340,3199,716,2679,2387)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006006"
rlt[mytot,2]<-"YDR477W"
ori<-c(1551,3186,2587,2827,2455,407,1920,3092,1657)
ppi<-c(2056,3195,2867,2965,2093,206,1573,3137,2711)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YDR477W"
ori<-c(2665,2531,2699,1552,2129,1588,2673,1539,126,2911,2721,2997,176,2734,2851,1233,2587,229,1549,2790,1828,2108,2639,127,3175,3037,1640,2953,547,390,633,470,2970,1107,2242,1490,3069,2655,1733,259,2868,799,1772,110,1906,135,1160,896,3068,1540,3066,1541,2871,393,724,1706,100,1252,211,638,1729,1568,1536,905,278,1894)
ppi<-c(2704,2317,2038,369,2109,1103,2950,2596,1187,3025,2732,2471,2907,2298,3191,602,2867,929,1037,2398,3199,2700,2591,347,3092,2331,2609,2940,1595,1363,343,2465,3125,1058,2119,1790,3013,2843,1251,149,2717,1280,1610,74,2135,696,1475,1733,2245,1726,3162,1702,2857,363,2015,2255,1825,563,109,2268,3173,2241,1491,2253,1245,1607)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006623"
rlt[mytot,2]<-"YDR485C"
ori<-c(1859,3081,735,2638,1915,2461,444,451,2603,1395,1096,2944,3190,3065,1982,124,1218,2729,722,2699,1352,1416,649,462,2196,3052,1774,93,2318,340,650,255,2006,193,2825,2005,2981,1486)
ppi<-c(2768,3140,1192,2666,1642,2099,1233,1010,2401,970,614,1903,2836,2727,1846,582,457,2793,280,2850,2430,2485,199,635,1790,3025,1087,631,2647,2251,1677,1354,2402,1275,2842,1858,2882,2628)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0009060"
rlt[mytot,2]<-"YDR487C"
ori<-c(929,3150,3156,3045,2789,1154,3172,2729,2593,940,2307,2449,2950,1530,1673,2618,2167,2281,2377,1637,65,1888,1343,2104,859,3051,2138,2266,1994,3025,247,890,2636,1795,464,1032,2441)
ppi<-c(340,3178,2828,2797,2862,617,3088,1850,2610,525,1865,2042,3030,2482,479,2629,1400,2238,1889,906,18,1278,2257,1338,408,3114,1686,1818,1027,2884,45,1226,2647,713,2601,827,2328)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006261"
rlt[mytot,2]<-"YDR489W"
ori<-c(2035,2699,793,263,572,3156,3199,1148,80,684,3021)
ppi<-c(2738,3204,1023,628,150,3203,2889,2586,991,410,3125)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006413"
rlt[mytot,2]<-"YDR494W"
ori<-c(2352,135,2573,2528,145,534,2525,2043,2049,144,66,154,2531,93,2044,2852,1061,831,2057,2622,1469,1922,3144,385,1304)
ppi<-c(2065,701,1996,2590,270,1098,2751,906,1376,2557,584,66,2634,115,2178,2665,1897,998,1947,2796,638,1792,3200,181,1560)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YDR507C"
ori<-c(1813,978,723,2817,2958,3090,2710,2145,2037,3187,1143,3081,700,2695,2924,1475,2284,13,1234,2149,1676,1076,3046,1626,2601,2877,861,1914,1162,636,1022,34,3128,518,1408,2708,386,1853,3153,219,2309,1988,1226,719,2651,137,461,821,2953,1261,1550,557,2500,2446,2870,333,565,907,1865,225,2343,2040,258,1512,515,1806)
ppi<-c(1087,2921,232,2948,3049,3176,2560,1918,1919,3163,1664,2644,2306,2384,2555,855,1640,1120,555,2195,1409,2276,3044,1151,1961,2780,2901,1604,2860,1507,406,1486,3172,481,1355,2470,622,1396,3134,129,2189,2176,1103,334,2468,885,2172,2117,2130,1242,793,1516,2269,1879,2242,1328,2858,409,1183,2469,1987,2877,1408,2687,1316,1614)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030437"
rlt[mytot,2]<-"YDR512C"
ori<-c(486,2259,3038,1459,2963,3184,2770,2602,308,560,1959,787,433,1967,2883,1456,1335,224,3130,2245,564,1124,3048,2909,2074,1426,3140,1479,1476,1255)
ppi<-c(108,2120,3042,2447,2400,3121,2880,2351,607,1368,2662,736,1885,2472,2786,1518,1085,113,2982,2093,288,1065,2986,3014,1563,565,2719,1197,2108,1365)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006979"
rlt[mytot,2]<-"YDR513W"
ori<-c(2272,1546,2966,3037,1825,187,1635,2900,2509,1674,3148,3073,1088,3132,2683,2958,3203,2320,1724,2515,3129,2636)
ppi<-c(1952,820,3041,3139,1682,80,1447,2754,2577,2276,3112,3096,1377,3039,2807,2921,3201,2034,2084,2125,2816,2223)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030437"
rlt[mytot,2]<-"YDR516C"
ori<-c(533,1921,2977,2177,2285,3159,1566,2178,335,553,2997,287,259,1679,1993,1432,766,91,3117,2827,1320,1390,2781,2793,1661,1139,3192,1698,2235,1419)
ppi<-c(197,1763,2986,2594,2253,3165,996,1629,511,1609,2772,240,1671,2719,1468,1099,737,56,2853,1914,689,1288,2567,2829,920,549,2747,795,2449,1702)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006888"
rlt[mytot,2]<-"YDR524C"
ori<-c(212,552,2404,831,928,1841,2281,289,2583,1833,1502,2152,408,11,1571,2633,1634,1899,836,1056,2063,345,1249,719,656,811,1667,2240,29,2653,1789,1018,4,2880,278,2303,1637,130,813,1040,1011,599,90)
ppi<-c(161,213,2577,1219,509,2365,2191,401,2436,2304,2235,1798,2065,11,778,2498,2705,2488,1945,2530,1787,1025,1515,399,840,2718,992,2018,943,2715,2362,1940,1321,2852,284,2364,1187,1919,593,1985,456,1592,1566)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YDR528W"
ori<-c(1276,629,743,572,1683,2889,2360,1059,911,60,784,2366,1377,1956,544,2493,2115,1775,1788,3086,447,2925,1167,2558,2582,353,2010,132,120,731,187,2964,171,666,92,2955,2986,891,1685,220,200,1357,1965,248,2320,1818,1479,1413,741,2135,1225,943,2501,1832,311,2489,1947,228,982,2188,70)
ppi<-c(1922,2464,332,2604,1112,2926,1720,2460,1170,2708,825,1310,1971,1281,1920,2559,2656,2424,1193,3035,140,3026,640,1921,2281,2788,2389,366,22,730,780,2915,487,2857,2248,3034,3074,679,1644,118,2796,2082,1460,1332,1892,2324,733,600,2479,1567,551,2052,2360,2144,287,2933,1222,1062,368,1968,2448)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0009060"
rlt[mytot,2]<-"YDR529C"
ori<-c(2701,3198,3098,3136,2796,1940,3121,2841,3146,2298,1697,157,3203,2235,2385,1974,2155,3150,1656,986,227,1904,1025,1386,1175,3175,2183,3052,502,2266,1679,427,2432,1993,2177,760,2818)
ppi<-c(2744,3200,2888,2874,2815,1213,3136,2584,3176,2135,977,98,3197,2210,1701,1215,1128,3087,1440,365,96,1174,1975,532,661,3183,1987,3101,192,1618,1002,1114,2202,931,1990,793,2664)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006487"
rlt[mytot,2]<-"YEL002C"
ori<-c(2316,2687,871,2365,3200,2693,2267,3176,2001,476,2034,2690,2849,2386,2496,1662,2982)
ppi<-c(2647,2825,1097,3203,3096,2808,1138,3201,1219,757,2093,2329,3202,2310,1917,2024,2774)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0009060"
rlt[mytot,2]<-"YEL024W"
ori<-c(2932,2781,1959,2830,2810,1309,2422,2666,1722,2640,1118,475,3203,2188,2365,2631,2345,2952,1467,838,2512,2902,1512,999,2270,3112,1491,3016,476,1619,484,602,3032,2387,820,1843,3078)
ppi<-c(2962,2788,1362,2291,2880,653,2112,2414,892,2712,519,198,3194,2367,1642,2742,1206,2865,1852,546,2002,2968,2051,378,1926,3131,728,3035,186,1457,85,1135,2949,1266,2006,1553,2510)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006413"
rlt[mytot,2]<-"YEL034W"
ori<-c(577,2731,398,1158,44,1826,140,171,957,1616,3194,2657,937,3191,1176,990,947,1112,2902,2256,1037,1618,793,1567,2946)
ppi<-c(973,2087,92,2341,2,1162,1495,70,442,3103,3165,2507,2548,3198,2401,1728,1847,1577,2183,2907,401,2393,564,742,2890)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006487"
rlt[mytot,2]<-"YEL036C"
ori<-c(2459,2618,1008,3148,2425,1514,2717,2377,1489,2240,1036,2784,909,2476,1640,3107,2484)
ppi<-c(2232,2757,1466,2911,2137,765,2676,2846,866,2118,490,3116,1795,2371,3200,3014,2208)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000027"
rlt[mytot,2]<-"YEL054C"
ori<-c(2603,2221,2522,2745,1893,2621,1177,1027,2233,2463,2462,2273,1323,2770,2105,664,394,3185,2528,1710,2381,968,2909,1169,2969,788)
ppi<-c(1620,1398,2635,2851,1197,2547,259,849,1527,2132,1893,1570,1015,2661,1267,464,877,3123,1922,1263,2064,375,3001,524,1898,429)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006348"
rlt[mytot,2]<-"YEL056W"
ori<-c(424,3148,1635,1672,567,1647,174,3130,2895,2316,803,2274,2457,2965,1972,2314,655,2301,1165,2754,2851,1830,1790,1938,2742,1185,2290,1460,2986)
ppi<-c(2224,3179,1986,2316,756,1066,632,2615,3065,1793,427,2136,2302,2908,1842,2000,318,1579,1078,2675,2298,990,2296,2371,2005,693,2244,3203,3017)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006606"
rlt[mytot,2]<-"YER009W"
ori<-c(629,1483,2397,2855,2523,46,1518,911,2004,1831,454,161,3077,243,104,3116,1523,2659,2172,2505,1666,964,1488)
ppi<-c(2258,1222,1280,1947,2784,2017,2518,2110,2490,1507,2444,2480,3068,1573,2583,2936,2402,2414,1443,2190,2500,2001,1217)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030437"
rlt[mytot,2]<-"YER012W"
ori<-c(1673,2849,2066,2481,2620,2619,1618,3052,1105,377,147,2707,1279,2608,3004,2359,1340,1997,2966,895,24,560,2894,1483,2759,574,3000,81,1122,232)
ppi<-c(641,2625,1694,2323,2408,2672,1563,2955,1114,1873,2723,2657,2122,2234,2957,2276,670,1391,2730,1939,26,796,2946,900,2937,307,2506,35,1474,1457)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007124"
rlt[mytot,2]<-"YER020W"
ori<-c(1996,2491,1467,1460,2834,3095,2457,2877,2676,477,2793,979,1969,2928,3187,550,32,2153,1986,1488,1491,55,1875,111,2166,509,2424,1050,1492,2792,514)
ppi<-c(2250,2205,1017,3202,2665,3137,2107,2312,2779,2380,2799,2423,813,2717,2526,997,485,2245,1314,1258,2776,2248,2288,1319,2521,1490,2769,2197,2231,2856,3050)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030437"
rlt[mytot,2]<-"YER020W"
ori<-c(1789,2834,1485,1099,2877,2569,2269,3147,2584,1311,434,1130,1794,2481,2967,3145,2434,1262,2690,1361,803,112,2917,2383,2945,547,2501,1368,380,1154)
ppi<-c(1015,2665,901,2553,2312,2543,1968,3185,2529,2105,2573,867,2410,1867,2872,2908,1477,676,2232,2074,448,454,2949,2212,3080,255,2729,519,1400,1835)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006413"
rlt[mytot,2]<-"YER025W"
ori<-c(2945,3197,3170,3177,334,1765,1842,2665,3072,3178,3042,3108,2993,2858,3096,2605,3192,3062,1295,2564,2929,1599,917,562,3064)
ppi<-c(3022,3051,3157,2838,21,1061,2311,2783,3104,2891,3055,3128,2746,3074,2541,2935,2916,3021,2198,2561,2974,2855,1192,392,2906)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YER027C"
ori<-c(1295,1428,679,2531,1405,3005,191,2822,2936,3156,890,2073,1004,2743,2927,771,478,1326,2395,3203,1461,931,2984,1438,3095,1615,2834,717,2648,2941,511,315,2734,657,1361,2492,2722,777,2460,1304,1753,2651,813,2543,994,2328,609,1368,3026,194,2603,2699,2250,348,2252,2972,1823,1343,757,1231,1972,572,2042,729,446,399)
ppi<-c(749,2512,377,2509,2759,3095,556,2259,1766,3139,1553,2296,3061,3183,2592,429,1048,2211,2135,2997,3179,1894,3005,1289,3027,2404,2171,1291,2998,3050,265,1655,2935,387,1280,2710,2983,291,2372,613,1358,2788,1505,2563,2562,2677,1167,1741,2442,992,2664,2415,2124,167,2857,3053,2589,756,369,2213,2995,2003,2120,1682,1239,272)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000122"
rlt[mytot,2]<-"YER028C"
ori<-c(851,2677,2794,1407,2617,2583,2934,1774,2779,1260,1561,1928,2744,342,2518,2293,2681,59)
ppi<-c(2064,2410,2576,803,2459,1780,2821,766,2558,2700,874,1315,1901,1504,2569,1802,2544,286)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000398"
rlt[mytot,2]<-"YER029C"
ori<-c(2424,946,2230,1672,2153,1916,1467,3165,2672,1616,2571,2487,2423,2741,1317,1459,3029,715,2440,1803,2027,2907,1453,2985,3196,1617,2529,2043,2677,3026,2500,3189,1526,3174,2144,1873,2869,409,1412,3120,3000,1318,39,2339,2411,1635,2301,1638,2612,1540,753)
ppi<-c(1691,540,2753,1043,2447,2437,2186,2120,2402,661,2165,2665,2658,2735,513,803,3123,376,2546,1279,2499,2940,2256,2719,2776,1312,2489,2149,2877,2919,2592,3022,852,2853,2237,1902,2954,909,635,2956,2164,1291,1342,2310,2605,1405,1439,933,2758,2249,2071)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0045944"
rlt[mytot,2]<-"YER040W"
ori<-c(806,261,2037,1651,1779,3174,1546,3185,1791,1000,2450,2178,1459,1084,2605,195,2653,2584,207,1341,2016,2360,3170,183,253,2954,1497,2793)
ppi<-c(402,129,1885,1174,1156,3183,843,3117,2217,1704,2562,2560,1063,604,1719,99,2796,2376,476,1808,1931,1730,3103,94,133,3030,661,2502)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006367"
rlt[mytot,2]<-"YER045C"
ori<-c(2110,1197,2816,3174,2893,1358,1976,2927,1605,2687,1381,1467,3130,1445,1460,22,721,1713,2643,612,469,1226,2572,2131,379,1669,3142,1361,1563)
ppi<-c(1000,1933,2852,2913,1958,2287,2175,3148,2519,1744,1905,2249,3010,1387,1520,1067,208,2431,2366,261,255,420,2969,2046,899,1347,3071,852,2230)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006970"
rlt[mytot,2]<-"YER062C"
ori<-c(1072,1670,559,1469,2296,248,340,100,3203,2297,1327,399,733,434,2140,424,606,327,1948,1328,1602,1529,2757,28)
ppi<-c(1240,1642,828,875,2226,2032,2268,1463,3203,2375,2345,2139,2079,992,2574,2160,2358,323,1971,2159,2236,1880,2409,1045)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YER083C"
ori<-c(1363,2717,1019,1021,965,1707,991,2250,877,2864,2050,2318,2144,2845,281,2178,2093,2203,2022,878,845,429,2809,157,1456,1459,197,3188,3160,1599,2568,1858,2921,2430,2313,1551,679,2812,537,2902,1654,2429,1664,3111,2747,957,709,2740,2484,1136,1869,2327,3023,2359,2108,3008,2320,723,1396,1778,2988)
ppi<-c(1693,2616,481,1892,465,2344,479,2576,985,2244,1566,1282,2518,2936,897,1952,2359,2484,1614,1696,368,735,2860,962,1026,2693,1561,3097,3145,1300,1981,1529,2967,2212,2523,866,339,2734,797,2998,2280,2711,861,2957,2946,2208,295,2875,2556,779,1036,2744,3070,1789,2120,2975,2028,1079,752,990,2603)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006348"
rlt[mytot,2]<-"YER088C"
ori<-c(1544,1095,1047,1522,2660,1996,2909,2803,2734,2748,1673,814,2533,2575,327,3021,2843,970,2428,1989,2550,520,1904,2694,760,2118,1159,1755,1000)
ppi<-c(2469,587,2211,1895,2463,1485,2654,2059,2952,2807,993,1684,1416,2417,1393,2899,2951,622,1720,2388,2530,215,2142,2696,202,1594,1128,1015,1084)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000082"
rlt[mytot,2]<-"YER089C"
ori<-c(2324,3183,1583,717,1395,603,57,114,257,3170,1471,366,1004,178,3056,2070,2843,611,388,2355,162,1074,1184)
ppi<-c(2547,2387,940,724,2335,771,2111,2121,540,2836,747,2296,629,1617,3170,2418,2415,690,584,2371,2482,2695,1684)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YER093C"
ori<-c(2,1399,596,578,2496,552,152,28,1467,2660,277,2695,1390,2528,2682,2252,1114,1060,1920,2237,151,571,2602,433,1105,1611,2899,1865,1911,1679,467,996,536,1171,1861,303,671,1496,715,422,297,694,1812,1895,483,531,1293,911,2641,844,2123,1675,3098,2934,1721,454,2961,843,1555,1846,1339)
ppi<-c(791,2253,299,1895,2205,619,86,2122,1525,2062,844,2693,2004,2574,2533,1404,2318,2456,1627,2549,57,1021,2618,960,645,1840,2199,1316,1215,2044,690,819,884,1829,1942,163,333,1140,827,222,1670,918,1101,1928,803,1961,641,450,1954,545,1326,2024,3121,2631,2596,870,3020,1125,561,1336,2336)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030437"
rlt[mytot,2]<-"YER096W"
ori<-c(1667,827,752,1910,1135,404,209,1052,2521,3051,1107,1256,3202,1192,306,2136,3104,3071,46,1735,2456,561,408,532,390,763,7,917,76,2738)
ppi<-c(1512,1159,1012,2480,1859,223,678,535,1630,2537,2221,838,2734,2191,348,1342,2603,3114,699,1917,2044,770,754,259,207,260,1354,581,808,2505)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006457"
rlt[mytot,2]<-"YER103W"
ori<-c(3194,3196,3118,2153,3192,2840,2207,2501,1440,3197,3181,1119,1021,17,419,2690,2738,306,1227,3176,3159,3200,2906,3198,3189,1053,3184,3201,3129,1123,2385,3173,3202,2634,3203)
ppi<-c(3193,3199,2789,3029,3194,2995,1350,2260,886,3174,2969,778,972,344,71,1756,2981,1786,1421,3068,3182,3166,2713,3184,3195,625,3189,2970,3043,565,1759,2968,3203,2086,3187)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006406"
rlt[mytot,2]<-"YER105C"
ori<-c(3160,3060,2726,2450,1943,2454,2408,3009,2588,2108,1647,1338,1930,1517,1885,2612,2925,2489,1426,346,2383,255,129,2352,461,3037,1257,2291,3090,2791,2840,383,2716,546,3194,429,1839,3177,1916,2854,2996,1282,163,2994,2224)
ppi<-c(3176,3129,3027,1956,1509,2588,1598,2085,2278,2352,2892,3007,2806,654,2561,2767,2473,2538,822,206,2959,439,459,2209,866,2618,2263,1947,2831,2520,3064,601,2404,229,3191,162,2393,3174,3014,2169,3094,508,367,2877,2007)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006611"
rlt[mytot,2]<-"YER105C"
ori<-c(3160,2726,2450,1943,2454,3141,2108,1338,1930,1517,1885,2925,2489,346,1201,3037,1257,3090,2791,2716,3194,1839,3177,1916,2994)
ppi<-c(3176,3027,1956,1509,2588,2678,2352,3007,2806,654,2561,2473,2538,206,2130,2618,2263,2831,2520,2404,3191,2393,3174,3014,2877)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006406"
rlt[mytot,2]<-"YER107C"
ori<-c(1918,1365,3042,3017,1035,1378,2445,1728,2350,1934,1013,378,681,3108,3145,2776,2174,170,1162,987,2683,2442,3036,83,2024,2968,1020,2207,1617,1668,3080,3008,2304,2140,1282,1130,2566,1396,1121,1346,823,849,1481,1240,2777)
ppi<-c(1241,547,3048,1893,523,3150,1686,2190,1833,2027,1840,1751,2119,3138,2391,2797,2386,2544,702,521,3055,2209,2958,1231,2234,2388,2056,2285,2480,2459,2582,2944,2667,2605,947,680,2431,1245,2302,2378,413,457,1542,2305,2419)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006606"
rlt[mytot,2]<-"YER107C"
ori<-c(916,3023,1689,2811,1193,378,726,681,3145,667,2174,2968,484,2921,1004,2912,2566,1770,3200,1895,1240,1254,2038)
ppi<-c(2673,2975,897,3106,1260,1751,1935,2119,2391,373,2386,2388,627,2717,2562,2919,2431,1843,3197,1646,2305,2019,1452)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006611"
rlt[mytot,2]<-"YER107C"
ori<-c(1918,3042,3017,1035,1378,1665,1934,378,681,3108,3145,2174,170,987,3153,2968,1020,1617,1668,2304,1282,2566,1396,1121,1240)
ppi<-c(1241,3048,1893,523,3150,2033,2027,1751,2119,3138,2391,2386,2544,521,2918,2388,2056,2480,2459,2667,947,2431,1245,2302,2305)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007124"
rlt[mytot,2]<-"YER109C"
ori<-c(2537,988,558,325,400,191,603,1183,2694,2840,3105,2197,171,1629,2645,911,1674,41,224,2227,2211,778,2331,292,1856,2470,2705,221,1634,1211,1741)
ppi<-c(2286,1438,312,350,1400,77,948,2397,1947,2405,3024,2412,2,1653,2646,910,2590,25,138,2081,2077,2360,2249,1409,2089,1833,2138,2136,2195,1476,2279)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006606"
rlt[mytot,2]<-"YER110C"
ori<-c(2642,1413,1702,2216,1266,2220,2673,2982,1217,2101,1841,2555,1376,2671,2832,2658,1401,1622,2493,2811,2946,2641,2563)
ppi<-c(2517,1362,920,1157,2185,2802,2761,2654,2707,1271,2543,2863,2936,2872,2785,2225,2636,896,2105,2611,2924,2883,2486)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000082"
rlt[mytot,2]<-"YER111C"
ori<-c(1079,2409,437,3092,266,1984,2587,2973,225,1188,2460,2457,3190,2895,105,1508,1140,3122,3202,481,3062,1887,3181)
ppi<-c(2566,3112,226,2789,2305,2254,2269,2245,68,2431,2700,2637,3197,2708,4,1894,1773,3172,3179,1446,2554,2663,3153)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000398"
rlt[mytot,2]<-"YER112W"
ori<-c(1828,307,2749,1124,2346,2853,899,3181,3197,582,2718,2969,2438,3065,2332,2554,2889,1172,1742,2304,2575,2550,2184,3031,2896,303,1459,1956,758,2668,1490,2333,695,3084,2683,2512,2679,373,1587,2457,2910,3004,498,2790,3144,337,2546,1083,2706,470,1242)
ppi<-c(1708,185,2859,688,2879,2773,2257,2888,2713,237,2530,2884,2234,3086,1739,2434,3033,490,2316,2673,2338,2741,2560,2829,2686,366,1430,1752,400,2677,2104,2249,331,2771,2836,2322,2449,848,914,2204,2768,3098,1563,2735,2904,1129,1843,466,2526,2171,2564)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006402"
rlt[mytot,2]<-"YER112W"
ori<-c(2491,2398,1487,2853,3197,449,2697,2818,2927,2475,2379,2715,2999,2924,367,523,2910,437,1075,2982,2201)
ppi<-c(2235,2302,852,2773,2713,2658,2769,2470,2680,1933,2177,2652,2667,3006,479,1765,2768,1304,697,2663,1720)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030437"
rlt[mytot,2]<-"YER115C"
ori<-c(2256,1641,1070,1145,92,743,547,480,1433,2937,2249,1287,2650,2513,1548,877,3130,907,110,707,2943,1255,875,1134,277,897,213,1489,625,3108)
ppi<-c(2921,1883,2022,2085,1926,305,955,340,1332,2947,2581,762,2337,2417,1633,1275,3088,471,890,1862,3019,1223,1343,630,173,214,1534,739,1253,3009)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007124"
rlt[mytot,2]<-"YER118C"
ori<-c(1142,458,119,2068,1557,2381,895,271,509,2826,733,2226,686,1769,109,393,2307,780,376,1210,3132,2176,3171,301,1341,3097,1583,1012,2892,294,1759)
ppi<-c(2795,1401,126,1137,1849,2595,1641,1883,808,2871,1225,2789,40,2194,1909,847,3019,500,229,831,2760,2792,2853,1547,2575,3021,1499,2516,2854,1339,787)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006888"
rlt[mytot,2]<-"YER122C"
ori<-c(2235,1227,2807,1143,3063,2835,1600,3025,3010,2852,829,2296,2494,1407,2108,1607,2960,2538,2882,2486,1247,2928,1994,1646,3152,2562,1535,3034,1700,2469,2084,38,136,2779,2937,2248,2655,773,2732,2047,1058,2068,1888)
ppi<-c(1752,530,1866,1262,3121,2413,1701,2963,2974,1803,1581,3149,2575,1204,2156,1358,2884,2259,1856,2384,1174,2727,1618,978,3109,2583,842,3085,1797,2521,2466,114,1601,2297,3029,1784,2764,2177,3053,1850,887,2514,2690)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YER123W"
ori<-c(2195,2517,2260,456,2448,370,2626,750,108,408,3114,2411,2734,1154,1262,521,3201,1261,2555,110,2915,1641,536,918,751,2753,1312,2910,2384,326,2449,2251,1986,1505,2913,2982,1773,1754,772,1630,2960,178,2346,508,1254,2010,2864,1856,1296,2937,1842,1371,2237,3151,280,399,1007,2414,2871,93,2857,3183,921,2198,3054,2398)
ppi<-c(1595,2268,1637,13,2450,189,1853,1605,605,366,2839,2714,2432,2204,1984,1095,3194,1760,2460,2491,2903,2080,1260,756,911,2673,2364,2769,2093,2457,2077,2685,762,614,2865,3167,1454,902,849,803,2945,2843,1996,243,3202,1053,2500,1959,1664,1913,806,2351,2726,3186,2605,2548,2404,1893,2964,2139,2644,2949,1732,2136,2838,1455)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YER124C"
ori<-c(1864,2665,2956,1621,1580,2900,1832,2471,1199,251,3021,1805,827,659,2100,2065,1368,2381,2318,1144,698,1293,1997,674,1152,1963,846,883,918,2938,723,3119,838,907,2112,3186,3180,2934,886,2227,694,504,2198,2699,3028,1367,2386,804,1694,2446,1104,2923,701,586,2724,1876,2485,1137,1854,721,808)
ppi<-c(2230,2465,3018,2513,833,2458,1153,2512,1230,1483,3008,2205,1147,339,2352,1923,1922,2783,1648,2404,317,1193,1497,1213,785,2195,2101,951,411,2758,614,3112,913,2245,2140,3194,3189,2855,963,1781,1910,1008,1511,2292,2697,2111,1867,291,2201,1752,634,2815,320,1023,2480,1905,2125,1274,1662,134,2236)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006406"
rlt[mytot,2]<-"YER125W"
ori<-c(3026,2977,1357,1132,2600,2368,216,1067,1545,1601,1068,1487,2926,523,417,2646,2105,1851,1244,2688,1062,507,1668,3008,1529,1575,522,567,2515,2755,717,86,670,1735,2201,2028,1365,2559,1235,2200,3195,2695,1085,2592,465)
ppi<-c(3103,3029,937,1821,2576,1865,62,2741,1163,1892,2304,1987,2335,156,1854,2214,2301,2101,590,2785,478,519,1276,2745,1706,2273,1669,1891,2397,2224,1789,336,2104,1445,1634,2557,2276,1801,2099,2263,3196,2587,1029,2746,1448)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006897"
rlt[mytot,2]<-"YER125W"
ori<-c(3190,1887,2767,2291,2884,2581,2382,575,1997,846,3160,538,2764,384,2313,2601,1828,1131,3086,2618,1148,2429,1100,1752,2858,2089,2462,446,434,2654,2235,1628,1141,2222,830,2912,3198,1354,484,2315,1692,2717,1731,3081,2477,2928)
ppi<-c(2519,1930,1913,2061,2650,3049,2153,318,2094,2456,2652,372,2807,1804,2711,2483,1562,2433,2441,1993,2077,2446,1336,1345,2908,2909,2202,1270,2124,2727,1739,1946,1300,2674,326,2773,3035,1794,751,1815,2542,2187,2186,2588,2129,2531)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000154"
rlt[mytot,2]<-"YER127W"
ori<-c(2980,3202,3114,2951,2953,3142,905,2715,3139)
ppi<-c(3098,3149,3162,2696,2982,3153,502,3086,3163)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006365"
rlt[mytot,2]<-"YER127W"
ori<-c(3008,3088,3058,3195,2980,2889,3132,2439,2677,2229,3014,3203,137,2162,2808,3057,3178,3119,2963,3184,3202,3177,3079,3045,3114,3013,3168,2951,2953,3090,3073,2093,3142,2671,2847,3042,3200,2715,2545,3139)
ppi<-c(3075,3079,3013,3044,3098,3142,3061,1486,3011,2554,3058,3198,2375,1657,2839,3042,2998,3147,3081,3190,3149,3194,3067,3171,3162,3074,3191,2696,2982,3170,3174,1884,3153,3043,2994,3092,3195,3086,1820,3163)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006006"
rlt[mytot,2]<-"YER129W"
ori<-c(96,2327,2480,1371,1512,332,572,2145,2769)
ppi<-c(1520,2985,2113,765,814,186,463,1672,2352)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006261"
rlt[mytot,2]<-"YER129W"
ori<-c(2679,1115,748,296,2154,1491,670,992,2303,2837,1418)
ppi<-c(2332,487,1169,411,1529,1202,1157,936,1816,2962,1048)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YER129W"
ori<-c(2059,2899,2235,2110,2756,883,3160,1868,146,2084,2942,1790,2710,2480,2080,430,3202,350,926,959,1261,1722,2636,1344,2731,3169,2066,2819,2617,418,2762,1751,2885,1849,2993,2781,1339,756,1495,1049,2974,565,1052,398,1184,1112,2303,334,1817,2223,1940,253,2552,2334,549,923,1263,2372,2589,297,2703,2875,131,2346,2957,2398)
ppi<-c(1329,2376,1230,1148,2063,427,3080,1840,480,1706,2822,1868,2455,2113,2576,1265,3200,997,513,2342,1428,2260,2876,1244,2681,2553,2582,2665,1863,1654,2771,2472,2883,934,2940,2865,863,368,1280,544,3003,2083,609,192,2844,859,1816,1518,2098,1680,1298,1748,2723,1370,2330,2116,1968,1941,2394,1663,2190,2670,1402,2423,2732,1704)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006365"
rlt[mytot,2]<-"YER133W"
ori<-c(3054,2423,2429,950,2059,1861,1769,132,2827,2187,2180,2863,982,383,1248,3109,2902,2246,2760,2910,2054,1378,515,1527,2505,2096,2426,2595,2712,2886,645,681,1881,661,221,2174,2559,2329,2207,2895)
ppi<-c(3125,1846,2654,1552,1879,1164,2650,108,3076,1919,1771,3004,2314,211,2200,2832,2862,2785,2762,2812,1569,932,1270,835,1588,1560,2431,2264,2277,2986,120,857,1374,1932,66,1655,2539,1917,1634,3016)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000398"
rlt[mytot,2]<-"YER146W"
ori<-c(1951,290,2974,2772,2491,2892,711,2903,3202,175,664,2606,512,978,2458,2597,2552,2295,459,554,2428,1043,2223,958,2675,149,992,356,77,985,755,1696,155,2356,1340,2430,2288,617,2121,666,1846,3109,1722,2358,2472,442,1881,423,1350,351,2228)
ppi<-c(2659,158,2773,2930,2144,2631,2353,2266,2664,69,280,2171,1834,579,1985,2606,2413,1599,1969,1186,2079,2455,2462,1537,2470,384,1232,1151,27,1094,2256,2924,72,2577,2733,2416,2471,1007,1071,899,2886,3118,2347,2037,2412,1263,1310,166,2134,2077,2342)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006402"
rlt[mytot,2]<-"YER146W"
ori<-c(1229,1920,377,2892,3202,1768,2339,1255,2958,558,672,1236,1466,1965,712,360,1846,1065,2383,3070,1857)
ppi<-c(1859,2050,185,2631,2664,2718,2294,1620,2603,1480,1106,1479,2738,2018,911,1853,2886,1517,2984,2751,1167)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006367"
rlt[mytot,2]<-"YER148W"
ori<-c(2300,2347,1979,668,2813,2554,2036,639,1657,219,2324,2894,1692,2113,2814,2105,2360,3172,1472,1908,1500,2149,2593,2759,2644,1817,699,2946,3200)
ppi<-c(1457,2743,1638,1695,2797,2693,2237,304,1501,1418,2699,2324,3076,1923,2655,3064,2511,2730,2459,1173,888,1354,3057,2823,2794,1427,1537,3151,2428)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000122"
rlt[mytot,2]<-"YER159C"
ori<-c(2019,279,2275,2206,1274,2583,1474,3126,2279,3093,1060,234,281,280,934,2140,1300,862)
ppi<-c(2332,174,1936,3203,1326,2708,829,3188,2710,2743,585,148,347,1348,1236,1578,1628,746)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000122"
rlt[mytot,2]<-"YER169W"
ori<-c(1511,3058,2652,642,1366,2801,1602,515,1969,3065,748,1141,2906,2287,2769,2879,2551,1601)
ppi<-c(2344,3100,1900,122,849,2778,1371,90,2077,2586,342,562,3070,1977,2801,2860,2094,1563)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007131"
rlt[mytot,2]<-"YER173W"
ori<-c(841,1758,1367,1273,2509,2604,2484,2901,158,2626,2270,1878,1734,1287,2188,600,2395)
ppi<-c(985,1103,2554,1970,2383,2694,1344,2851,456,1999,2121,1554,1583,2028,1550,1052,1543)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007131"
rlt[mytot,2]<-"YER179W"
ori<-c(2742,2428,1967,1898,2270,3154,1437,1184,728,746,604,3177,1463,1548,771,1143,1011)
ppi<-c(2546,2621,2255,2788,1843,3186,313,1017,881,734,329,3163,1252,2429,354,1423,301)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000027"
rlt[mytot,2]<-"YFL002C"
ori<-c(2919,3197,2878,2474,1949,3083,3084,3150,3126,3110,3108,2998,3116,2911,952,3184,3178,1292,2874,3199,2751,2943,1995,206,2078,2849)
ppi<-c(3147,3202,3065,2202,1272,3033,3192,3193,3101,3087,3130,3172,3191,3127,2639,3128,3186,2408,3032,3201,2932,3006,1329,127,3001,2735)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006365"
rlt[mytot,2]<-"YFL002C"
ori<-c(2925,3201,2791,3154,2919,3197,3034,2129,2697,2977,2216,3155,598,2897,3183,3075,3200,3030,3035,3084,3087,3093,3110,3191,3175,2941,3116,3185,3187,3178,3029,1851,2939,2621,1385,3049,3151,2704,2974,3149)
ppi<-c(3005,3198,3010,2921,3147,3202,3070,897,3021,3020,2553,3162,2356,2970,2857,3047,3078,3064,3083,3192,3106,3160,3087,3200,3119,2989,3191,2877,3067,3186,3194,1673,3091,3054,1738,3100,3157,3140,3086,3153)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007131"
rlt[mytot,2]<-"YFL003C"
ori<-c(2547,2680,2482,2958,2525,3187,2753,1352,1030,1278,593,3159,1981,469,355,1935,2551)
ppi<-c(2321,2646,2180,2030,1802,2043,2990,1078,1080,1149,307,3137,2697,1745,198,1770,2397)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007264"
rlt[mytot,2]<-"YFL005W"
ori<-c(2889,168,1845,1540,31,1233,3,2401,673,1681,2027,1174,696,91,1803,1550,3150)
ppi<-c(2657,1683,2072,1591,222,1922,100,1662,370,2691,2152,2151,1875,2092,1497,2507,2455)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000070"
rlt[mytot,2]<-"YFL008W"
ori<-c(2835,2367,1181,3029,2578,1810,2550,43,10,932,2962,1217,1748,1589,475,292,205,1064,58,1,1980,145,459,1082,2610,1608,1199)
ppi<-c(2813,2265,601,3000,2269,1659,2290,168,532,820,2276,1326,2231,967,2928,2976,1760,2157,118,227,2462,2256,1718,1719,2254,2375,2017)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000082"
rlt[mytot,2]<-"YFL009W"
ori<-c(2835,2960,904,1313,1772,22,156,572,3171,1222,1508,64,2679,223,2913,849,2112,941,1191,3029,1161,180,2875)
ppi<-c(2906,2983,415,786,3114,254,3171,3079,3201,1052,523,2356,2922,2075,3077,2953,1561,1276,797,3194,2798,1962,2864)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0016567"
rlt[mytot,2]<-"YFL009W"
ori<-c(2950,1772,156,2197,1204,572,1706,2468,2585,1332,389,849,847,1744,239,2236,390,369,2565,3029,1661,637)
ppi<-c(2057,3114,3171,2044,1274,3079,1992,2671,2141,2941,674,2953,1657,956,2062,1985,1530,58,2046,3194,3006,1538)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006457"
rlt[mytot,2]<-"YFL016C"
ori<-c(3202,3126,2985,309,3166,3052,2919,1665,2462,3198,3178,30,382,531,2166,2008,1150,582,905,3181,3004,3203,1779,3168,3189,2660,3135,3201,1427,2575,1468,3070,3191,2361,3194)
ppi<-c(3166,3159,2593,2636,3173,2607,3056,2420,1418,3164,3142,212,1293,991,1017,1188,621,1923,1136,3202,3112,2999,2107,3130,3193,2629,3171,2890,1913,2581,442,2952,3198,2789,3135)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006367"
rlt[mytot,2]<-"YFL021W"
ori<-c(1531,1457,2597,1687,1659,2420,3013,2080,2541,175,1410,117,2838,1561,527,1011,421,236,1002,1639,698,274,1338,829,673,937,2065,523,8)
ppi<-c(1338,2433,2545,1499,2544,2612,2580,1101,2277,2107,2554,1994,2843,1327,1077,1616,188,1764,1997,952,330,34,2322,1196,731,1185,1474,451,2455)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000282"
rlt[mytot,2]<-"YFL023W"
ori<-c(2870,2157,1615,3177,3133,1194,1366,2234,1324,3033,2207,3020,2245,1279,3156,2613,2365,2007)
ppi<-c(2836,1218,2211,3187,3150,367,302,2185,1374,2296,1249,3083,2634,2235,3153,2625,2012,2184)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YFL029C"
ori<-c(823,2110,1581,1444,1494,585,268,683,1813,69,1107,245,1985,168,2,1229,1232,249,2183,1193,2217,2742,300,1575,290,100,998,137,2068,2343,3006,2875,14,809,2091,347,2329,1426,79,2188,1182,2162,1358,2820,957,3008,2639,2314,641,1342,1726,2801,1677,1414,666,2957,2528,2654,2391,1570,1556,808,3043,1977,2702,825)
ppi<-c(315,2620,734,289,3172,340,561,1786,2985,181,1718,1411,2217,1733,2087,1362,718,651,1749,1782,1844,2706,1010,1257,630,2120,2448,1054,2716,1918,3028,2762,5,625,1864,1270,2276,930,821,1845,855,2040,1196,2924,2507,2483,2903,2326,1620,1783,1343,2603,1378,847,1798,1969,2401,2839,2011,2556,1631,2197,2968,3202,2722,208)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YFL033C"
ori<-c(431,1631,1365,558,83,2479,821,2998,1418,944,319,2488,196,1451,816,2687,2686,723,2335,2470,40,777,2394,726,2764,1433,1982,2514,48,1271,2980,333,1859,1709,2912,2568,1971,1057,259,1615,1566,183,1523,1314,348,2241,176,2344,2209,100,2200,3124,210,1435,2220,3028,1462,1886,2933,936,2622,390,1400,2189,825,2399)
ppi<-c(169,2214,616,19,1984,2182,944,2644,2877,1243,1873,2569,2243,2683,2615,2769,2634,553,1998,2681,257,1554,3056,752,3124,2473,2343,2464,736,2631,3061,1507,835,885,2816,2364,1217,432,545,863,815,826,1948,668,2023,1303,860,2802,1609,1060,1751,2881,369,893,2741,2818,1576,1367,3051,2310,2490,1472,1478,2018,1516,1972)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000070"
rlt[mytot,2]<-"YFL037W"
ori<-c(2709,768,2288,3003,777,1664,937,1076,2314,2912,2074,813,2040,2725,2970,2994,1771,1538,1735,3070,2880,3062,2804,3046,151,3036,1213)
ppi<-c(2750,1461,1867,3088,1495,2531,1717,670,2121,3114,1929,971,1777,2722,2544,2800,1947,1841,3156,3037,3026,3044,1780,2534,563,2964,1618)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006888"
rlt[mytot,2]<-"YFL038C"
ori<-c(2681,3094,1552,1284,936,3128,1292,3190,1190,1100,1169,310,2389,2234,466,1102,1392,508,1985,997,2338,1540,836,2414,2937,1078,2989,718,2215,2837,3166,1593,2940,1899,2950,2204,969,2144,2185,1854,1717,579,2122)
ppi<-c(2802,3173,1384,1293,531,2787,1143,3193,841,1112,1228,515,1727,959,533,769,1907,2648,1424,2817,2521,1435,963,2104,2888,2088,3074,644,1281,3097,2906,1357,2623,2518,2871,1352,443,2849,1755,1329,990,1327,1955)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006897"
rlt[mytot,2]<-"YFL039C"
ori<-c(3118,2099,3107,2109,2633,2504,2825,1290,2428,1769,3103,131,3193,277,798,3088,498,696,2987,2904,938,2199,1263,360,2425,1660,2509,1461,1333,2794,1682,2201,665,2069,2173,2048,2203,91,629,2785,664,2182,2209,3044,990,2866)
ppi<-c(2459,1734,3079,1664,2108,2900,2754,2652,2401,2423,2580,153,3101,1685,2791,2395,1021,2229,2573,3005,2155,1472,1317,472,1824,1721,2226,2402,2121,2758,1066,2346,1024,2682,1548,1506,2264,768,1139,2910,2523,2283,1636,2457,1438,2046)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006970"
rlt[mytot,2]<-"YFL039C"
ori<-c(1308,2633,1007,1290,1769,564,2801,1886,622,1310,1841,938,1375,3068,973,2509,2110,1440,2048,3115,664,2721,2271,2497)
ppi<-c(1150,2108,545,2652,2423,414,2238,1587,1274,345,2575,2155,2569,2281,2438,2226,2620,688,1506,2885,2523,2360,2347,2701)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YFL039C"
ori<-c(2969,3118,2447,1267,1604,2964,2997,2149,2697,1023,461,3162,1978,2532,1662,1994,1320,2190,1003,3106,839,2691,2863,2278,1570,716,2106,2102,675,2047,2539,2403,649,2045,938,2331,1901,530,1364,2871,1363,3068,2425,1660,1727,1033,1581,2105,2509,1244,1682,2069,1767,2601,1481,2048,2785,543,3096,2448,2866)
ppi<-c(2041,2459,2510,2192,910,2681,3076,2430,2421,1469,1041,3150,2326,2282,1613,2534,1792,2059,852,2348,433,1726,2981,2521,1064,1652,2084,1308,243,1191,3012,2213,964,1858,2155,1890,1193,491,1255,2960,1785,2281,1824,1721,1525,1784,877,1366,2226,461,1066,2682,1174,2301,1584,1506,2910,794,3126,2909,2046)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030437"
rlt[mytot,2]<-"YFL039C"
ori<-c(1521,2076,3047,1416,582,1868,3030,317,635,1178,2263,499,697,1975,960,295,1837,168,1024,1438,2664,1867,1980,2924,337,1111,2003,1417,2239,2571)
ppi<-c(569,2598,2908,2138,2320,1189,2949,168,800,1092,2722,436,1916,2169,919,972,1339,84,1307,1758,2597,1545,2124,2944,187,334,1950,626,1693,2736)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007264"
rlt[mytot,2]<-"YFL047W"
ori<-c(721,2283,1614,2622,3093,1754,15,899,2561,644,1879,2154,885,2643,1813,1589,304)
ppi<-c(2396,2547,1681,2338,3004,2235,248,266,2783,1990,2456,2206,1522,2320,1045,2228,1986)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006406"
rlt[mytot,2]<-"YFR002W"
ori<-c(904,2782,675,523,2590,3078,2202,1448,2450,1490,553,1565,2481,291,256,48,1636,2912,924,1762,1687,925,165,2665,939,2151,1910,3061,1228,2323,1153,106,709,321,2484,2725,466,1858,1634,2591,1515,2540,2868,1802,933)
ppi<-c(374,2806,1451,2326,2519,2264,1143,1893,2000,2253,1853,2203,2411,91,3066,14,2871,2273,395,1137,1136,694,382,2215,2183,3092,2832,2840,2276,2279,2193,401,2130,105,3204,2923,2176,3134,2928,2446,880,1850,2807,2236,1837)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006606"
rlt[mytot,2]<-"YFR002W"
ori<-c(2681,2302,72,150,553,2372,1854,2481,256,2853,1636,2151,1898,2424,3003,96,466,382,1827,414,1802,2456,1951)
ppi<-c(2678,2162,358,206,1853,2289,2489,2411,3066,3001,2871,3092,1482,2095,2539,1662,2176,212,1003,707,2236,2196,1530)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006611"
rlt[mytot,2]<-"YFR002W"
ori<-c(904,675,523,2590,3078,1505,1490,553,2481,291,256,1636,2912,1762,110,2151,1910,1228,2323,709,2484,466,1858,1634,1802)
ppi<-c(374,1451,2326,2519,2264,2207,2253,1853,2411,91,3066,2871,2273,1137,1284,3092,2832,2276,2279,2130,3204,2176,3134,2928,2236)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0009060"
rlt[mytot,2]<-"YFR033C"
ori<-c(1163,2652,3066,2637,2668,3125,2334,3136,1762,909,2468,117,2666,3031,2910,2616,3093,2965,1737,1745,178,1207,2717,2292,1363,3133,3091,2238,1471,901,1954,2856,1180,2569,3067,2207,1635)
ppi<-c(578,2792,2748,2818,2736,3163,2037,3070,2064,513,2439,88,2652,3064,3124,2663,3173,2960,1807,806,162,711,2542,1912,761,3159,3153,2330,809,864,1964,2635,1248,2443,2911,1808,2223)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000070"
rlt[mytot,2]<-"YFR036W"
ori<-c(2295,811,252,1782,1323,2426,722,1224,425,2226,451,2451,2138,2353,226,359,1645,2805,2575,554,1206,489,149,212,2834,1367,1260)
ppi<-c(2132,3199,146,1387,3202,2095,1088,518,453,1245,3183,2118,3203,1676,1723,1443,3192,3195,2167,656,475,936,3194,989,2871,2131,3201)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0016567"
rlt[mytot,2]<-"YFR036W"
ori<-c(811,956,2602,1323,2431,1584,1648,1224,451,3119,2451,726,2138,1072,1068,1645,2805,627,149,1652,2865,1260)
ppi<-c(3198,2149,1984,3202,1840,2011,1566,518,3183,2322,2118,1735,3203,493,1047,3192,3195,237,3194,1340,2289,3201)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000082"
rlt[mytot,2]<-"YFR040W"
ori<-c(791,1205,2246,2637,307,2448,3152,3164,1423,2465,1399,2075,876,2529,3039,3029,598,1190,1740,1582,2887,3198,1188)
ppi<-c(1591,1860,1818,3203,2022,2510,2503,2383,683,2505,2148,2821,425,2908,3171,2562,3201,847,1062,2544,2726,2939,1177)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006888"
rlt[mytot,2]<-"YFR051C"
ori<-c(3199,2748,1330,2637,3164,1743,682,2812,1305,1758,1829,14,1500,2180,1844,436,2454,1208,2664,2846,743,3174,2204,1676,1286,2607,2192,2209,2624,426,1841,1410,3200,467,3031,1147,3111,3142,2997,1554,1369,3090,3201)
ppi<-c(3195,2817,2068,2767,3181,2240,1434,2946,900,1812,1852,107,931,2286,1175,256,3105,2430,1944,2418,793,3126,2903,1030,1280,3096,1636,2170,1814,2099,2147,2144,3089,2884,3102,1691,3189,2703,2731,1844,606,3051,3106)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000070"
rlt[mytot,2]<-"YGL003C"
ori<-c(316,2223,2774,128,815,19,760,1159,3064,3105,426,2851,1843,1502,2981,2657,2954,579,2906,3053,2248,1729,3077,2986,665,1290,1861)
ppi<-c(2120,2238,2862,704,1885,2685,1029,2068,3202,3186,1968,2768,2242,778,2715,2844,2251,1926,3071,2944,2714,2209,2247,2474,896,806,2243)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0016567"
rlt[mytot,2]<-"YGL003C"
ori<-c(2223,1893,2583,815,1889,1753,2603,1159,426,1160,2851,2036,1843,2839,425,2954,579,396,3077,2889,2191,1861)
ppi<-c(2238,2186,2359,1885,1903,2332,1944,2068,1968,2441,2768,1892,2242,3009,820,2251,1926,76,2247,1310,2435,2243)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006606"
rlt[mytot,2]<-"YGL016W"
ori<-c(2858,451,2856,1457,794,2932,1853,2682,250,3190,1344,2394,2272,1331,1531,1584,1833,1258,995,2896,2408,2141,2507)
ppi<-c(2833,771,2554,686,1812,3011,2357,2396,2228,3194,2535,2451,1533,3061,2740,2464,2669,722,331,2763,3176,3091,1685)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0009060"
rlt[mytot,2]<-"YGL018C"
ori<-c(2983,395,2609,2070,2764,556,1192,2203,2668,991,1281,1929,2721,1840,1343,2492,953,2731,198,721,2752,1764,2015,656,389,1602,626,2740,439,218,1120,632,2361,1330,1663,335,974)
ppi<-c(3074,141,2601,2074,2840,282,645,2368,1983,408,650,1236,2397,1285,227,2407,324,2715,588,472,2986,1201,2029,261,204,987,288,2787,152,569,292,1188,2225,546,2346,537,1910)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000082"
rlt[mytot,2]<-"YGL019W"
ori<-c(550,463,2855,2434,254,3073,2563,2529,350,2293,29,1993,1000,2754,1575,2499,749,1962,2672,11,1968,3067,1857)
ppi<-c(1681,1748,2964,1608,2136,3013,2701,2637,597,1615,1677,1216,553,3202,564,2544,1186,1323,1989,1449,3170,3203,1542)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YGL019W"
ori<-c(830,1308,658,2447,463,1827,112,2727,2434,2883,798,1633,946,2574,1937,3201,339,1035,1290,2156,442,1638,2877,1225,3029,1923,2902,988,2803,2754,1474,1813,2183,1484,1010,2137,2533,189,1483,1879,1016,1986,393,2467,588,1988,2032,1049,3070,164,1733,1778,1775,231,1968,3067,1967,1394,603,2135,1513,895,1754,387,1239,845)
ppi<-c(439,1957,470,2223,1748,1329,414,1937,1608,2969,1589,1970,2660,2741,2412,3126,182,1227,1833,1856,1028,1799,2819,1235,3028,2273,2217,1558,2821,3202,858,1735,1968,824,1204,2004,2940,78,1195,1210,792,1668,1230,2473,2277,1757,1601,2040,2318,1164,1169,1871,1846,111,3170,3203,2248,814,291,2631,2006,1817,1884,1544,1465,601)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006487"
rlt[mytot,2]<-"YGL022W"
ori<-c(3114,3199,2109,3154,3127,869,2509,3005,195,1543,506,3016,2823,2951,2477,3102,3164)
ppi<-c(2514,3198,3203,2941,2930,407,2326,3202,107,1386,128,2884,3201,2652,2837,3120,2943)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YGL027C"
ori<-c(1772,580,1267,1357,312,156,528,2868,1450,2562,2842,22,1854,1224,1735,1997,1889,2230,999,349,432,459,125,2574,881,2790,1936,2631,2376,1472,3073,285,3009,2950,1128,732,651,2258,2917,2944,3140,2248,3191,2929,2645,2662,2601,2635,1952,3113,1356,2909,2750,211,2633,2621,2627,1691,602,3102,2276)
ppi<-c(1644,2238,705,2963,178,928,282,2254,1517,2959,1750,11,1424,742,1776,2270,2370,2603,2307,1861,306,1122,77,2460,638,2650,2195,1821,1479,1008,3118,554,2922,2993,2454,392,345,2425,2828,3061,2934,2539,3193,2705,2859,2589,2445,2609,2552,3159,612,2256,2784,1127,2824,2612,2387,1466,288,3140,2700)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006413"
rlt[mytot,2]<-"YGL049C"
ori<-c(3135,748,2478,2128,2624,230,1698,2828,2662,1193,130,1150,1469,88,1662,3030,2848,1930,2681,2076,2843,2154,2345,489,1902)
ppi<-c(3040,1355,1996,2974,2847,315,1468,2965,2756,3150,666,513,2577,100,2494,3075,2898,2627,2855,3203,3139,1873,2827,224,1707)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006888"
rlt[mytot,2]<-"YGL054C"
ori<-c(2317,387,2516,57,367,1774,2401,46,2726,103,2919,1512,1975,410,1786,2414,1687,3196,2337,2316,1085,1643,1141,2534,1555,2070,324,835,2275,1123,2250,445,1198,2953,1830,3129,2392,1018,1841,2570,563,2960,1137)
ppi<-c(2026,99,2785,521,193,2061,2806,268,2970,1797,2823,801,1230,2453,1211,2333,1553,2533,2813,2079,771,1678,763,2535,1446,1749,158,401,2851,2566,2691,436,1497,2322,1129,2822,1758,1999,1669,2830,264,2412,1628)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030437"
rlt[mytot,2]<-"YGL054C"
ori<-c(2091,1644,696,2029,1656,690,62,2801,1045,1167,1072,234,2559,372,1133,2110,1165,2879,1600,701,54,1430,1259,602,1449,2100,1513,185,1483,1009)
ppi<-c(1017,2024,551,2186,2408,306,652,3066,1112,1111,1287,2085,2376,2004,1052,1140,707,3019,1788,2074,38,1300,1231,276,847,1420,2531,47,1414,1832)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0045944"
rlt[mytot,2]<-"YGL071W"
ori<-c(86,665,864,2501,2358,2976,1381,3203,1477,1106,2410,2210,1784,2434,2907,564,294,1454,460,1123,1980,2508,2982,178,1126,2635,2225,1638)
ppi<-c(32,275,1433,1769,2136,3061,586,3175,1128,1923,2063,3202,1280,2767,2357,190,1168,1848,608,2036,2114,2666,3146,104,458,2712,1539,2696)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006406"
rlt[mytot,2]<-"YGL092W"
ori<-c(2607,2839,2363,841,1164,2370,1024,2403,1681,1871,637,3093,2683,1600,1081,1457,2198,2422,2757,3081,2203,1114,1840,3062,1782,3071,2142,2016,2821,3126,132,912,2563,1013,3161,2066,2199,2974,2875,2582,3115,2074,1049,3162,403)
ppi<-c(2974,3027,2265,2965,676,2691,542,2488,1379,2389,2926,2059,2948,782,2729,540,2573,2767,2854,3204,1567,961,1671,2908,1110,2735,2410,1869,3167,2705,1657,1085,2848,556,3164,1560,2547,3118,2720,2183,3135,2510,1053,2888,1984)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006606"
rlt[mytot,2]<-"YGL092W"
ori<-c(2548,1595,1301,826,637,3173,2683,2793,1081,2164,2198,3071,922,2825,1903,1809,2199,431,1963,2362,3162,2902,2429)
ppi<-c(2935,1463,1394,584,2926,3154,2948,2955,2729,1790,2573,2735,1893,2891,2694,2136,2547,312,1164,2184,2888,2762,2331)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006611"
rlt[mytot,2]<-"YGL092W"
ori<-c(2607,2363,841,1164,2370,2887,1871,637,2683,1600,1081,2198,2422,3081,728,3071,2142,2821,3126,2563,3161,2199,2974,2875,3162)
ppi<-c(2974,2265,2965,676,2691,2585,2389,2926,2948,782,2729,2573,2767,3204,1825,2735,2410,3167,2705,2848,3164,2547,3118,2720,2888)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006888"
rlt[mytot,2]<-"YGL098W"
ori<-c(885,777,1698,323,296,1496,2130,690,1149,712,1404,2818,1586,992,222,2514,655,2906,1475,714,499,754,1495,2362,2721,601,177,461,419,1505,1523,1762,134,2378,309,2668,1730,223,2101,3068,2037,115,10)
ppi<-c(507,331,2079,927,173,2424,2030,803,610,1512,1955,2991,1353,2301,231,2504,2064,2449,2055,2400,508,1351,3074,2025,2736,2279,104,274,1327,2062,2524,1145,1149,2200,469,1976,1493,1904,1737,2048,1809,1209,1357)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006406"
rlt[mytot,2]<-"YGL100W"
ori<-c(1798,1461,3167,3140,323,563,1404,1666,1866,1520,2841,685,415,1558,3190,2977,2496,752,2218,1349,1739,2396,2709,267,2613,2185,1452,1486,2826,1917,1830,3203,2573,2476,672,720,3037,2182,1682,762,1544,743,2455,816,2866)
ppi<-c(1134,589,3143,2323,170,2208,724,1674,1181,2061,2860,1713,2115,2273,2494,3120,2517,2342,1969,749,1275,1783,2412,1279,2993,2377,2260,2327,2659,2438,2663,3173,2558,3074,778,337,2446,2312,2603,2297,919,204,2737,1839,2474)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006611"
rlt[mytot,2]<-"YGL100W"
ori<-c(1798,3167,3140,323,563,948,1520,2841,415,1558,3190,2496,752,1349,3174,2185,1452,2826,1917,2573,672,3037,2182,1682,816)
ppi<-c(1134,3143,2323,170,2208,1751,2061,2860,2115,2273,2494,2517,2342,749,3005,2377,2260,2659,2438,2558,778,2446,2312,2603,1839)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006623"
rlt[mytot,2]<-"YGL104C"
ori<-c(3119,2797,1122,3096,2240,2926,269,193,2626,2219,2279,2273,3017,3166,2085,818,1243,1612,375,3057,842,717,679,118,2303,3146,2359,820,2336,2197,2214,984,1584,1371,2212,2920,2785,2370)
ppi<-c(3079,3090,1161,2666,1890,2492,1514,943,2601,1672,1590,2290,2916,2739,2066,862,396,1629,69,3114,1795,1973,397,442,2260,3121,1759,688,2904,2351,2771,1878,1525,2212,2932,3063,2614,2608)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006897"
rlt[mytot,2]<-"YGL106W"
ori<-c(254,2428,55,2695,414,109,102,2463,383,2750,560,17,410,3151,2502,745,2584,2920,192,289,1887,950,2720,3056,573,627,170,1749,2325,566,1851,1890,1454,1367,1165,1720,582,2789,3052,62,2621,766,952,61,1445,2021)
ppi<-c(2412,3129,190,2845,988,162,544,2515,2452,2365,2330,2207,1704,3005,2818,2381,2006,2890,1830,188,2294,683,2483,3011,270,1410,2193,1942,2086,202,1128,1779,1568,2675,373,1946,1001,2927,2855,77,2520,3202,2565,1646,2021,2315)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006367"
rlt[mytot,2]<-"YGL112C"
ori<-c(2689,2805,2408,3131,3183,2354,2132,2894,1426,2598,1311,1284,2045,2812,1876,901,675,2958,3033,1544,1434,2116,1887,949,1404,586,2659,3028,2255)
ppi<-c(2499,2976,2714,2877,2986,2843,2579,3042,1368,2647,2578,2527,2519,2837,1855,1678,230,2808,2866,761,786,1852,2114,2289,1731,824,2792,3148,2617)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000070"
rlt[mytot,2]<-"YGL116W"
ori<-c(1568,869,2095,32,528,70,2299,489,2975,2329,966,2362,1799,692,3086,2988,2707,638,2739,3198,1561,2694,3158,2816,417,695,918)
ppi<-c(2796,2291,1601,89,2049,2992,2006,2118,3202,3096,2410,2256,2609,411,2915,3084,2533,2412,2472,3189,1201,3008,2617,2638,558,944,2333)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0009060"
rlt[mytot,2]<-"YGL119W"
ori<-c(1678,1763,2953,699,1936,3140,1956,1481,938,2382,1045,2589,831,1774,1415,3078,2503,2018,2538,1651,1217,2737,2818,2984,3142,2597,3007,2056,2381,1490,2020,2861,2350,2413,1590,1136,1079)
ppi<-c(957,1076,2520,1568,1462,3176,1402,1934,1058,2025,567,2665,610,1264,353,3126,2597,1826,2911,1123,884,2902,2506,3086,3174,2472,3046,1210,2596,1644,1739,2798,2285,2562,2362,1099,1780)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006623"
rlt[mytot,2]<-"YGL124C"
ori<-c(2732,2369,486,86,2035,1175,2733,2791,1165,2522,3198,2573,1684,116,2809,2943,2342,1380,1246,2512,1738,2936,2812,2486,3023,2678,1611,677,1170,2728,2191,1499,1254,2515,510,2042,315,2584)
ppi<-c(2150,1815,407,1568,2309,1626,2454,2655,1279,2371,3194,2582,2072,1070,2976,2737,1528,1327,713,1737,2389,2527,2972,2118,3078,2379,1024,591,1901,1955,2248,1755,1837,2443,1123,2006,590,2058)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0045944"
rlt[mytot,2]<-"YGL130W"
ori<-c(1255,1519,2324,2007,41,1640,1283,1886,1570,2794,2766,2306,1653,1561,384,1172,1575,2492,637,3064,2826,2038,797,1118,2885,844,1757,2201)
ppi<-c(529,930,1830,1040,45,940,567,1668,1909,2997,3031,1672,1818,641,1594,518,1614,2405,807,2802,2623,1747,1019,568,3019,416,1113,1738)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007264"
rlt[mytot,2]<-"YGL155W"
ori<-c(2558,2542,220,1539,687,1674,2179,831,2018,1890,2389,1959,559,1120,1906,2488,1186)
ppi<-c(2227,1862,1256,1304,730,2186,1964,948,1250,2502,2768,2128,1198,2262,1452,2285,2180)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006367"
rlt[mytot,2]<-"YGL166W"
ori<-c(2248,990,1073,1132,1379,1824,1756,932,1446,3074,64,1294,1341,2405,2758,2070,2935,3143,937,1384,1586,2022,2361,2182,2730,2476,762,2329,3077)
ppi<-c(1302,2507,639,2212,2643,2495,2567,415,1440,2339,936,2737,1396,2249,2920,2007,3084,2640,1849,756,893,1161,2266,2683,2892,2476,1285,2987,2308)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0009060"
rlt[mytot,2]<-"YGL169W"
ori<-c(784,732,916,808,222,212,2061,364,512,293,1757,2439,721,715,245,1295,661,432,1506,2114,2067,220,2192,609,536,471,209,118,1615,1559,1357,924,1968,1448,851,647,246)
ppi<-c(396,290,1361,1983,92,115,1557,631,635,122,1153,2345,666,1123,6,750,473,729,1943,2061,1266,113,2316,285,263,230,106,53,851,1122,1052,1419,1865,672,1894,879,1518)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030437"
rlt[mytot,2]<-"YGL170C"
ori<-c(1653,245,443,1453,940,541,146,1219,1726,3197,2642,610,2476,291,208,1709,2603,3107,84,2053,1135,1263,266,104,210,1377,1,1094,258,3046)
ppi<-c(1034,928,890,2515,1925,252,735,689,1058,3127,2222,2383,1736,2233,293,1143,1742,3145,593,1872,647,1164,652,71,121,982,1494,597,1141,2655)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006365"
rlt[mytot,2]<-"YGL171W"
ori<-c(3049,3170,3036,3135,3072,3045,3101,1935,2961,3179,2717,3085,320,2220,2900,3123,3203,3144,3078,3158,3152,3104,2991,3096,3188,2998,3180,3157,3154,3159,3046,1817,3097,2464,2465,3116,3198,3012,2819,3177)
ppi<-c(3090,3159,3053,2950,3166,3171,3089,643,3121,3101,2648,3114,2399,1659,2860,3086,3095,3142,3107,3196,3109,3162,3044,3174,3156,3026,3197,2826,3085,3184,3170,1629,3145,3077,2704,3130,3186,3165,2869,3183)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006406"
rlt[mytot,2]<-"YGL172W"
ori<-c(1550,1088,3119,3160,204,224,2113,1957,1891,1637,2937,589,406,1237,3194,3091,2288,606,2001,1124,2284,1574,2773,177,1733,2574,1676,1678,1830,2099,2425,3128,2928,2742,1050,682,3071,1831,724,884,938,500,2005,292,2834)
ppi<-c(1163,441,3090,2179,124,2350,1275,1998,1606,2181,2857,1585,2882,2039,3202,3140,2821,2456,1702,593,2729,1140,2636,1371,2872,2963,2650,2679,2097,2598,2656,3083,2700,3132,1271,291,2392,1695,2351,2330,483,109,2287,2005,2663)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006606"
rlt[mytot,2]<-"YGL172W"
ori<-c(382,2896,2222,1703,2937,1245,406,490,1237,1144,2288,2574,350,2216,593,2734,3071,1416,3120,1832,292,342,2650)
ppi<-c(2794,2941,2278,1278,2857,1511,2882,1726,2039,821,2821,2963,539,2723,2522,2889,2392,1789,3175,1915,2005,1462,2243)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006611"
rlt[mytot,2]<-"YGL172W"
ori<-c(1550,3119,3160,204,224,1452,1637,2937,406,1237,3194,2288,606,1124,3191,2574,1676,1830,2099,2928,1050,3071,1831,724,292)
ppi<-c(1163,3090,2179,124,2350,2177,2181,2857,2882,2039,3202,2821,2456,593,2995,2963,2650,2097,2598,2700,1271,2392,1695,2351,2005)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006365"
rlt[mytot,2]<-"YGL173C"
ori<-c(446,282,477,556,851,995,152,491,244,49,922,444,139,2384,391,303,298,604,622,104,10,249,1000,946,635,354,410,1383,839,415,1213,2293,1335,2024,778,1411,182,1271,1379,332)
ppi<-c(223,118,2312,1060,1200,781,1523,97,177,820,2423,218,72,2158,2642,2331,763,119,1916,18,271,246,2063,249,1396,157,1165,2041,1750,472,454,2277,1429,2900,349,813,100,1675,574,60)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006402"
rlt[mytot,2]<-"YGL173C"
ori<-c(477,152,244,816,413,1702,658,381,391,303,622,60,1069,621,1483,2647,434,2024,778,400,1411)
ppi<-c(2313,1523,177,2723,2685,2674,1434,1222,2642,2331,1916,772,2701,1880,2091,2347,2703,2900,349,2475,813)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000282"
rlt[mytot,2]<-"YGL174W"
ori<-c(999,2314,891,2797,559,1133,1288,2870,2738,654,489,2671,977,939,1415,2799,986,2013)
ppi<-c(1129,2822,1737,2935,419,1630,260,2577,2805,2200,218,2813,2174,1435,829,2953,538,2559)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000398"
rlt[mytot,2]<-"YGL174W"
ori<-c(1574,1691,296,1033,857,1653,2180,1527,472,116,2804,1382,2070,2771,1077,86,883,739,3096,2586,1323,2628,1354,2236,2228,2359,1053,2897,2428,2824,3067,1811,2992,2213,2124,2262,475,928,1366,2782,2648,589,578,980,1152,1155,2510,2526,1711,1827,497)
ppi<-c(2270,993,2371,403,879,2349,2830,2416,2408,2013,2782,1117,2695,2781,490,47,548,271,2673,3203,2337,1895,2240,2587,2149,2893,1280,2429,1415,2869,2557,2933,3106,2088,2264,2524,906,1084,821,2846,2500,172,1555,1071,1762,2890,2148,2040,1277,2269,1943)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006406"
rlt[mytot,2]<-"YGL174W"
ori<-c(2065,1033,2964,3116,390,432,556,2322,841,2356,2753,2713,15,1463,3151,3190,2541,421,2640,1586,1845,1414,3085,1504,2586,1704,688,282,1062,2293,2099,2824,2120,1995,553,233,3146,2305,798,1567,2704,613,1861,1493,2238)
ppi<-c(1260,403,3084,2712,214,2060,111,1974,317,2456,2811,2347,1947,2100,3192,2575,2538,2479,2564,916,1114,1081,3038,1607,3203,2471,2092,1322,1962,2277,2296,2869,2067,1920,840,103,2157,2540,2620,2600,2842,284,1795,1811,2255)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YGL178W"
ori<-c(2288,2395,1124,702,2315,2822,3201,293,1713,365,380,2706,2127,2526,2912,1282,1959,1277,2989,532,1358,3147,2768,2150,3018,582,3031,501,540,1620,807,2387,218,1190,287,1886,1938,235,1547,735,190,2913,1451,591,1510,1688,1555,2070,1303,722,2039,502,2129,2206,681,1712,1944,982,2453,2124,470)
ppi<-c(2972,2383,605,2061,1732,1740,3196,2259,1484,1625,688,2926,2223,2464,2644,1231,2007,2472,2639,837,642,2893,2812,1790,3033,2216,2646,573,167,1490,982,2165,606,2323,2023,1146,1307,353,1415,305,1789,2886,757,1519,1057,1927,907,1507,2199,359,1291,1866,1662,1756,631,2370,1323,1658,2946,1537,2410)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006006"
rlt[mytot,2]<-"YGL179C"
ori<-c(838,3095,2654,1519,1665,2070,1152,2969,1326)
ppi<-c(1407,3107,2475,1734,862,1478,784,3033,2485)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030437"
rlt[mytot,2]<-"YGL181W"
ori<-c(1613,3183,2083,1417,1635,1982,1640,2981,2739,991,2869,2157,174,41,3049,2280,2016,59,2568,32,1920,1113,3114,2723,3055,479,2994,898,346,13)
ppi<-c(759,2943,1546,2331,2437,1394,1182,3113,1495,1115,3073,2549,277,1600,2959,3070,1223,45,2548,2263,1313,1121,3082,2712,3138,461,2138,405,1202,1097)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0009060"
rlt[mytot,2]<-"YGL187C"
ori<-c(2910,3160,2390,2830,2265,823,2687,3201,3202,2595,2693,1021,683,1734,2289,2174,1847,3130,712,652,1755,2084,1579,468,1210,3190,1088,2776,141,1914,1275,348,3025,2733,1139,1367,2519)
ppi<-c(2909,3176,1921,2122,1603,378,2745,3173,3190,2554,2776,485,332,2151,1445,1633,634,3037,833,302,844,1414,1936,149,656,3188,606,2834,105,1609,360,998,2941,2373,1812,1151,2074)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007015"
rlt[mytot,2]<-"YGL190C"
ori<-c(2124,647,957,246,2326,998,1637,2184,598,84,397,2575,2059,2429,3073,524,3069,2595,1095,1831,1280,702,3199,114,1129,2371,1407,2677,1081,2582,1375,886,687,1864,1704,3176,134,2982,840,800,1130)
ppi<-c(2747,2137,2719,574,2162,1013,1874,1841,802,58,2256,2153,1288,2894,3131,2110,3128,2250,584,2176,1891,1164,3173,1633,2520,2134,1365,2599,1518,2600,2252,2165,2442,1528,976,2611,2194,2378,1907,1581,2375)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007124"
rlt[mytot,2]<-"YGL190C"
ori<-c(2456,1749,1381,376,1586,324,598,2065,2781,3119,563,1650,1252,1684,2761,982,2425,389,1866,2678,1280,319,114,2318,223,1176,3054,134,641,2427,1428)
ppi<-c(2655,1538,852,334,2782,128,802,2477,2121,3163,2341,2587,258,1637,2712,1094,2510,247,1197,2927,1891,2450,1633,2530,2001,1351,3060,2194,2794,2440,1463)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006888"
rlt[mytot,2]<-"YGL200C"
ori<-c(2210,1341,1622,2085,2823,1743,1320,2485,2298,2925,1073,1848,2866,1541,2609,1935,883,699,756,3056,1885,2937,3025,424,2595,1958,2292,2928,2105,1084,1561,1258,2035,1902,3181,2672,1395,3186,3078,2382,1702,3123,2912)
ppi<-c(1553,587,1940,1941,2857,2544,1794,1892,1889,1954,1712,2854,2816,2442,2915,1232,603,2477,1685,2546,1779,3124,3022,213,2332,3194,1626,2968,1945,2197,2479,1108,2623,3089,3204,1914,2701,2724,3127,1990,897,3200,3186)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006897"
rlt[mytot,2]<-"YGL206C"
ori<-c(2993,1725,3112,2717,2253,3125,3075,835,2935,1946,2656,3183,585,141,1091,2249,600,609,2986,2166,1400,2849,462,475,2195,1057,1960,1434,1548,2404,2521,2150,1525,1724,1344,706,2290,309,142,1958,518,1299,661,2715,292,1818)
ppi<-c(2433,1630,3155,2826,1834,3144,2952,462,2581,2283,2145,2689,373,3203,3200,2413,1165,3201,3140,1025,1876,2793,1062,772,1509,1391,1923,1900,2677,1712,2234,2168,1441,2437,649,1058,2069,1334,1302,1314,2519,1180,1771,2513,941,2275)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YGL208W"
ori<-c(2860,2009,2822,687,1732,1361,862,236,431,1420,3114,1726,2314,1823,1522,1473,2787,1367,2210,256,393,2864,274,709,1535,2315,515,2362,1718,803,448,1697,1329,458,1667,2370,3083,3176,1097,668,3109,1164,3147,2451,2887,1027,2456,2516,785,1974,847,2688,2521,1979,476,12,938,1212,1249,501,1552,3045,2718,1593,1745,739)
ppi<-c(2933,2120,3155,62,1740,631,1141,1754,592,722,2908,2122,3080,3199,2083,3171,2857,848,1653,159,2572,2004,752,716,1467,2325,2617,2439,1420,2736,212,1721,577,262,1462,2216,3046,3183,1042,370,3159,1907,3179,2266,2324,2116,2105,2754,2254,2445,560,2279,2008,1412,2746,1265,2126,569,718,2513,3012,2649,2629,1674,1566,304)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006402"
rlt[mytot,2]<-"YGL213C"
ori<-c(3169,3118,2664,2429,2820,2350,493,2857,2533,2767,3065,2628,2554,2552,1371,1706,1229,384,1512,2969,1757)
ppi<-c(3082,3110,3042,2652,2499,2578,2447,2803,2812,3091,3132,2667,2283,2527,1692,2203,2274,2897,626,2374,1198)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006487"
rlt[mytot,2]<-"YGL225W"
ori<-c(2480,3155,3162,2671,3136,2257,2598,3167,369,1235,1792,2323,3025,3084,3132,3147,3118)
ppi<-c(2452,3172,3185,2681,3182,1614,1928,3174,173,1248,950,2358,3126,2867,2784,3154,2924)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006606"
rlt[mytot,2]<-"YGL241W"
ori<-c(3185,904,2593,1840,509,2501,3051,3199,2268,840,992,2652,2694,354,1758,2110,1752,2582,1297,2535,1838,1929,2878)
ppi<-c(2477,1149,2350,1135,1630,2448,2828,3094,2140,2505,2604,2629,2256,1571,2414,2527,2457,2115,451,2114,2597,2830,2655)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006006"
rlt[mytot,2]<-"YGL253W"
ori<-c(2389,1186,2467,1706,1737,1296,1122,2307,1507)
ppi<-c(2471,605,2066,1080,1168,684,789,1625,2130)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0045944"
rlt[mytot,2]<-"YGL254W"
ori<-c(2425,1796,1193,1308,1626,935,1984,1001,1243,2734,2077,1761,2538,1831,35,1624,665,1575,3093,2888,3006,2941,575,2845,2737,1177,1824,1178)
ppi<-c(1763,1098,1403,592,1124,471,1041,948,684,2266,1066,1698,2953,951,753,710,1146,2141,3045,2334,2782,2966,1167,2981,2976,548,1032,1526)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000398"
rlt[mytot,2]<-"YGR006W"
ori<-c(1190,1722,2235,2,2639,1388,621,2764,2750,571,2784,2261,3076,2762,1701,2044,2220,806,1464,2814,3070,3175,2751,3064,2651,2279,2551,3155,1826,2619,2520,2376,1320,3140,3122,879,1590,646,581,3109,2467,1799,210,2511,2933,1950,1457,2792,2674,1767,977)
ppi<-c(1490,1108,2314,3,2933,2384,2472,2844,2429,2041,3022,2685,3183,2962,868,1642,1412,403,1915,2924,2169,2025,2475,2902,2094,2862,2272,2458,1303,2547,1496,2750,670,2608,2615,2270,1151,845,198,3055,2133,866,1525,2126,2093,1764,1757,2637,1938,2362,2698)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000398"
rlt[mytot,2]<-"YGR013W"
ori<-c(834,1138,3156,459,2774,2335,812,2775,3078,2655,1383,2359,1432,2700,3183,2926,2353,1309,1761,2662,3197,2843,3057,2513,1680,209,2201,2249,328,2472,1055,1624,288,2121,2067,2996,1217,2273,815,1569,1240,3171,1318,1335,2832,1205,1362,581,1990,833,545)
ppi<-c(1160,614,2662,189,2948,2260,2406,1954,2586,2082,709,1420,1385,2935,3195,3016,1460,609,2585,1710,2270,2395,2449,2731,3202,310,1593,1991,80,2383,3015,1117,114,2219,2211,2529,1674,2403,342,1547,2378,3193,1812,1277,2245,1583,2330,228,2083,1797,1845)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006970"
rlt[mytot,2]<-"YGR014W"
ori<-c(2923,974,1301,807,449,548,2849,944,414,2280,2919,138,2797,2924,912,2198,2456,2691,2511,727,598,653,1177,1476)
ppi<-c(3124,1294,2778,449,2510,492,2543,1431,582,1878,2606,2683,2768,2544,1713,2803,2647,2796,2608,2076,2522,1719,2023,2474)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YGR023W"
ori<-c(736,1977,2361,2614,2921,1115,1362,1305,735,754,882,727,2675,286,188,796,225,359,366,134,943,710,2506,243,2401,2962,2600,2770,763,1076,223,1772,1633,2233,2665,1301,1159,452,1151,288,421,2060,786,1145,289,1950,909,2650,1423,1240,2418,703,195,2561,81,1414,632,2996,2723,1130,955)
ppi<-c(1027,2397,2040,2683,3035,1103,751,2494,978,2613,869,150,2849,132,707,784,1011,2083,1919,271,1768,1294,2517,546,1917,2650,2338,2085,437,932,948,1422,1200,2857,2203,741,618,763,1114,149,2543,2262,432,1458,346,2345,441,2711,2275,1183,2230,2154,99,2311,66,1474,292,2742,2041,957,2134)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006487"
rlt[mytot,2]<-"YGR036C"
ori<-c(1110,682,2737,1524,634,2354,537,1192,2172,2726,2430,1474,2679,1963,1864,493,1033)
ppi<-c(2447,282,2658,1498,867,2441,275,1224,1487,2654,2444,814,2269,1762,1534,388,1273)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000282"
rlt[mytot,2]<-"YGR041W"
ori<-c(52,14,1162,1141,785,1564,1546,3090,976,2420,166,814,2946,74,660,1007,676,1008)
ppi<-c(461,479,1977,515,222,2117,1091,2914,905,2841,411,453,2537,1405,456,502,322,1852)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006413"
rlt[mytot,2]<-"YGR054W"
ori<-c(3085,2903,2766,2591,2128,204,2654,2888,2548,2544,817,2927,2945,1367,3063,3008,3031,3150,1603,2554,3094,2752,1323,867,2052)
ppi<-c(3010,2765,2935,2842,1252,249,2558,2574,2637,1960,926,2992,2639,762,2478,2973,2853,3114,2164,2351,3160,2732,469,424,1817)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YGR059W"
ori<-c(2757,1153,1489,247,2282,2937,3190,159,1429,260,194,2415,1277,2679,2805,755,1016,1311,2734,456,3176,1077,2334,2301,3052,150,2514,162,42,1160,1066,1778,426,464,38,1682,1808,232,1442,853,404,2672,1197,224,2261,1895,1206,2130,633,1108,1964,358,2078,2556,1152,1896,1426,923,2957,1328,1009)
ppi<-c(2784,2295,920,2045,1622,2764,3185,2130,1288,1899,624,1811,2035,2763,2629,1087,1410,2266,2646,798,2822,285,1752,2060,3051,2121,2718,532,24,1166,1243,1476,731,2947,2123,906,1147,478,1261,391,2193,2547,619,1117,1513,2124,585,1512,2347,729,1211,1959,1373,2122,745,1978,748,1386,3172,877,2604)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007015"
rlt[mytot,2]<-"YGR070W"
ori<-c(1243,2986,2448,3100,903,2338,608,2282,3171,174,3150,1127,2576,1981,646,1433,527,401,2910,2503,301,2429,364,334,2170,896,1430,390,589,969,1999,777,2301,2953,1332,726,3144,1295,3060,2639,1253)
ppi<-c(1601,2380,2893,3007,406,1920,1428,1949,3146,564,2173,2299,2336,2037,305,2763,1171,1155,2980,2595,2110,2700,619,1816,2199,791,1381,2161,2265,378,2761,2121,2798,2930,754,1475,2509,2348,2593,2865,2343)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YGR070W"
ori<-c(2121,2986,2720,2448,2759,2982,1906,935,2267,1114,1053,3161,1798,1331,1106,2619,2290,1899,2980,94,3028,2332,2307,629,2203,541,2575,2306,2020,882,567,3087,89,884,2782,2653,2364,1105,491,1159,183,1383,335,1430,863,1202,595,1863,3040,42,1956,777,977,3021,1385,723,2658,358,2604,617,1253)
ppi<-c(1821,2380,2845,2893,2889,3034,1190,2176,2162,2447,779,3157,1590,700,1515,2913,2785,2653,2646,218,2535,1337,2278,1096,1728,1952,2281,1487,1046,764,560,3008,376,2562,2463,2660,1800,697,681,614,1908,1074,134,1381,1166,1996,264,1140,2464,25,1183,2121,445,2766,1332,867,2790,913,1523,138,2343)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007264"
rlt[mytot,2]<-"YGR070W"
ori<-c(1477,2966,608,1147,3171,2673,983,2382,1987,50,1981,2503,1430,3144,1864,1907,1253)
ppi<-c(2716,2621,1428,1008,3146,2542,1740,2209,896,2120,2037,2595,1381,2509,1352,2649,2343)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006402"
rlt[mytot,2]<-"YGR072W"
ori<-c(3181,2939,2554,1300,2832,1026,299,2745,1739,2984,3109,2455,2705,2996,2022,663,2516,1148,2573,2696,2910)
ppi<-c(2989,3019,2946,2218,2436,2000,2152,2625,2631,3004,3070,3201,2320,2998,1778,2935,2067,2929,1937,2090,3012)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000398"
rlt[mytot,2]<-"YGR074W"
ori<-c(2300,1343,1721,1233,775,1847,2047,2577,2431,380,2014,3079,1367,3185,1126,1394,2745,1099,946,2286,1132,3139,2352,3059,2696,1307,1933,3181,2956,2919,974,2792,1058,3166,2782,1368,2813,1046,545,2871,1605,522,2088,1066,2950,2909,1143,2770,3118,1694,1938)
ppi<-c(2597,735,2112,612,2164,2604,2170,2707,2628,2234,1311,3184,1795,3177,377,780,2749,441,2142,1645,1975,2815,2418,2853,2207,1331,1486,3070,3161,2838,2285,2609,521,1850,2456,2490,2814,1064,246,2728,2287,171,2427,1154,2149,2424,2337,2869,3152,2057,2183)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000398"
rlt[mytot,2]<-"YGR075C"
ori<-c(1395,767,1239,1330,450,2332,1238,2750,2998,960,2532,2546,2391,3163,1422,1573,1302,507,2649,2892,1823,2625,1729,3011,2502,1070,2053,2685,2866,3196,2472,2317,2579,3018,2496,2978,2318,357,870,3002,2907,1786,1062,1763,2304,1948,2658,2558,3086,1612,1195)
ppi<-c(1985,393,2632,584,3203,2590,2001,2548,2398,2381,2948,2530,2096,2822,626,889,1055,185,2275,2993,2312,2768,2362,2647,2501,987,2241,2799,3153,3145,2584,2356,2818,1768,2383,2440,2692,724,498,2825,2316,1624,2129,1708,2195,1482,2603,2315,3144,2292,2128)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006413"
rlt[mytot,2]<-"YGR083C"
ori<-c(3053,2510,3163,3117,2207,940,3049,2751,2562,2939,1663,2060,3043,798,2816,2771,2909,3010,1905,2708,2381,1982,2650,57,3027)
ppi<-c(2957,2758,3155,2881,1337,627,2851,2443,2849,2210,1696,1308,2771,501,3112,2934,2767,3004,2107,2474,1938,2916,2769,52,3078)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000027"
rlt[mytot,2]<-"YGR085C"
ori<-c(3119,3106,2882,3107,2721,3156,3028,3018,3048,2310,2858,3127,3062,3194,798,3110,3090,1743,3193,3175,3158,2876,3095,1483,3016,2579)
ppi<-c(3188,3173,2992,3109,2701,3170,3164,3156,3093,2839,3142,3182,3160,3199,1214,3052,3117,2631,3197,3191,3186,3012,3120,821,3134,1667)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006365"
rlt[mytot,2]<-"YGR090W"
ori<-c(2282,2806,1495,2779,1711,3142,2966,3187,538,2142,524,3060,2266,2246,2949,541,2748,2044,1526,2343,2500,2913,3174,3150,1786,3055,2252,2212,2295,1245,3199,2529,2325,2242,2114,3138,1967,1584,2260,1346)
ppi<-c(1853,3112,2054,3066,1360,3177,2242,3191,234,2657,2678,3124,1827,2581,2590,1462,2908,940,1826,2689,1829,2839,3013,3202,1416,3053,2105,2158,1701,2823,3203,2176,1452,2164,2808,3165,1350,1277,1357,421)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000398"
rlt[mytot,2]<-"YGR091W"
ori<-c(1296,2882,3173,2188,3072,2748,1640,1290,2292,2354,1209,1761,3082,1332,1521,3193,1622,2835,558,2761,3140,1483,1911,662,878,1476,2035,1658,189,818,2419,1510,319,1357,1741,1549,1839,2442,1352,1130,276,3060,2413,790,2676,1606,193,1427,1617,728,35)
ppi<-c(1027,2991,2556,1368,2956,2046,2595,1879,2555,2184,574,765,3081,1807,1715,3192,777,2827,2499,2115,2139,1851,2085,996,2457,941,2286,1452,34,940,2086,1033,122,2018,2180,2442,1753,2451,1154,1077,2037,3096,2202,1038,1867,2252,1736,525,1985,1812,1774)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YGR092W"
ori<-c(1576,3131,2049,1652,2550,311,1916,9,1636,820,2167,939,2496,2063,832,788,1616,1782,2771,950,1601,2907,14,951,2170,2492,332,2344,1407,2375,1783,3178,302,35,991,641,1895,2097,27,1702,1067,1370,2573,2685,2074,2542,3188,2740,816,2450,1386,347,2951,335,294,716,615,38,1790,1203,2188,505,1044,1092,3024,813)
ppi<-c(1133,2899,1652,446,3049,163,1587,2578,1195,538,1722,3057,2397,2447,2786,1400,993,1758,3071,529,2045,2819,296,767,1793,2934,1764,1979,1904,1747,1142,3162,81,24,1074,1353,1533,1221,1970,848,287,1562,2740,2641,2213,3079,3166,2872,2374,2218,608,1318,2877,95,1674,1290,1814,14,1109,2846,2209,2012,1154,2479,3094,203)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006979"
rlt[mytot,2]<-"YGR097W"
ori<-c(618,187,1552,2052,1105,2200,1427,441,1593,1505,2402,1233,861,2886,2413,1421,2309,3036,1647,513,2740,1829)
ppi<-c(748,153,991,1598,1027,1518,804,547,1077,2302,1840,957,747,2929,2171,938,1869,2545,1920,148,2481,922)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000070"
rlt[mytot,2]<-"YGR098C"
ori<-c(1331,1698,2413,2566,176,712,3065,2258,3060,2376,1797,872,2240,3085,2760,2740,2065,1487,2308,2978,2779,2836,2335,3153,14,2981,602)
ppi<-c(2549,1786,2351,3203,1193,2395,2976,1829,3144,2604,1949,1034,1805,3153,2478,2757,1916,1862,2038,2951,2565,2902,1806,2740,280,2582,1440)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007005"
rlt[mytot,2]<-"YGR101W"
ori<-c(1574,1700,1185,2393,621,535,662,1802,2201,1214)
ppi<-c(779,1068,1232,2074,2017,739,370,986,2138,1077)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030490"
rlt[mytot,2]<-"YGR103W"
ori<-c(1322,3133,3178,3158,3168,2617,2990,3057,2605,3189,2450,2871,2063,3200,3142,3113,3153,3100,3040,2891,2987,3027,3065)
ppi<-c(2596,2914,3184,3141,3159,2320,3035,3163,2659,3130,2691,2885,2034,3115,2982,2960,3134,3133,3151,3096,3181,3111,3098)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000082"
rlt[mytot,2]<-"YGR109C"
ori<-c(1317,2930,260,2254,959,1081,439,1719,1201,3152,2767,1288,1193,1264,163,940,2207,2994,3135,979,2942,221,3203)
ppi<-c(2928,3188,132,1272,2855,1815,2496,2630,304,3124,2888,347,2381,2196,6,2211,1607,3189,3105,1782,2395,1488,3185)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006406"
rlt[mytot,2]<-"YGR119C"
ori<-c(2553,1604,3170,3176,1968,1664,1414,3042,2667,2763,2253,2222,1544,2148,2880,2681,2621,1626,344,1319,1015,814,1274,2021,297,2299,698,2735,2646,2802,837,1740,2605,2107,1165,930,1681,3051,2691,1393,2984,1643,2947,2687,2389)
ppi<-c(2621,853,3138,2570,1420,2923,694,2540,2632,2691,2812,1981,2911,2683,3019,2921,2877,2631,195,942,871,762,1282,2469,585,2916,2779,2040,2645,2525,2024,1386,2352,1517,1919,400,2494,2963,2721,2430,3074,685,2950,2520,2312)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006606"
rlt[mytot,2]<-"YGR119C"
ori<-c(2246,1189,913,383,2253,2006,1544,1251,2148,2681,1013,2299,74,2723,1676,2376,1681,2556,2797,1778,2687,2034,1039)
ppi<-c(2743,1406,2129,205,2812,2072,2911,1664,2683,2921,503,2916,285,2746,2349,2933,2494,2918,3000,1713,2520,2459,682)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006611"
rlt[mytot,2]<-"YGR119C"
ori<-c(2553,3170,3176,1968,1664,1086,2763,2253,1544,2148,2880,2681,1626,1319,2903,2299,698,2646,2802,2605,1165,1681,3051,2691,2687)
ppi<-c(2621,3138,2570,1420,2923,2389,2691,2812,2911,2683,3019,2921,2631,942,2972,2916,2779,2645,2525,2352,1919,2494,2963,2721,2520)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006888"
rlt[mytot,2]<-"YGR120C"
ori<-c(1089,693,2449,226,709,1602,2360,434,3013,549,2452,1861,2306,543,1110,3170,2664,672,2921,1902,836,2304,834,2719,2184,2444,461,1540,1973,1893,635,311,398,2307,791,2759,2560,282,1305,2682,1049,1882,359)
ppi<-c(655,219,2345,581,364,2104,2219,712,3160,1708,2482,1425,2754,2246,829,3039,2796,1163,2451,2165,724,1812,755,2834,2049,2012,225,843,2480,2133,2089,365,1201,2229,638,2390,2537,1880,1287,2514,504,2025,1445)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000398"
rlt[mytot,2]<-"YGR129W"
ori<-c(1242,2687,3182,2231,2843,2646,2609,1367,2546,2537,130,2093,2804,1504,1630,3197,1863,1984,415,2657,2890,1527,1264,1178,1422,2349,2421,1532,597,1037,2233,1602,326,513,1141,2494,2288,2209,1189,1860,651,2878,2513,879,2110,2029,508,1851,2368,896,699)
ppi<-c(999,2729,2631,1759,2205,1880,3203,1790,2629,2076,47,993,2793,1980,1326,3202,964,1196,2576,3031,2142,1871,2015,3041,2127,3118,1679,2644,200,1081,1969,1846,123,1817,1888,2451,1885,2206,760,3105,2004,2905,1911,992,1854,2831,1844,848,2262,1860,1926)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006623"
rlt[mytot,2]<-"YGR141W"
ori<-c(3147,2799,981,992,2696,2850,2424,2441,1055,2290,3072,708,2654,1119,2529,3109,2014,733,1862,2094,2830,2412,2503,2617,2752,2454,987,2587,2853,3166,3037,2390,334,2283,1644,1513,1956,2322)
ppi<-c(2947,2670,752,2413,2558,2666,1870,2658,1088,2530,3162,2528,2778,1596,2971,2808,800,852,2336,1895,2218,2327,2909,2197,2698,2777,521,1692,2803,2575,2614,1760,814,2225,2194,1808,1286,2250)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000282"
rlt[mytot,2]<-"YGR152C"
ori<-c(47,83,45,2684,743,2269,2747,3040,2355,1721,41,2602,2263,22,2604,3000,390,1739)
ppi<-c(381,895,1114,2755,403,1701,2246,3158,2036,2998,59,2536,2688,1213,2470,3056,224,2306)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007264"
rlt[mytot,2]<-"YGR152C"
ori<-c(1112,45,3072,566,946,970,1779,797,1943,106,632,53,2240,1103,1488,2978,677)
ppi<-c(3047,1114,2984,857,3177,2033,2945,963,1189,73,1560,2451,2124,2613,751,2987,2728)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006365"
rlt[mytot,2]<-"YGR158C"
ori<-c(2814,3188,2344,3150,2601,3186,3055,2628,2403,2946,1267,3203,3122,329,2987,2945,3149,2928,2883,2959,3050,3137,3171,3191,3095,2889,2869,3087,3107,3002,3021,1637,2695,2579,1189,2995,3037,2278,2428,2954)
ppi<-c(2918,3194,3118,3061,3011,3200,3187,1675,2909,2983,2514,3203,3147,2502,3059,3123,2906,2925,3163,3181,3070,3178,3082,3202,3058,2890,3151,2775,2891,3156,3199,1720,2985,3138,1755,3069,3090,2998,1483,2994)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006402"
rlt[mytot,2]<-"YGR158C"
ori<-c(2344,3055,2403,1374,2936,2900,329,2520,1928,2945,2883,2930,2115,2745,600,2223,1689,2579,1189,2087,2995)
ppi<-c(3118,3187,2909,2718,2234,2553,2502,2090,2171,3123,3163,2729,2682,3087,971,2825,2523,3138,1755,2396,3069)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006413"
rlt[mytot,2]<-"YGR162W"
ori<-c(2828,3192,3178,2704,49,1525,3201,1202,2661,3091,2647,3152,2127,2573,2512,1771,3199,3172,921,1701,2693,1888,427,2090,2948)
ppi<-c(2988,2893,3181,2446,1,1109,3127,3136,2732,3132,3203,3178,2270,3204,2546,2748,2965,3091,1765,3196,2679,2862,613,1439,2852)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0009060"
rlt[mytot,2]<-"YGR165W"
ori<-c(2247,2177,3083,2547,2838,3166,1603,2132,2258,3016,1810,1966,567,1788,3173,3194,3172,2363,1794,2056,1051,1316,2993,3068,2552,2731,3202,2895,2543,13,2861,3200,1783,2370,2722,1456,1358)
ppi<-c(1778,1498,2927,2780,2959,3180,923,1559,2146,3086,1125,1342,283,1029,3201,3188,3186,2481,1249,1215,683,725,2546,3136,2518,2659,3200,3058,2655,359,3111,3041,1663,1997,2354,1214,2319)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006888"
rlt[mytot,2]<-"YGR166W"
ori<-c(1916,1602,1423,1621,2542,1971,2060,2228,3028,1333,1742,624,2877,1922,2774,2363,1436,514,3118,3153,513,2943,2153,2840,2785,3119,623,2204,2996,542,1169,692,1585,1111,2223,1764,2768,820,2081,1083,359,1993,2547)
ppi<-c(1466,840,3195,1490,2461,2484,3198,1729,3053,3202,3199,839,3092,2231,2192,2085,739,1291,2644,2247,519,2705,1348,2980,2733,2598,316,1983,3203,1505,2065,603,1970,2543,2059,3201,2936,1826,1485,3197,150,2183,2523)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006897"
rlt[mytot,2]<-"YGR167W"
ori<-c(832,2910,748,1959,1060,19,597,3005,1380,2936,645,300,3008,205,2226,2428,2888,3063,1399,1528,2881,496,3122,2865,1361,2538,1776,2340,2858,1823,1252,858,308,2654,1204,2071,614,1960,3138,1625,2810,1938,2346,1186,2200,2656)
ppi<-c(2362,2589,682,1422,1393,6,917,3096,2380,2348,1771,2660,2834,3191,3156,2381,2376,3176,3000,995,2404,228,2873,2861,688,2595,2395,2123,2452,1178,720,2178,1418,1975,371,2523,953,2015,2947,1102,2497,2463,2228,2262,2375,2508)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006888"
rlt[mytot,2]<-"YGR172C"
ori<-c(1873,1194,1464,2934,2884,1156,1749,1858,2864,2804,725,972,2563,916,2985,2541,736,3156,2175,3142,1044,2876,3091,1889,2500,3203,1036,2429,2645,133,242,1396,2211,230,3020,1790,2275,3124,2860,2676,1444,3017,3064)
ppi<-c(1261,607,2215,2717,2938,2857,2098,1597,2569,2287,1829,1465,2155,2720,3059,2799,446,3130,2487,2315,927,2959,3005,1145,2389,3064,530,1429,2286,2124,2266,1799,2660,2713,3153,2193,2611,2994,2406,2290,926,3015,2996)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YGR188C"
ori<-c(1493,302,1794,2912,2091,3043,2262,3145,1721,3052,1813,3040,502,2556,3056,2939,807,2624,506,2224,2922,297,22,1942,2949,2386,2686,2293,1892,528,1060,9,3124,2526,2384,2119,1572,835,3155,799,2029,1153,230,520,494,331,32,190,2786,485,1711,1726,1297,2234,1893,2434,1579,2672,970,345,1922,2196,636,2448,260,1727)
ppi<-c(938,2779,1658,3104,2949,3120,1765,2910,1084,3001,1712,2989,2445,2633,2842,2828,470,2693,2018,1591,2097,606,1814,1476,2781,2836,2476,2357,2618,1424,454,1507,3122,2537,1979,2270,1270,409,3185,391,998,1769,798,264,2421,822,1108,1989,2458,1567,829,1761,1381,1783,2220,2152,2657,2520,475,2740,2135,2775,1237,2517,1339,890)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006365"
rlt[mytot,2]<-"YGR195W"
ori<-c(2724,3133,2951,2973,2961,2760,2745,624,3179,2967,2919,3048,3166,604,630,2610,3143,3101,3107,3040,2968,2844,2147,2828,3183,2589,3104,3089,3112,3202,2106,1161,2931,2081,1713,2680,3095,2613,2305,3201)
ppi<-c(2844,3145,3199,2784,3094,3069,3201,123,3204,2983,2303,3124,3180,2286,302,2998,3060,3129,3202,3167,3016,3118,2762,2807,3121,2631,3174,2611,2989,3177,2166,1029,3105,3200,948,2787,3135,3083,2218,3197)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006402"
rlt[mytot,2]<-"YGR195W"
ori<-c(2951,2745,3179,714,2209,808,604,2352,2641,2610,3107,2909,3154,3188,685,2964,3127,2081,1713,1049,2680)
ppi<-c(3199,3201,3204,2433,2314,2322,2286,2610,2925,2998,3202,2926,2511,3148,1342,2750,2358,3200,948,2184,2787)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006261"
rlt[mytot,2]<-"YGR209C"
ori<-c(748,1269,247,306,2343,1595,955,2172,1012,1060,1744)
ppi<-c(623,677,1227,647,1741,1443,1487,1672,1228,484,1307)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006888"
rlt[mytot,2]<-"YGR209C"
ori<-c(1006,1669,2110,1250,202,1980,1721,1255,242,1365,588,2235,1359,2467,650,1196,589,1774,809,641,1110,201,72,934,1559,324,2462,614,2120,2145,2197,3015,1320,1856,2275,1606,330,919,208,601,925,2143,576)
ppi<-c(587,805,1711,1399,98,2083,1693,694,704,1483,1265,1398,1081,2515,148,731,321,2093,2365,1407,2068,696,494,452,1484,1918,2148,282,1628,2077,2048,2913,1740,2547,1522,1658,159,1996,353,1272,368,2404,2351)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006979"
rlt[mytot,2]<-"YGR209C"
ori<-c(3111,2982,3174,3191,2406,293,3093,643,2266,970,3180,3152,2764,1785,1538,3098,3170,957,303,1931,2482,2317)
ppi<-c(3054,3114,3183,3193,1932,89,3143,1036,1851,2274,3168,3156,3020,1816,2646,2997,3174,977,1323,1060,1802,1334)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006406"
rlt[mytot,2]<-"YGR218W"
ori<-c(2914,2466,2238,1476,3071,3019,620,3193,2467,2503,75,2053,3116,2550,247,144,220,1742,1798,2995,1836,2199,1496,3101,190,2899,2464,345,2276,3099,1791,232,2462,1824,3135,2372,755,2091,915,3108,2948,860,522,2508,1579)
ppi<-c(3067,2198,1911,2352,3135,2767,243,2880,2785,2330,1760,2629,2946,2850,88,2710,140,2747,1158,3099,973,2092,1164,2954,920,2861,2611,1442,2476,2838,2924,450,2562,792,3110,2221,2660,2883,2581,2285,3085,444,840,2872,2550)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006611"
rlt[mytot,2]<-"YGR218W"
ori<-c(2914,2238,1476,3071,3019,2876,2503,75,3116,2550,247,144,1742,2995,767,2899,2464,2276,3099,2462,3135,755,2091,915,2508)
ppi<-c(3067,1911,2352,3135,2767,2819,2330,1760,2946,2850,88,2710,2747,3099,2809,2861,2611,2476,2838,2562,3110,2660,2883,2581,2872)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YGR229C"
ori<-c(2834,353,114,294,733,1675,2520,1339,1927,567,1233,1073,1451,1967,2616,203,668,489,2518,2812,2485,362,2434,462,671,1048,2305,658,736,1026,3006,990,2498,2863,580,1096,2259,593,3076,2049,3161,2791,2639,759,2246,1501,2857,1938,1446,2357,549,1400,1565,401,1810,2938,1759,1690,1334,2457,1567)
ppi<-c(2430,2673,65,2283,359,2968,2274,2668,1762,2789,1421,785,1992,1389,2561,755,1267,2134,2801,2689,2616,75,2399,220,556,2727,2389,514,203,1272,2959,918,2403,2847,2432,643,1850,637,3015,1529,2937,1912,2763,1489,2648,2218,2919,1176,2562,1841,292,2349,919,1095,1220,2591,1174,1835,915,1540,2407)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006897"
rlt[mytot,2]<-"YGR241C"
ori<-c(1958,1983,673,746,1572,250,397,1070,1460,1047,2387,480,2642,787,2520,1210,3020,1640,2480,1314,2975,2474,2362,3033,1239,2315,2092,2190,1153,1411,2219,598,217,1880,543,1833,2935,2423,1455,1560,3021,2584,1119,2491,2514,2310)
ppi<-c(2151,2294,406,408,1717,111,682,580,2621,2329,2000,2216,2970,3203,3200,2057,2715,3141,3132,1098,2184,2622,1742,2995,819,1841,2189,1745,2635,677,1920,1753,906,2482,173,1710,2674,2424,2063,872,2376,2768,1561,2608,2741,2246)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030490"
rlt[mytot,2]<-"YGR251W"
ori<-c(1779,3052,2325,2411,2990,2753,3145,3178,1326,2594,2682,3138,1743,2585,3190,3164,1914,2244,2689,3039,2767,2477,2835)
ppi<-c(1708,3011,2941,1812,3057,3110,2995,3202,704,2811,2732,2986,2320,2756,3161,2997,1472,2255,2865,3013,2975,3078,2955)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030437"
rlt[mytot,2]<-"YGR253C"
ori<-c(1434,2927,2294,1643,2092,2789,2028,3063,2918,206,1485,846,1282,109,2761,2448,1818,167,3188,732,1074,1352,2998,3113,2310,1532,3116,1501,1764,436)
ppi<-c(476,2895,1536,2274,2056,2937,1735,3170,2768,572,1787,2734,805,1895,2088,1713,942,107,2913,2039,622,1152,3007,3134,1942,1453,2618,703,1916,1680)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000282"
rlt[mytot,2]<-"YGR262C"
ori<-c(1626,2790,979,2986,305,1208,2791,679,2453,435,1549,1881,1801,1882,1295,2651,2732,2300)
ppi<-c(1555,2803,1370,3095,230,1398,2892,40,2649,2007,1305,1186,2063,1806,703,2653,2855,2616)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YGR262C"
ori<-c(620,1781,930,3166,1666,2047,2169,2341,2659,2007,531,1240,2861,78,1341,1344,903,1325,1537,845,1074,597,889,1847,1404,435,2595,515,2706,2719,2605,2488,1560,3120,1170,1289,86,163,2638,1757,1058,2819,53,2166,782,1815,2270,1529,1000,2977,1594,1032,1686,2438,2878,2918,3099,2302,1131,1947,474,854,1062,2960,1468,675)
ppi<-c(351,2368,900,3203,2357,1645,1584,2937,2915,1764,1765,1758,2342,1676,2117,1538,467,1488,2160,519,2122,769,1626,1852,1459,2007,2506,1046,2098,2486,2823,1630,949,3106,1319,1663,336,79,2982,1217,365,2023,448,1755,2090,2858,1681,1948,1608,2767,848,1640,885,2784,2466,2512,2865,2217,579,2259,1082,2039,1289,2384,1541,501)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006367"
rlt[mytot,2]<-"YGR274C"
ori<-c(1054,2848,2130,2051,3177,3098,3145,1625,3070,1705,2949,2110,1361,3065,2299,74,2413,2670,413,438,280,2224,1464,924,1419,2634,1570,1841,1521)
ppi<-c(384,3050,2820,1745,3061,3131,2118,697,2917,3200,2747,2941,1952,3038,1835,2833,1764,2922,2575,270,204,1295,3129,2981,2712,2824,1237,1011,2330)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YGR274C"
ori<-c(1497,2443,2327,2861,1606,2557,2822,2789,2390,2981,2051,2614,593,3154,2620,3120,811,2800,313,2584,3126,1512,2198,3056,1490,2962,2790,2115,1078,789,1178,683,3176,1476,2831,2407,3044,932,2093,500,2927,981,883,1673,742,1613,892,439,3072,102,2232,2017,2468,468,689,2567,635,1091,1191,861,1558,1577,294,712,329,1469)
ppi<-c(902,2275,1694,3096,2045,2213,2912,1892,2364,2961,1745,2080,2296,2599,2625,2967,443,2105,683,3060,2813,1666,2669,2572,1188,2628,2685,2765,2106,2148,573,2288,3192,641,2760,2195,2991,447,1400,199,2946,1622,1072,1022,2096,1319,1299,1989,3073,934,2063,2088,2619,309,2439,2775,1821,579,572,2020,2101,2346,1278,1404,1271,617)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000398"
rlt[mytot,2]<-"YGR278W"
ori<-c(2902,1731,2755,1355,2910,842,2401,3187,3090,2738,681,2488,2530,2965,1167,1547,1953,2046,2275,2449,2457,2997,2017,1771,2943,1503,1863,2337,1225,1640,2850,3164,858,3124,2476,1174,3138,1894,2894,2657,1987,1005,1410,2618,3141,1948,907,199,2178,1358,737)
ppi<-c(2998,1110,2329,602,2728,2404,1734,2764,2349,2464,275,2646,1934,2987,1030,661,1178,1128,2315,2539,2496,2678,2594,1409,2626,1039,1559,1453,473,1667,2468,3049,489,2821,2414,1993,3079,1717,2956,2244,2608,680,1956,2727,2763,2561,1608,148,1287,2391,2271)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006365"
rlt[mytot,2]<-"YGR280C"
ori<-c(3035,3199,3014,3084,3027,3118,2980,2179,2937,3099,2738,3183,3203,510,2561,2949,3102,3116,3075,3123,3110,3130,3004,3168,3169,3041,3177,3155,3158,3189,3030,2113,3077,2392,2174,3081,3188,2958,2693,3182)
ppi<-c(3073,3188,3025,2873,3151,3185,3051,996,3102,3066,2675,3179,3194,2414,2562,2832,3056,3133,3083,3176,3097,3164,3048,3190,3137,3033,3197,2887,3078,3184,3177,2059,3128,3039,2254,3112,3171,3149,2928,3172)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006457"
rlt[mytot,2]<-"YGR285C"
ori<-c(175,1230,138,3119,441,1067,799,2458,2236,772,1241,64,896,1440,1060,2780,3021,2054,2646,1678,1983,401,2923,1136,976,762,1335,830,2732,321,2817,2474,1325,1614,1350)
ppi<-c(857,649,1604,2160,210,1493,331,2706,2087,471,1669,1513,1090,1281,281,2470,3031,2500,2098,2104,1685,1327,2539,1464,511,395,707,2015,2741,211,3016,2246,716,1500,1987)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006623"
rlt[mytot,2]<-"YHL002W"
ori<-c(2495,2836,2821,2528,706,1479,2256,1895,3061,2419,2404,517,2776,1958,2268,1678,2788,3028,1395,1628,455,1688,1663,2620,1060,1882,941,228,3051,1796,144,2394,2057,2363,3132,2682,783,992)
ppi<-c(2771,2710,2884,2613,1422,1706,1528,2208,3022,2477,1940,291,2836,2611,2418,2007,2987,3002,874,1904,1226,2302,1195,2560,631,2846,550,601,2763,2725,1729,1935,1538,2564,3117,1906,889,1752)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000282"
rlt[mytot,2]<-"YHL007C"
ori<-c(3050,2135,1299,2448,3140,3145,696,2291,1613,541,2702,2793,2676,2287,3127,1286,2700,1142)
ppi<-c(2983,2068,2265,1838,3168,2904,160,1478,3006,777,2496,2912,2361,3170,3160,743,2798,2787)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YHL007C"
ori<-c(2204,2677,2595,1936,2925,2108,2740,2074,513,2145,2895,2524,1511,2999,2944,1586,2660,3166,135,1475,1995,2325,2422,2379,541,2953,1041,3156,1221,271,678,2056,3143,349,2584,2880,1563,1440,1650,1765,2509,104,2941,487,2411,2068,2213,32,2258,850,1019,511,2318,2562,613,721,1112,1283,2416,393,1858,3117,235,1546,1743,2952)
ppi<-c(1401,2408,2958,792,1998,1589,2769,2116,839,1470,2784,2569,1890,1905,2597,1330,2768,3132,588,860,2562,1569,2664,2510,777,2875,2859,2982,1390,1357,325,2093,3185,215,2568,2903,1607,834,907,1147,2537,1139,3045,250,2630,2933,2127,1652,2748,1079,619,1862,1747,2090,2185,1677,2033,574,1843,2625,1488,2726,1670,2320,1791,2858)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007124"
rlt[mytot,2]<-"YHL007C"
ori<-c(2755,1299,726,1610,2018,1181,3124,1521,893,2328,2229,1724,2283,1911,562,2650,1855,1440,1941,1765,2860,154,1896,2287,2411,435,670,3038,953,235,2721)
ppi<-c(2895,2265,378,1755,1496,414,3156,2586,1173,1731,2823,1587,1446,1813,1674,1857,1162,834,1341,1147,2111,2926,2457,3170,2630,1389,668,2788,2808,1670,3021)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000122"
rlt[mytot,2]<-"YHL020C"
ori<-c(1917,150,2208,2767,2694,1731,3149,294,1932,1827,906,962,676,914,640,1338,1574,2263)
ppi<-c(2024,130,1517,3123,2907,1487,3117,102,2051,2028,542,587,617,1322,938,1728,1437,1912)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0045944"
rlt[mytot,2]<-"YHL020C"
ori<-c(2640,202,2102,2125,1091,2745,2755,2470,2214,2660,2023,2639,1430,1577,1147,44,1349,700,1886,1471,1789,3181,2432,1381,2251,1813,2476,2887)
ppi<-c(2920,112,1627,1365,594,2860,3001,2125,2487,3052,2165,2922,949,850,1348,31,1605,1621,1838,1904,2651,3193,2080,744,1626,1131,2105,2770)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007131"
rlt[mytot,2]<-"YHL024W"
ori<-c(2151,1635,708,2581,2315,1361,2702,1223,396,1654,987,1614,2285,1157,1655,1014,2975)
ppi<-c(1756,1499,2637,2937,1976,2383,2765,1119,628,1346,1291,1108,2949,2650,950,1325,3064)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000122"
rlt[mytot,2]<-"YHL027W"
ori<-c(1887,2308,1383,1840,3156,2730,2279,1915,1966,924,2909,1036,817,1045,1639,805,2112,1597)
ppi<-c(2761,2026,1411,1048,3111,2864,1467,2748,1226,1593,3034,571,1297,1821,1879,1347,2004,1423)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030437"
rlt[mytot,2]<-"YHL027W"
ori<-c(1415,1228,496,1615,2379,1373,1338,2473,3165,2244,582,51,2183,1735,2140,2504,928,2220,2666,701,1384,1304,1271,1881,3018,2262,2344,2302,2108,142)
ppi<-c(703,2894,529,2180,2213,730,1531,2773,2967,1894,1903,2122,1506,2317,2074,2915,778,1696,2390,2284,787,1147,1707,1184,3118,1677,1981,2704,1738,1260)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YHL043W"
ori<-c(1845,998,983,391,2817,2470,3140,44,993,992,522,1230,1556,2536,2499,1484,1265,1047,1553,690,3154,2292,3108,2251,764,909,2765,275,743,596,420,1424,660,1226,503,758,770,678,1740,390,85,3096,1443,37,429,1925,435,2152,318,1620,1000,243,2597,2409,271,1768,620,2153,2788,1841,199)
ppi<-c(2654,2502,495,1905,2923,1364,3170,2244,997,1993,581,341,1523,2558,2160,2217,1405,2105,2520,1050,2776,1689,2940,1564,1065,2004,2432,866,180,496,310,1413,846,2468,2210,312,371,1044,1653,177,1623,3109,781,1286,324,2239,238,1622,2202,1256,529,2302,2472,2178,675,2754,291,2851,3107,1722,2504)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030437"
rlt[mytot,2]<-"YHR004C"
ori<-c(2889,1813,847,1425,210,1257,652,1235,2388,3120,3186,1818,1209,2722,1885,1714,1009,1291,179,959,2625,467,910,1115,165,880,485,2200,81,3021)
ppi<-c(3203,1626,1100,2438,1940,650,1169,652,2763,3052,2803,2002,1198,2369,2187,1186,1689,723,673,1937,2641,695,977,602,122,268,1652,1526,1184,2945)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007124"
rlt[mytot,2]<-"YHR011W"
ori<-c(1428,1035,1598,2276,2987,3185,2379,2822,2096,108,472,1386,2408,2904,2581,1036,943,2820,2250,224,957,1564,2223,836,2227,785,868,2901,561,2985,1848)
ppi<-c(2135,2159,1089,1515,2240,3182,1712,2002,1275,68,2119,1269,2412,2957,2788,699,877,2965,1862,134,2369,2506,2637,1594,2681,2231,541,2633,1966,2617,2785)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0009060"
rlt[mytot,2]<-"YHR011W"
ori<-c(2986,2205,2842,2821,3171,3048,1718,2456,2602,3018,1214,1645,30,2522,3199,3196,3073,2340,2349,1668,624,2358,1914,2489,2187,2688,3168,3143,1821,415,1621,2492,991,2244,2953,1719,3098)
ppi<-c(3072,1551,2723,2647,3179,3106,1049,2040,2756,3117,643,939,26,2149,3124,3192,3162,2275,2852,754,333,2011,2056,2306,1485,2730,3171,3147,1201,669,1081,2134,1083,1179,2674,1421,2530)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006406"
rlt[mytot,2]<-"YHR015W"
ori<-c(951,745,1447,1658,78,1330,396,935,961,1433,1032,1073,520,2896,2769,2541,2937,240,1807,1943,1102,2566,2592,1846,2916,1140,1363,70,2228,1908,519,3026,1460,2377,2284,1534,2923,2398,1513,630,2837,670,359,1332,2437)
ppi<-c(369,391,1318,2276,48,2076,118,1607,330,1944,1851,2220,1787,2243,2715,2322,3078,2187,2402,1357,858,2625,1945,1575,2993,2014,2181,1298,2010,3027,1680,2962,1971,1177,1725,1229,2425,1657,1991,2149,2916,571,533,1833,3203)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006897"
rlt[mytot,2]<-"YHR016C"
ori<-c(3012,2684,2689,2053,2769,893,2646,3070,2621,2905,2438,2970,858,2199,2534,1356,685,2846,2704,2891,2465,1468,2917,1604,1341,2760,2654,1126,2510,2717,1869,348,217,2634,994,2241,1551,84,1481,2764,1918,1121,1783,2936,324,2358)
ppi<-c(2654,2403,2476,1429,2801,917,2556,3123,2628,2602,2674,2676,508,2032,2361,2337,1206,2006,2180,2949,2232,992,2741,1273,576,1875,2261,1829,1920,2561,1297,2260,1011,2921,728,1707,1688,1632,884,2866,2390,1188,1932,2458,798,2112)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007015"
rlt[mytot,2]<-"YHR016C"
ori<-c(2146,3012,1709,3172,2053,2824,2364,3070,2120,676,2962,1331,2055,569,694,1188,1765,1285,2891,1735,1083,2453,1604,1275,1913,2803,2760,1514,1126,1963,2510,2634,1933,2815,1145,84,2806,1918,2936,1571,2358)
ppi<-c(1924,2654,2058,3103,1429,2969,1706,3123,1522,812,3027,2421,1571,1470,405,2200,2160,1519,2949,1792,1993,2596,1273,1960,2533,2970,1875,2164,1829,2999,1920,2921,2353,2547,492,1632,2100,2390,2458,2410,2112)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006970"
rlt[mytot,2]<-"YHR023W"
ori<-c(934,446,1027,300,1553,202,1940,725,1596,462,356,2694,2076,599,1487,2621,1923,2497,113,1988,1570,2090,399,3200)
ppi<-c(1901,877,841,178,2520,168,2815,2653,1313,131,2267,2063,2600,1596,2268,2110,2670,1789,1010,2549,2464,2365,1610,3117)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YHR030C"
ori<-c(1502,1664,1569,2262,321,1371,1886,2790,2884,1904,1067,165,2065,1488,575,2918,1221,2069,965,1799,3082,363,212,2736,2558,2732,944,500,3167,2875,1641,1882,1544,2552,2646,2147,2229,594,2772,1909,1508,2748,266,2744,709,2237,845,2376,1893,1171,2582,3108,2572,325,2095,2892,2017,1204,1739,2061,1573,760,2631,799,2321,562)
ppi<-c(964,2458,1208,1628,2374,925,1489,2273,1722,2765,1500,1812,2142,2167,2136,2280,707,2246,1670,1395,2769,510,1728,2649,2372,2770,2418,1202,2884,2843,980,2459,847,2342,2687,2143,2365,350,2922,1538,3028,1981,513,2931,2248,2127,1539,2564,1506,1596,2312,2897,2089,116,2578,2846,3108,607,1000,2568,1541,3126,2527,1883,2181,651)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YHR030C"
ori<-c(355,295,1587,1664,887,375,269,1911,1241,2378,2884,93,2874,372,170,1389,1505,1814,312,3004,135,2826,28,330,982,776,1638,2612,1966,1925,1409,299,2721,2421,2291,232,196,1683,2950,692,2595,1722,2827,3098,1733,3122,2483,3083,867,3147,1149,1773,1837,850,1468,2177,376,3202,1097,2976,2517)
ppi<-c(1135,2102,1352,2458,488,1184,149,2303,1165,2384,1722,58,2998,182,756,1306,2268,2417,2315,3001,1685,2936,493,183,946,527,2520,1711,1423,1141,2198,505,2601,2539,2552,143,129,1180,2943,368,2454,1749,2952,2348,1115,2796,2450,3137,2467,3161,587,2012,1336,1442,1314,1943,234,3201,525,3156,2311)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006457"
rlt[mytot,2]<-"YHR034C"
ori<-c(1629,653,2747,2513,2216,196,2425,555,1433,1668,1011,297,662,1467,1721,1160,1295,2927,1742,144,1158,689,765,1674,29,1523,547,597,1151,2552,399,55,601,826,829)
ppi<-c(1793,308,2507,2108,1609,1041,3203,1777,1177,1797,905,2141,1234,2681,1492,1134,880,2594,1805,1486,1004,1172,1838,1364,41,858,846,1958,2937,2515,42,2473,215,189,1458)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006406"
rlt[mytot,2]<-"YHR036W"
ori<-c(2638,1017,2140,2325,2922,3124,9,2673,943,422,893,2956,1766,3113,1188,838,1580,1325,2968,1861,1079,1407,2804,2220,1212,1746,1699,1077,2582,3140,234,1071,798,2107,1493,1690,1083,1658,2123,2820,3126,754,2645,3187,1170)
ppi<-c(2973,477,1810,3036,3039,2545,10,2187,574,1821,2054,2352,2139,3203,625,2521,666,2411,2620,1185,1094,1079,2711,2533,772,2321,2355,1709,3171,2661,1387,1050,2592,1127,1001,1034,2274,1637,2808,2368,3157,652,2700,2834,2098)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006611"
rlt[mytot,2]<-"YHR036W"
ori<-c(2638,2140,2325,2922,3124,2246,422,893,1766,3113,1188,838,1325,2968,606,1746,1699,2582,3140,798,1493,1083,1658,2123,3187)
ppi<-c(2973,1810,3036,3039,2545,2634,1821,2054,2139,3203,625,2521,2411,2620,1540,2321,2355,3171,2661,2592,1001,2274,1637,2808,2834)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007131"
rlt[mytot,2]<-"YHR039C"
ori<-c(2387,1745,921,77,2839,1077,1362,1213,1619,1568,2364,102,2428,1870,3138,722,1215)
ppi<-c(2093,1386,2598,1735,2557,2238,634,894,1356,1312,2156,147,2728,2140,3175,1257,703)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006006"
rlt[mytot,2]<-"YHR043C"
ori<-c(3110,714,413,322,2057,1200,2804,1263,652)
ppi<-c(2798,494,1633,477,1308,543,2829,657,2270)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006365"
rlt[mytot,2]<-"YHR065C"
ori<-c(2749,3081,2916,3140,3033,3037,3022,1902,2976,3091,2253,3049,3190,721,2028,2752,3139,3175,3184,3064,3098,3128,2872,3143,3199,3047,3188,3103,3044,3186,2997,2330,3189,2688,2297,3119,3178,2700,2610,3181)
ppi<-c(2884,3088,3070,2902,3124,3161,3102,826,3142,3047,2530,3084,3181,2284,1407,2830,3104,3072,3138,3165,3103,3156,2988,3190,3172,3056,3200,2656,3012,3171,3170,1983,3185,3091,2439,3135,3167,3109,2744,3188)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006365"
rlt[mytot,2]<-"YHR069C"
ori<-c(2735,2919,3059,3134,2924,2880,3005,1011,3118,2927,2688,3089,3179,745,1484,2699,3160,3173,3200,3129,2757,3158,2739,3178,3166,3049,3195,3069,3040,3201,2753,1440,3114,2318,1876,2890,3198,2451,2905,3177)
ppi<-c(2837,3012,3200,2977,3077,3119,3203,191,3199,3002,2519,3109,3174,2270,804,3066,3201,3047,3185,3188,2953,3177,2959,3189,3111,3080,3194,2388,2988,3186,3158,1209,3134,3202,1116,3003,3182,3055,3010,3176)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006402"
rlt[mytot,2]<-"YHR069C"
ori<-c(3059,3005,3118,864,2246,739,745,2794,2925,2699,3160,2490,2929,3175,1095,2736,2529,2318,1876,1998,2890)
ppi<-c(3200,3203,3199,2311,2349,2291,2270,2757,2946,3066,3201,2836,2456,3147,1479,2801,2202,3202,1116,2246,3003)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006402"
rlt[mytot,2]<-"YHR077C"
ori<-c(2915,3009,2596,2220,2636,1165,84,2458,2398,2852,3116,2588,2719,2878,1234,1974,2238,3026,2145,1599,2803)
ppi<-c(2972,3027,2989,2409,2503,2444,2424,2615,3200,2791,3013,3049,2720,3078,1277,3195,2299,3018,2436,2377,2954)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YHR079C"
ori<-c(1743,2288,2884,501,2021,1677,2298,1390,409,1150,3137,3065,1979,2816,1750,764,2685,2746,319,2193,1051,2273,2199,2185,760,2025,3118,754,191,631,1332,1473,2458,1047,946,1839,2495,2742,348,1556,2446,4,3114,75,2647,723,1271,696,1691,1256,1337,832,812,2644,176,450,469,1398,1731,999,2634,3004,561,2342,867,2693)
ppi<-c(1016,2361,3110,16,2061,1194,1571,1768,999,1202,2910,2569,2110,2106,2572,992,2780,2998,905,1824,1901,1719,2053,2058,803,2069,2492,2352,866,1425,521,2367,1384,597,1031,2518,2510,2730,356,869,1983,560,3022,50,2495,1175,1405,1941,2132,1169,511,2173,705,1762,1818,1311,1639,599,963,2334,2206,2564,1346,2760,1395,2559)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007124"
rlt[mytot,2]<-"YHR084W"
ori<-c(704,1243,740,447,1808,3059,3013,3148,3077,1734,1713,1822,1983,2904,2808,93,578,548,400,1276,1829,1043,2440,486,659,456,521,1928,2488,840,357)
ppi<-c(2390,1935,408,842,1693,3101,2962,2178,2946,1043,2509,1703,2598,3116,2153,294,653,278,229,767,2769,2638,3117,1941,2971,1894,1272,2662,2540,1276,485)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000027"
rlt[mytot,2]<-"YHR085W"
ori<-c(2944,3023,2761,2700,1038,3124,2952,3201,3164,3038,3104,3055,3187,2695,387,3167,3176,1301,2880,3191,3068,3166,1376,1641,1195,3002)
ppi<-c(3127,3162,2965,2756,371,3139,2940,3200,3070,3041,3066,3179,3196,3049,1143,3136,3186,2572,2969,3197,3092,3154,819,985,1945,3052)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006365"
rlt[mytot,2]<-"YHR085W"
ori<-c(3026,3102,3010,3152,2944,3023,3067,1838,3007,3189,2867,3124,3200,147,2365,2829,3107,3193,3092,3122,3170,3174,3038,3099,3094,3121,3187,3079,3112,3176,2999,1903,2930,2511,2389,3018,3203,2912,2712,3183)
ppi<-c(3080,3090,3043,2927,3127,3162,3083,806,3142,3089,2637,3139,3195,2442,2008,2846,3088,3022,3105,3119,3073,3193,3041,3176,3099,3114,3196,2760,3026,3186,3160,1779,3067,3069,2656,3068,3198,3126,2833,3177)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000027"
rlt[mytot,2]<-"YHR088W"
ori<-c(3073,2993,2831,2519,933,3114,2847,3190,3151,2913,3055,3054,3198,2581,563,3173,3150,642,2704,3195,2943,3117,2186,1687,1652,3053)
ppi<-c(3145,3160,3047,2317,359,3129,2865,3199,3073,3036,3030,3184,3203,2988,1610,3138,3183,2299,2747,3202,3010,3122,1571,1019,2885,3083)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006888"
rlt[mytot,2]<-"YHR098C"
ori<-c(2567,2388,640,1539,3124,2000,773,2854,2556,2810,1590,254,2841,1528,3166,1744,865,2956,2474,2857,2786,264,2636,2022,2455,2856,2358,3019,2538,1768,1819,253,2290,1270,3056,2160,3062,3027,3116,1935,1064,3081,3155)
ppi<-c(2517,1912,2013,2012,3160,2344,1967,2579,2177,2335,2305,1404,2014,2310,3179,1122,579,3172,2529,2358,2361,449,3008,1480,2313,3154,1901,3126,2332,2369,2281,403,2761,2989,3157,2434,3197,2547,3109,2356,611,3091,3196)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YHR102W"
ori<-c(2402,2090,1490,2432,3050,1117,2993,642,1921,1304,125,1286,2423,1441,1816,526,2522,886,2114,1786,3158,2317,2449,2517,2106,2681,1665,1684,1221,2290,2068,871,464,2665,870,540,803,19,2053,1018,925,2253,2694,894,200,1846,1671,1556,946,1505,2394,999,1298,2401,1504,1171,1669,986,2383,2576,485)
ppi<-c(2963,2436,891,2413,3112,895,3085,2157,1710,1819,413,735,2255,924,1668,1115,1912,2476,2537,1368,2627,1636,1984,2180,1494,2567,2641,1028,598,2640,1251,871,945,1974,2552,244,383,160,1893,532,1785,1514,2746,1264,415,2108,1010,1020,2560,902,1733,1789,743,2185,901,1298,1084,2040,3097,1663,2369)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006979"
rlt[mytot,2]<-"YHR106W"
ori<-c(3076,1818,2938,2124,2302,256,2721,1759,2271,182,2608,1484,2953,1682,2234,2833,2956,1576,743,958,2394,1323)
ppi<-c(3070,827,3115,1603,1660,312,2807,1654,2343,1983,2408,418,2850,1410,2635,2968,3041,1429,2252,304,2755,499)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007015"
rlt[mytot,2]<-"YHR114W"
ori<-c(3028,1126,1627,416,783,302,2840,2355,1416,2737,946,1108,1259,1731,1688,3068,2549,1231,575,803,1499,636,2965,1582,927,1515,2215,3146,2429,2538,2159,1410,2305,760,892,3089,695,2304,2881,779,1070)
ppi<-c(2861,2521,2127,706,444,508,2490,2060,1415,2704,544,2505,726,1373,1128,2503,2726,1650,149,2273,2162,906,2963,2455,2103,1382,1863,2620,1406,2830,2306,2874,2247,812,426,2907,2165,2415,2659,1569,2547)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0009060"
rlt[mytot,2]<-"YHR116W"
ori<-c(3129,2314,3172,2920,3175,3123,2486,2030,2781,2689,2610,3037,1381,2362,3194,3154,3191,2780,1888,1588,1692,2426,2568,2808,2921,3038,3157,3065,2475,310,1621,3057,2193,3044,1807,2379,1995)
ppi<-c(3161,1665,2978,2664,3181,3139,2206,1713,2812,2777,2628,3092,660,2009,3087,3200,3203,2883,1224,855,1880,1997,2311,2907,3005,3068,3153,3083,2676,622,1013,2861,2452,3051,2391,1740,2484)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000723"
rlt[mytot,2]<-"YHR119W"
ori<-c(1991,937,2165,3031,2244,891,2654,1064,774,2558,1829,771,1907)
ppi<-c(2260,1615,2108,3062,1359,366,2821,501,842,2268,1059,451,1187)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006348"
rlt[mytot,2]<-"YHR119W"
ori<-c(1991,3101,1071,2165,1745,2197,623,2723,3111,1464,1130,1811,2896,2390,1679,780,1720,1064,1645,2859,1985,1955,3016,3180,2482,76,1716,704,2226)
ppi<-c(2260,3145,1960,2108,1607,1885,1266,2650,3152,982,519,2013,3037,1518,1229,1383,1137,501,1475,2781,2685,1554,2029,2288,2154,84,1508,418,1702)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YHR132C"
ori<-c(791,2543,2327,2685,1147,1392,155,3092,2021,2963,1662,1072,2484,1506,79,3159,1736,730,2148,2707,161,2570,63,2299,699,254,2562,1704,3116,1309,2771,1006,2714,3046,3143,864,241,2006,2352,2879,2827,1508,1967,3196,696,1468,1484,1889,3079,1849,1854,2833,2330,2934,1885,3007,2878,1520,2136,2731,3161)
ppi<-c(1253,2460,1984,2250,609,995,73,2307,1952,2719,1666,384,2818,922,649,3116,1513,2246,2337,2897,1456,1858,569,2051,1413,242,2813,1995,3150,1143,2625,949,2845,2610,2705,453,192,2080,2748,2982,2647,2097,1428,3046,729,2211,836,1208,2692,1374,1115,2462,1983,2779,1036,3088,2973,1587,1089,2775,2761)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YHR135C"
ori<-c(1685,2686,1747,3020,1995,438,990,1092,2529,1309,848,213,2837,735,1079,2452,2063,2377,1892,397,2674,1602,1443,1718,2405,1201,1311,2974,260,2698,1939,3047,1130,2305,2565,2028,789,291,2286,1897,976,3037,415,3011,757,2491,3061,1852,1342,2597,2055,1052,2901,1269,1421,2566,2915,1961,1209,2298,2043,1588,2304,1138,3167,805)
ppi<-c(1264,2576,1189,3183,2447,319,780,2246,1608,3203,1447,2004,2172,2117,2757,1880,1561,2736,1834,270,1993,1354,2368,1884,2198,1322,2386,2755,1066,2055,1244,2752,363,2095,2521,2254,952,124,1903,1285,578,2440,481,3098,2362,2507,2928,1953,3045,1796,1142,1702,2963,415,1932,2041,2372,1301,737,2185,1718,2178,1508,1741,3011,979)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006897"
rlt[mytot,2]<-"YHR135C"
ori<-c(1184,2407,1221,2159,434,485,199,806,2041,1785,1762,381,2499,527,3005,2773,628,2244,2353,1049,2551,605,2294,2855,2850,3002,2057,2252,1205,1385,2087,1342,818,3003,542,1906,2943,2314,2417,2089,3102,3139,1699,1599,3051,2904)
ppi<-c(2181,2381,713,1757,1061,117,637,443,3123,2272,1775,2143,3020,1317,2613,2756,2271,2584,2668,1223,2193,253,1659,2861,3006,2559,2191,1714,2549,754,1409,3045,1298,2519,197,2445,2961,2013,2356,1541,2392,2999,2526,2418,2922,2400)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006457"
rlt[mytot,2]<-"YHR142W"
ori<-c(170,284,230,1007,21,2256,1445,2001,611,242,12,301,1483,1581,2840,288,649,1899,1128,466,72,380,151,63,815,3088,945,3,1201,2124,1671,184,28,1763,1)
ppi<-c(2328,184,1711,2821,27,1391,501,2314,500,257,164,2251,1796,1236,2373,293,249,2205,1449,2622,792,2569,2404,1561,383,3139,403,1860,2119,1453,580,1843,112,1358,2780)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006888"
rlt[mytot,2]<-"YHR142W"
ori<-c(825,1067,194,2010,2894,1421,1276,2687,2050,3187,1876,1250,2131,680,2465,1212,1630,3159,702,2418,3131,26,2793,2019,2826,2471,1084,2999,1236,13,579,1291,2590,239,2738,902,1661,3087,2519,2446,2173,1492,2968)
ppi<-c(492,450,1544,1698,3000,2573,2027,2702,2748,2474,2445,1293,1090,2446,3050,1183,1015,2993,2458,2457,2473,303,2634,1297,2793,2868,514,3012,2160,1973,1831,914,2032,2338,3027,1912,1167,2574,2344,2481,1164,2688,2654)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000154"
rlt[mytot,2]<-"YHR148W"
ori<-c(2880,3202,3106,2997,3051,2955,1477,2761,3120)
ppi<-c(3111,3137,3202,2719,2991,3190,942,3107,3158)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006365"
rlt[mytot,2]<-"YHR148W"
ori<-c(3053,3155,2879,3119,2880,2948,3094,2601,2691,3202,2062,3111,3198,72,2431,2882,3039,3181,3114,2747,3167,3185,3126,3072,3106,3023,3088,2997,3051,3076,3052,2124,2955,2771,2702,3064,3197,2761,1917,3120)
ppi<-c(3108,3149,2960,3009,3111,3155,3019,1633,3004,3137,2565,3140,3191,2394,2237,2795,3005,3011,3127,3034,3183,3193,3066,3173,3202,3074,3178,2719,2991,3159,3168,1971,3190,2998,2981,3098,3189,3107,1183,3158)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030490"
rlt[mytot,2]<-"YHR148W"
ori<-c(1259,3119,2880,3034,3178,3077,3068,3199,2415,3106,1613,3121,1873,3051,3194,3163,3020,2955,2884,3081,2761,2892,3137)
ppi<-c(1597,3009,3111,2937,3167,3163,3077,3200,1884,3202,1215,3057,2326,2991,3112,2989,3018,3190,3068,3085,3107,3146,3147)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006897"
rlt[mytot,2]<-"YHR161C"
ori<-c(1917,3059,567,2809,1288,265,2033,3198,1877,3119,1167,466,2937,384,3181,1705,2952,2401,1631,2754,2954,1064,3082,3056,628,2224,1695,557,2805,1874,2132,1038,226,2163,772,2028,726,2042,3122,1834,3142,908,1970,1362,352,1866)
ppi<-c(2493,2853,1188,2975,1465,104,1717,3200,2300,2533,2131,2860,2973,3193,3192,3111,2548,2267,3092,2529,2694,622,3024,3107,314,2198,2696,1199,2400,1130,1699,1594,1237,2145,295,1742,946,1687,2723,1264,2687,1974,2192,2308,1120,2280)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000723"
rlt[mytot,2]<-"YHR164C"
ori<-c(2257,3039,1360,1395,2962,2244,2779,274,49,3064,1094,754,2051)
ppi<-c(2355,3176,1931,1224,2548,1794,2551,197,281,3032,467,493,1661)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006261"
rlt[mytot,2]<-"YHR164C"
ori<-c(1642,2781,569,2302,2371,1955,1350,2633,972,1706,2410)
ppi<-c(1519,2894,1940,2799,1984,1826,1813,2113,1741,1133,2041)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000398"
rlt[mytot,2]<-"YHR165C"
ori<-c(2323,3073,1776,2422,2388,1734,826,612,1179,2275,830,916,1411,1264,455,2998,2024,1947,255,1387,2915,468,2105,280,501,1638,1040,756,35,236,2555,1212,67,766,1639,963,2346,2933,2135,470,240,2077,2636,1861,1930,1541,464,316,1126,1730,513)
ppi<-c(2702,3114,2852,1727,2517,2528,1762,1637,2498,2632,210,442,1125,2480,226,3111,1304,1307,2276,1248,3060,2424,2161,751,1749,920,3203,1897,9,544,2879,1202,40,1988,2343,2723,2838,2922,1744,648,2521,1116,2651,1354,2346,2084,1257,115,2436,2113,2072)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000070"
rlt[mytot,2]<-"YHR166C"
ori<-c(1973,1876,2577,2170,3153,3023,2047,675,750,1164,1812,793,2716,461,2804,1827,2123,1422,347,1391,2155,1345,2824,2160,1485,2540,743)
ppi<-c(2592,3204,2367,1223,3203,2509,2039,3194,331,1131,876,904,3201,232,2633,2201,3195,3196,303,1164,1175,1689,3202,2235,1251,2180,3198)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0016567"
rlt[mytot,2]<-"YHR166C"
ori<-c(1876,2220,130,3153,1351,390,2615,675,750,942,793,443,2716,1873,459,2123,1422,1173,2824,1469,1311,743)
ppi<-c(3203,2338,2038,3203,1225,2260,2399,3194,331,2153,904,1979,3201,1173,840,3195,3196,443,3202,2533,2714,3198)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006406"
rlt[mytot,2]<-"YHR167W"
ori<-c(2597,2015,884,1819,403,935,1738,2080,1279,2149,2665,983,1597,2089,1813,2570,1844,1061,1697,1195,1145,1105,1902,2806,2108,3026,1878,1191,2515,2920,1355,2301,2948,1084,2243,2157,2027,2831,2118,2201,1870,1440,1419,1236,2170)
ppi<-c(2394,1434,807,2325,229,2432,2597,2571,557,2207,2706,1971,2301,2006,1150,2487,933,2366,2389,644,586,1292,1759,2416,1193,2398,2175,1526,2187,2502,1618,2634,2498,394,2304,2468,2572,2789,2357,2336,1446,875,1270,2127,2053)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006365"
rlt[mytot,2]<-"YHR169W"
ori<-c(2886,3102,3032,3180,3004,3086,3072,2752,2916,3157,1374,3103,3163,405,2786,2996,2953,3179,3121,3122,3151,3171,3196,3203,3134,3132,3156,3058,3011,3113,3148,2650,3105,2873,2778,3119,3199,2429,2311,3101)
ppi<-c(2983,3078,3041,2996,3090,3182,3070,2784,3080,3072,2383,3107,3160,2335,2889,2852,3065,3015,3138,3103,3193,3113,3098,3202,3129,3141,3188,2758,2963,3174,3201,2553,3123,3067,2990,3124,3190,3069,1381,3125)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000027"
rlt[mytot,2]<-"YHR170W"
ori<-c(3073,3112,3040,2682,2266,3127,2941,3128,3170,3116,3190,3163,3186,2310,896,3098,3135,1310,2968,3137,2793,3057,2073,1046,2051,2958)
ppi<-c(3156,3182,3116,2660,1620,3135,2904,3180,3188,3084,3149,3193,3191,3068,2573,3094,3172,2270,3039,3183,2958,3079,1684,561,2882,2969)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006623"
rlt[mytot,2]<-"YHR171W"
ori<-c(3133,3052,711,2479,2690,3076,417,471,3189,2983,1708,2629,2559,3129,2395,1474,958,1199,1123,2986,1776,1039,266,629,2594,3201,2064,984,2669,1537,2051,615,451,354,2679,2022,3033,1866)
ppi<-c(3203,3161,798,3169,1959,2750,1232,1065,3118,2486,1024,1651,2007,2836,2630,1351,250,2369,275,3066,2676,2069,63,602,2712,3200,1386,996,3202,2509,2144,1562,1293,1401,2265,2824,2952,2704)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000027"
rlt[mytot,2]<-"YHR197W"
ori<-c(2920,3163,2931,2612,2438,3160,2137,3077,3030,3169,3182,2973,3074,1995,1792,2977,2917,2630,2119,3162,2653,2935,1203,326,1536,2995)
ppi<-c(3039,3200,3006,2655,2098,3175,1888,3179,3170,3121,3155,3145,3176,3001,3022,2954,3166,2722,1659,3185,2792,2862,689,154,2589,3082)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006365"
rlt[mytot,2]<-"YHR197W"
ori<-c(2907,3070,2952,3187,2920,3163,3148,3006,2199,3111,604,3160,3114,1071,3119,3120,2265,3122,2942,2784,3077,3153,3201,3200,3015,3166,3074,3007,2857,2917,3202,2748,3058,2923,2546,3147,3141,2178,2809,2726)
ppi<-c(3005,3061,2937,3084,3039,3200,3008,2959,2262,3075,2242,3175,3131,2422,3141,2789,2915,2889,3028,3011,3179,3073,3198,3202,3071,3180,3176,2610,2841,3166,3203,2675,3056,2988,2950,3154,3148,3016,2624,2854)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006979"
rlt[mytot,2]<-"YIL008W"
ori<-c(25,1403,1338,1251,2016,2471,1564,1582,971,185,2189,2457,861,2068,2067,764,645,784,2715,3006,1103,2306)
ppi<-c(253,624,792,594,1994,1947,852,1521,821,105,1820,1397,1234,1674,2237,1084,354,1475,2837,3161,1770,2060)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006457"
rlt[mytot,2]<-"YIL016W"
ori<-c(890,775,877,1351,1305,1990,1769,620,1407,924,172,2464,471,1826,3040,351,2751,1649,1806,427,1389,343,927,436,456,3083,2386,1555,88,2952,159,528,758,2438,141)
ppi<-c(1335,321,2258,1696,704,2066,793,1777,1088,707,294,2681,536,1271,3016,306,2932,2170,2098,1123,1437,2009,1835,1272,213,3117,1208,2139,1230,3056,12,2393,448,1802,1692)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030490"
rlt[mytot,2]<-"YIL019W"
ori<-c(1573,3144,2957,3009,3151,3113,3080,3191,1867,3170,2179,3121,2281,2994,3194,3169,3038,3012,2887,3124,2649,2937,3084)
ppi<-c(2489,2971,3123,2989,3151,3177,3077,3137,1182,3143,1935,3027,2593,3011,3093,3039,3051,3109,3073,3124,3113,3156,3108)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007124"
rlt[mytot,2]<-"YIL033C"
ori<-c(1489,1763,2611,824,637,2312,1690,2708,3184,2568,124,2686,674,2311,2536,1572,120,2591,2172,1177,324,671,1379,561,1876,1439,2612,1458,1208,2970,785)
ppi<-c(2477,2078,2652,1088,1454,1473,1267,2109,2961,2610,2004,2563,2186,1560,2137,1141,704,3204,1605,3203,2081,2154,2080,1348,2190,1995,1767,2015,2020,3185,707)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000082"
rlt[mytot,2]<-"YIL035C"
ori<-c(1445,1685,1219,3171,1204,2864,3202,3189,318,2600,329,2159,2566,1189,1131,2301,1007,3071,2676,1873,2516,2774,1214)
ppi<-c(1812,1918,671,2954,2286,2926,2685,2567,201,2761,1934,2742,3199,563,265,2663,1601,2845,2763,2636,3183,3202,1791)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YIL035C"
ori<-c(517,1932,260,1957,1685,2432,335,1379,3171,1456,532,218,2481,668,775,2691,762,690,2070,1427,2566,1020,2068,698,2372,1057,563,2515,781,2652,1023,2579,172,1110,610,2073,1642,1018,1400,2650,1380,2867,1239,2963,883,2911,1927,2783,385,1404,1833,1662,1689,314,2516,2774,1684,453,1699,2820,1561,228,2039,1447,2418,448)
ppi<-c(232,2168,75,941,1918,2744,611,1761,2954,1553,1565,1336,2355,1804,1827,2175,410,1753,1691,860,3199,970,2855,1089,2533,1175,1995,2661,1361,2400,435,2618,65,1010,901,2070,1558,632,979,2856,605,2131,1471,3076,2387,2876,1855,2418,2057,1574,1441,1781,1158,112,3183,3202,1865,181,1029,2642,1437,1526,2212,1738,2441,443)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006406"
rlt[mytot,2]<-"YIL040W"
ori<-c(1721,602,1640,1837,1193,130,1310,2534,476,412,2525,333,703,1142,2722,1727,1451,843,2096,2386,1480,1097,2408,2053,2874,615,2657,8,2565,320,297,2788,1138,1535,2443,3043,2422,1034,699,2606,693,456,1341,1249,2873)
ppi<-c(854,253,2216,2113,594,1630,1010,2939,148,1818,1899,2325,1960,1705,2579,2234,964,2221,2590,2482,689,338,2092,2208,2591,2338,2485,925,1902,2494,1525,2739,2025,559,1897,3142,2471,1231,2257,2299,334,302,1164,1935,2763)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006888"
rlt[mytot,2]<-"YIL044C"
ori<-c(297,873,1334,361,534,2244,2388,2635,2462,1727,1327,433,1599,2538,1617,2689,2418,225,2983,2885,1732,748,2051,1861,3179,2321,1547,729,1746,868,2006,127,1472,1213,1621,760,1492,874,1047,3069,1536,994,387)
ppi<-c(247,443,1739,733,290,2054,1877,2887,2446,1843,1734,445,847,2285,1513,2452,1944,862,2431,1977,2423,808,1780,1082,3115,2247,967,446,1844,2532,2215,227,1693,2529,1392,1419,892,1980,951,1902,802,1958,1469)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0016567"
rlt[mytot,2]<-"YIL046W"
ori<-c(1828,355,1661,1688,1809,1351,1307,3039,1356,849,2246,2487,2439,305,709,2011,2990,2330,1244,465,2702,1877)
ppi<-c(1936,2530,2846,1943,1749,2522,2427,2060,604,1919,2019,2669,1946,107,1252,2034,2005,1665,1800,2045,2423,1944)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007124"
rlt[mytot,2]<-"YIL049W"
ori<-c(1199,3158,3119,2291,1377,1192,2651,209,730,1107,534,1242,2409,1223,347,1601,1164,3092,2942,1941,842,751,470,2630,2413,855,2147,2999,975,1444,1820)
ppi<-c(2419,2871,3124,1500,1043,471,2816,2351,1167,473,2207,1899,2446,148,835,2265,1467,3074,3029,1123,2060,2393,1676,2687,2140,1407,2766,2394,2226,1453,1083)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006970"
rlt[mytot,2]<-"YIL053W"
ori<-c(1299,2066,1242,1436,1277,3203,267,170,1612,1985,803,2278,1024,350,2189,2117,1664,1387,846,2142,2618,2327,1966,451)
ppi<-c(1370,2420,1328,806,2408,3202,1892,2148,1890,878,2220,2489,2010,1038,2282,2464,2231,1160,1195,2117,2534,1757,2214,1170)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000398"
rlt[mytot,2]<-"YIL061C"
ori<-c(1672,1154,622,386,335,402,2148,2494,1688,496,3031,1501,1731,1112,2755,538,475,2009,307,1820,641,1882,544,1913,2239,2602,2255,1427,3098,3128,2705,2928,3106,2067,1886,2899,998,1357,1930,3032,2685,868,396,2217,1748,1979,2794,990,2178,1924,1270)
ppi<-c(1563,591,2530,145,508,2050,2606,1843,2389,2292,3066,685,1337,2012,2988,151,249,2680,126,2625,2261,1999,1984,2178,2039,2088,2571,1535,3140,3059,2816,2569,3158,1593,2167,2155,1594,1362,1509,2957,2386,849,1909,1637,2296,1879,2425,352,2917,2364,2260)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006611"
rlt[mytot,2]<-"YIL063C"
ori<-c(1450,2696,2920,428,635,1644,1370,2953,236,1063,3183,3191,2480,1157,1020,2593,2403,1963,1830,2844,829,3153,1086,1718,535)
ppi<-c(898,2875,2077,235,2455,2433,1891,2806,2080,2044,3196,2645,2553,2859,513,2716,2525,2384,2539,2508,845,2149,1265,2367,1748)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0009060"
rlt[mytot,2]<-"YIL070C"
ori<-c(2304,933,2661,3160,3115,3185,2021,2066,2419,3064,901,2598,552,1896,3157,2972,3181,1316,1783,1283,462,1160,2065,2631,1788,2421,3167,2688,2088,191,1807,3179,2638,2478,1832,1695,1768)
ppi<-c(2027,451,2620,2804,3146,3187,1420,1640,2817,3082,514,2687,303,1207,3078,3126,3186,1320,1309,533,626,663,1976,2661,1149,2012,3182,2894,2049,570,1231,3031,2771,2940,2612,1169,2805)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006888"
rlt[mytot,2]<-"YIL076W"
ori<-c(995,1490,1452,302,1652,2466,1395,3124,1969,2605,321,517,3152,2945,1237,1628,2648,2513,2318,2747,2338,1497,2435,2659,3131,2160,489,633,2255,1558,2080,1376,983,1124,3008,2171,448,2032,2023,3146,2577,1445,1084)
ppi<-c(636,894,2112,673,1091,2569,2027,3100,921,2315,1586,1140,2977,2411,504,879,2794,2489,2363,2403,2688,1478,1950,3006,3178,2170,293,342,2313,2846,2020,1089,1942,2067,2994,2216,207,2413,1600,2261,1916,1909,1958)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006406"
rlt[mytot,2]<-"YIL079C"
ori<-c(1187,74,3093,3014,980,793,47,2679,109,364,2970,1615,122,1700,2928,2997,3079,1294,1417,2222,2528,1843,2223,427,3090,2036,1521,505,1068,2495,2225,3069,2127,2584,1133,1548,2577,1165,560,2935,2004,150,1636,1012,2423)
ppi<-c(565,38,3074,1830,465,2319,48,1732,41,1562,2569,2104,1616,2080,3073,2264,3185,2346,2465,1687,2119,1106,1726,1288,3143,2163,2020,2306,1724,2354,1721,3019,1960,2949,908,894,2116,1052,2378,2303,1314,21,1468,1710,2186)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006487"
rlt[mytot,2]<-"YIL085C"
ori<-c(2228,2698,2036,2992,2576,2537,579,3156,2133,2829,1982,3169,1634,2161,1614,2987,2249)
ppi<-c(2261,2848,1507,2299,2444,2331,202,3067,1539,2768,1244,3166,1362,1775,2756,2913,1976)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YIL085C"
ori<-c(732,1613,909,2167,1215,228,104,2228,2005,3202,2183,608,1759,1778,56,3081,1726,769,367,2310,178,937,5,1980,775,696,1920,1083,3119,530,2568,123,3112,2487,2578,130,146,2617,2372,2536,2994,1366,1558,2609,549,2070,858,2681,2471,782,946,1369,2378,2067,2226,598,1976,2204,41,1143,2185)
ppi<-c(1153,2166,457,2019,653,1142,51,2261,1894,2859,1551,136,2531,1292,604,3096,1856,2207,2364,2000,1443,672,365,1504,1487,565,2084,2064,2885,755,2817,299,3029,2621,2074,82,100,2869,2267,2663,2705,1484,897,2253,438,2011,437,2893,2061,409,400,2508,2377,2088,1270,1371,1306,1702,60,282,2242)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YIL095W"
ori<-c(2396,3073,2512,2804,333,189,1354,344,645,764,81,1391,2731,369,557,226,2507,2953,3110,2933,1291,179,1783,733,2763,988,396,1711,1037,2247,531,3063,755,2789,2281,2085,1189,1238,1019,317,1891,1701,361,1139,1260,1407,2830,2827,1975,2882,2233,659,2665,1771,2270,2555,2437,2331,3090,1785,1303,1245,1895,2364,2982,2726)
ppi<-c(2477,2427,2878,3087,2887,92,1803,1829,1635,694,1274,1973,2419,2377,2300,944,2335,2978,3004,3040,2132,503,2390,1338,2656,1083,2493,1970,1828,2170,1483,2718,321,2308,2127,1961,1203,652,2711,129,932,2281,1101,595,2403,1589,2557,2863,1800,2704,2492,1585,2365,1480,2295,2306,2452,2342,3150,2358,1983,2086,1455,2621,2831,2231)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007015"
rlt[mytot,2]<-"YIL095W"
ori<-c(2776,3034,3073,2321,607,1512,1363,1598,875,2291,2839,2304,1218,1660,2618,1862,2050,2085,1807,1280,1677,922,3043,110,663,1138,3037,968,795,40,534,1736,3049,1794,3194,2589,2379,2863,3117,2579,2000)
ppi<-c(2323,2709,2427,2133,343,1073,2315,1087,1113,2439,3038,2666,2249,2432,2761,2214,1842,1961,813,2134,2788,1449,3042,1682,2181,822,2844,1616,950,12,2518,2672,2433,1758,3189,2841,2611,2450,2588,2441,2552)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YIL106W"
ori<-c(1832,3129,2344,2210,1525,60,1013,120,2187,102,1274,321,3095,550,131,373,1909,1594,2676,647,1618,1448,3173,42,2250,737,1802,1708,1253,3110,2762,2761,194,1261,1741,897,1344,873,163,2511,774,2657,1242,3059,986,3012,3199,2803,451,2973,2110,254,2755,568,607,2454,2183,551,2038,2944,1051,1138,2114,1356,3166,1422)
ppi<-c(1558,2861,1424,1376,3065,35,1086,1453,1152,387,1464,2727,2318,2141,2823,973,1387,1666,2943,333,2126,1440,3152,334,1658,856,2806,2143,1273,3134,2082,2710,38,1018,1597,1655,1067,448,2959,2133,259,2196,1281,3112,2370,1758,3180,2369,2515,2531,1419,1123,2925,299,1793,2057,2748,229,1494,2978,1525,2466,1576,2038,3187,1150)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006888"
rlt[mytot,2]<-"YIL109C"
ori<-c(2477,1161,2279,3115,3201,2202,1039,2062,2980,2676,1188,526,2617,881,2800,2254,521,1852,2724,3136,3203,155,2992,2382,2358,2284,504,3112,2628,1427,45,799,1694,755,1576,921,2949,1902,2224,1631,2298,2855,3039)
ppi<-c(2438,483,2205,3118,3193,2588,2093,1827,2666,2305,2037,1186,2850,2454,2670,1386,330,3203,2482,2329,2655,316,3167,2441,1986,2110,261,3136,2303,2562,2483,1076,3032,3137,3103,1881,3196,2275,1625,2331,1791,3189,3202)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006406"
rlt[mytot,2]<-"YIL115C"
ori<-c(2936,1979,573,932,1549,1932,256,1478,1108,2087,195,3038,2662,2919,140,60,1483,1930,2914,1686,2050,2766,1916,471,1695,2075,1989,913,2627,2299,293,120,868,1405,3049,3063,1587,2774,2228,2238,3084,2352,1436,2366,1143)
ppi<-c(3138,1436,537,2267,849,2078,75,3136,3006,2076,2549,2064,2751,2306,52,2372,540,2432,2514,896,1551,2920,2079,516,1002,2853,2309,2209,2743,2481,1704,393,2994,977,3013,3112,2491,2749,2232,2442,3081,1565,1316,3153,1651)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007015"
rlt[mytot,2]<-"YIL118W"
ori<-c(744,1467,1025,1442,2734,400,113,299,1895,2437,1919,361,1732,1638,2861,1402,1856,698,1464,3055,1880,597,1374,498,247,21,435,1148,1200,1494,480,371,1247,2705,3049,2281,887,752,2279,2657,1549)
ppi<-c(1286,2202,2141,1298,2835,736,1533,189,1626,2532,1142,1998,2308,915,3004,2422,1419,1444,603,2800,2705,1490,1188,2132,2477,236,1588,1881,2007,831,1968,1577,2913,2933,3112,2031,2360,2353,2238,2729,2736)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007264"
rlt[mytot,2]<-"YIL118W"
ori<-c(2088,2292,113,3176,1895,2880,1850,1739,2314,1919,508,3055,435,887,505,386,1549)
ppi<-c(2325,2160,1533,3100,1626,2662,1913,1511,1833,1142,1312,2800,1588,2360,171,2032,2736)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007124"
rlt[mytot,2]<-"YIL131C"
ori<-c(2531,1654,710,1302,2032,374,833,714,40,1760,2239,2477,1864,1028,722,92,1044,881,1332,713,2761,3112,568,3134,450,2934,543,524,683,1857,1487)
ppi<-c(2587,1974,546,1072,3128,116,1161,2294,257,1080,2271,2333,2725,130,1279,1610,1201,507,932,410,2845,2720,2003,2871,2413,2623,408,2254,2300,1606,1138)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000082"
rlt[mytot,2]<-"YIL135C"
ori<-c(755,1947,2090,1011,2001,69,1393,1771,3009,71,2880,2863,1532,119,941,2210,1544,53,280,2690,1413,1979,309)
ppi<-c(1923,2912,1461,1167,2115,430,2180,2570,3153,413,2836,2859,1821,95,1349,1899,1429,375,336,2530,1983,1693,1706)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007015"
rlt[mytot,2]<-"YIL138C"
ori<-c(2407,1180,2510,708,3173,1905,1091,2080,1461,3101,532,404,1693,2358,2920,58,2559,2184,502,3082,849,896,2902,77,1988,1323,615,2751,1761,2883,1239,1464,538,1820,2845,3011,167,1810,951,2768,1610)
ppi<-c(2478,2558,2758,908,3190,1673,2317,3036,1722,3082,299,2517,2220,2500,2951,2277,2564,1723,306,2728,2283,2721,2958,1605,2895,1206,1749,2385,2376,3098,2184,2363,2802,1849,2954,2066,2368,2762,2191,3065,2662)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006457"
rlt[mytot,2]<-"YIL142W"
ori<-c(2422,2910,662,3104,1976,1904,2356,2717,3195,3045,2555,1908,3051,1194,460,777,3180,1436,2199,3172,2922,2459,3064,2989,2454,1150,2313,2763,2782,359,2559,2648,2832,1753,2622)
ppi<-c(2839,3028,1779,2224,1301,1362,1640,2704,3203,3072,2651,2626,2888,1281,900,269,3197,2316,2012,2982,2955,2761,2538,2664,2365,701,1736,2423,2933,213,2676,2239,3013,1148,2831)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006367"
rlt[mytot,2]<-"YIL143C"
ori<-c(1861,2965,2613,1488,2779,2969,2710,1452,1457,2340,1465,2835,2615,3077,2616,754,2787,3062,608,621,371,2794,2133,531,1348,2690,970,2174,2206)
ppi<-c(1532,2322,2742,1491,2220,2507,2159,597,1966,1933,2160,2294,2251,2939,3045,1638,3054,2618,1839,275,174,2474,2141,1428,1084,2781,885,2146,2356)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YIL147C"
ori<-c(1143,1681,1986,2230,3044,2719,3010,3110,1111,3167,2661,2925,443,2770,3177,2643,1899,2745,123,1770,2165,1334,486,3150,1615,3135,3072,1645,2367,1116,134,1088,167,1698,2355,2440,1319,574,3094,986,2497,573,1455,353,1106,637,315,15,2823,817,1297,1103,1973,2123,1294,1359,1747,1876,964,405,2059,2337,19,1257,483,1918)
ppi<-c(570,2780,885,1359,2948,2967,3141,2433,1002,3128,2364,2715,2242,2553,2764,2713,1226,2725,893,993,1859,1352,2767,3088,1378,2976,2619,2916,2165,2273,899,486,2007,1157,2205,2334,1444,321,3093,649,2935,1082,934,149,2240,801,1278,1416,2480,1368,1673,1730,1867,1267,2069,1697,2337,1069,435,1942,2197,2681,983,2323,1388,1036)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006348"
rlt[mytot,2]<-"YIL150C"
ori<-c(1569,2555,2358,2809,2033,1839,2634,2785,1491,959,3110,715,1887,368,1594,1541,1694,3157,208,809,1245,1109,2332,2363,2769,1636,1303,964,441)
ppi<-c(2658,2521,2763,2446,1633,1356,3024,2195,792,506,3135,2466,934,268,1624,2017,1020,3171,260,2068,1617,474,2132,1932,2493,1134,878,279,455)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006970"
rlt[mytot,2]<-"YIL153W"
ori<-c(967,1559,1757,773,1135,2331,1185,2263,410,1985,3156,1986,989,1963,2707,2312,2635,563,3094,442,2938,653,1610,634)
ppi<-c(1389,1488,929,428,2344,1893,2598,2146,1605,1777,2391,2302,2132,2803,2521,2338,2503,238,2989,1983,2547,1853,2241,1524)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006970"
rlt[mytot,2]<-"YIL159W"
ori<-c(3113,2068,2324,271,416,1394,1924,3028,305,888,3172,786,1598,2511,1058,2820,2617,882,1813,300,879,696,1305,1569)
ppi<-c(3039,2240,3061,174,2615,1044,2810,2799,1489,726,3192,2969,2791,2684,2088,2967,2878,379,2502,2951,2714,1369,2000,1967)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007015"
rlt[mytot,2]<-"YIL159W"
ori<-c(2023,1523,1882,1425,30,70,2494,271,2449,570,1456,1113,3001,1868,1461,83,1543,2080,475,840,2958,428,548,3176,1598,349,2877,1163,2051,326,1214,2355,2617,509,1742,665,2989,879,2861,1569,487)
ppi<-c(1935,2588,2806,1380,39,464,2841,174,2644,945,1086,2560,2379,1462,1665,76,1635,2205,185,2928,2355,1256,795,2625,2791,801,2674,1687,2961,299,2322,2663,2878,967,1150,1655,2632,2714,2672,1967,2618)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000398"
rlt[mytot,2]<-"YIR005W"
ori<-c(2058,1361,2409,215,2993,2034,2268,1733,2398,352,2671,2924,2689,2415,3118,2962,2793,2289,1226,1857,2964,2730,2918,2313,1390,1535,863,3070,1097,2944,2777,1225,2036,2971,3175,1788,2966,668,2195,2816,1387,3088,2698,1705,2504,1735,1953,2724,2603,732,82)
ppi<-c(2198,719,2079,88,3134,2077,2385,2194,2210,1988,3203,2885,2287,1812,3168,3088,2881,2013,554,2095,2265,2698,2543,2628,2309,1417,995,2847,525,2906,2054,2039,1422,2141,2603,2307,2824,734,1770,2781,2154,3152,2357,1501,1893,1643,2818,2647,2025,1656,1997)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006406"
rlt[mytot,2]<-"YIR005W"
ori<-c(616,215,1930,1349,499,148,90,603,110,612,2051,1461,694,1721,2978,1935,2671,316,281,2719,1198,2148,2930,3155,1729,916,1439,665,2002,796,1392,2944,804,2027,862,3030,2492,1188,1021,1350,1710,1375,1171,515,2283)
ppi<-c(281,88,1360,2085,227,2452,70,1405,30,1578,2087,2525,1832,2060,3106,2303,3203,2383,2434,2627,559,1803,2646,3058,1958,2030,2347,2031,2074,2335,2229,2906,2033,1423,606,3136,2388,1111,2105,2654,1071,567,953,2036,1892)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006897"
rlt[mytot,2]<-"YIR006C"
ori<-c(3125,1683,3072,1258,2177,2644,3052,745,2883,1809,3127,3119,176,3138,1285,2499,3007,2605,1605,2587,1767,2159,443,773,2763,2936,3085,1955,723,2260,3180,616,301,3039,151,2506,3147,74,387,3192,1797,3003,1046,3087,1466,2919)
ppi<-c(2499,2460,3039,689,2199,3078,2944,357,2465,2651,2933,2334,576,3181,3158,3159,2566,2157,3154,2741,2462,1638,838,796,2896,2270,2471,2235,2838,1562,3193,2726,1005,2784,109,2081,2971,1476,892,3195,2591,2990,1706,2829,1480,2483)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000398"
rlt[mytot,2]<-"YIR009W"
ori<-c(1191,2293,3150,768,3144,1805,236,1994,2508,2288,1362,3020,3173,1259,1873,3174,2854,2147,2773,640,2791,2879,2942,1292,1624,1844,1826,2785,79,1068,2857,1682,597,2432,2161,1702,2730,2077,2042,2183,1221,3119,1180,1679,2767,1369,279,1349,1569,661,189)
ppi<-c(876,1934,2678,323,3076,2283,1846,1825,2606,2356,739,2916,3156,1446,2690,3200,2968,1039,3007,2737,1931,2278,2465,1800,2804,1394,2975,2573,15,1087,2727,1034,252,2069,2399,2635,2897,2046,1842,2083,2451,3173,1832,1501,2270,1624,1195,510,2512,1702,1906)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000027"
rlt[mytot,2]<-"YIR012W"
ori<-c(3105,3121,2966,2845,2566,3124,2818,3087,3102,3193,3156,3107,3175,2838,1468,3120,3135,2603,2936,3188,2900,2909,2700,174,2669,2929)
ppi<-c(3160,3187,3026,2881,2256,3133,2791,3181,3183,3150,3081,3184,3195,3203,2907,3072,3180,2869,3016,3197,3015,2913,2772,90,3062,2939)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0045944"
rlt[mytot,2]<-"YIR018W"
ori<-c(2825,2420,1220,1980,2982,3051,1000,2378,2181,2353,1800,2835,2244,3010,224,1362,2399,1403,2834,1587,1726,2219,1705,2229,3073,1292,3201,2880)
ppi<-c(3024,2152,1409,2148,3085,3098,460,2046,3202,2788,2138,2931,2875,3131,1252,619,2512,1793,2641,2755,2502,2041,2060,1767,3058,665,3198,2800)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000070"
rlt[mytot,2]<-"YIR025W"
ori<-c(860,590,2265,1445,910,1003,641,2445,2709,2375,904,572,487,2934,2041,2790,1654,2183,3136,1989,1770,2236,279,637,2182,858,2733)
ppi<-c(1826,1833,1700,1023,2031,1789,1006,2439,2662,2114,219,2197,1795,2972,1887,2212,2404,2447,2940,1651,1360,1753,1679,1514,1859,966,2442)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007131"
rlt[mytot,2]<-"YIR025W"
ori<-c(1879,1110,400,1319,270,565,1061,293,1505,1536,2807,1330,833,1417,1992,2966,1486)
ppi<-c(1581,1071,2291,2264,517,2668,471,63,1194,1513,2261,948,951,2387,1566,2687,746)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0016567"
rlt[mytot,2]<-"YIR025W"
ori<-c(590,78,2974,910,2444,2538,201,2445,2709,572,2292,3118,487,1348,257,1654,2183,489,279,232,669,2733)
ppi<-c(1833,2504,2805,2031,2318,2683,2274,2439,2662,2197,2538,2754,1795,646,853,2404,2447,80,1679,1623,2400,2442)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030437"
rlt[mytot,2]<-"YIR026C"
ori<-c(1858,293,228,983,2375,306,14,1969,1315,2918,802,81,2739,3011,319,250,2122,1397,317,899,1008,2540,577,230,1947,1894,57,1678,1512,1316)
ppi<-c(863,909,322,2351,2227,160,754,1498,1442,2784,1485,2390,2226,2644,2287,489,1522,989,1029,1904,559,2365,853,130,1219,841,1526,637,1765,2308)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006979"
rlt[mytot,2]<-"YIR037W"
ori<-c(2787,248,3107,3167,1842,351,3177,2297,3140,2492,2289,3099,1031,2863,2134,2173,3202,3074,1143,1121,2941,2911)
ppi<-c(2948,84,3147,3182,1702,78,3184,1434,3114,2473,2378,3140,1244,2850,2885,1312,3200,2860,2239,427,2135,2995)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030437"
rlt[mytot,2]<-"YJL001W"
ori<-c(576,2278,2832,1613,2825,2943,2995,2879,2479,62,105,1117,1720,98,2198,3123,2427,303,455,1854,218,1701,2970,2648,2815,1965,3183,1587,2215,84)
ppi<-c(307,2599,2840,2310,2096,3030,2959,3123,2236,483,1095,2663,1037,1796,2570,3076,1730,410,256,1861,133,1493,2969,2692,2887,1176,2709,932,2129,1326)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006487"
rlt[mytot,2]<-"YJL002C"
ori<-c(2266,3129,3125,2690,3089,3193,1279,3108,869,284,2312,3054,3069,2874,3061,3055,3140)
ppi<-c(2416,3166,3202,2492,3203,3039,657,3163,430,728,2446,3083,3199,2530,2885,3191,2951)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YJL006C"
ori<-c(1762,754,1201,1681,160,345,1996,3124,702,512,1998,651,1915,1006,372,545,1395,1809,864,1593,1350,405,16,2405,3080,1357,349,2454,875,2450,865,2493,1323,1628,2627,1918,1145,227,1956,2394,387,1416,57,1136,445,1388,998,587,2204,1226,1712,1603,962,2687,1911,3132,3085,3162,1094,2609,507,3077,1494,2378,1916,2766)
ppi<-c(1128,1954,1237,565,2275,167,1486,2996,1076,429,1845,2385,2297,1734,2012,1073,778,1496,1440,998,1991,549,1242,2010,3033,1208,2209,2458,1341,2309,1540,2831,1688,1897,2628,1539,850,105,2283,2038,159,1306,399,579,1856,3203,1459,2390,2854,1332,912,1740,622,2909,2015,2202,2853,3186,495,2567,895,2620,1501,2449,1583,2797)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006457"
rlt[mytot,2]<-"YJL008C"
ori<-c(1386,2694,157,2981,1418,2302,594,2912,2255,2288,2481,1084,3149,1324,818,2188,3175,1263,3013,2960,2904,1756,3162,2395,2297,2139,2452,2831,2718,365,2946,2603,2538,1261,2454)
ppi<-c(1793,2722,1672,1993,838,2948,184,2608,3082,1296,2890,2625,3074,1414,793,1036,3148,1881,2882,2880,2869,1570,2797,2246,2109,1374,2752,2740,2893,198,3137,2307,2595,989,2467)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006406"
rlt[mytot,2]<-"YJL041W"
ori<-c(3145,2426,2402,2514,225,1795,2511,2776,2057,2699,2803,1548,2069,2834,2315,2749,1696,2152,2531,1256,1694,2906,771,2058,2049,1069,2923,2570,2727,3202,2589,1702,3199,2951,2641,1239,3050,3069,1997,1847,2061,416,1214,890,2753)
ppi<-c(3183,2061,2195,2053,143,2875,2775,3097,1444,2422,2747,2299,3091,1996,2033,3036,836,2834,2561,893,1112,3041,692,1978,2932,815,3089,2657,2097,2739,2216,1657,2854,3105,3118,773,2565,3009,2447,2609,1610,120,1242,2947,2570)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006606"
rlt[mytot,2]<-"YJL041W"
ori<-c(2726,3005,2665,292,2803,2644,2069,2259,2834,2749,2327,2152,1,3068,1433,2494,3050,1943,2579,2532,890,1657,2882)
ppi<-c(2829,2926,2564,202,2747,3020,3091,2738,1996,3036,2278,2834,232,2960,2611,2218,2565,1373,2696,2469,2947,2751,2661)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006611"
rlt[mytot,2]<-"YJL041W"
ori<-c(3145,2402,2514,225,1795,3042,2699,2803,2069,2834,2315,2749,2152,2531,1694,2755,2923,2727,3202,3199,2641,3050,3069,1997,890)
ppi<-c(3183,2195,2053,143,2875,2763,2422,2747,3091,1996,2033,3036,2834,2561,1112,2938,3089,2097,2739,2854,3118,2565,3009,2447,2947)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YJL042W"
ori<-c(2316,3041,2885,2829,1972,1800,2526,2128,3063,1425,2098,1573,1722,1577,548,1651,1718,3029,2279,1357,1598,1246,941,753,1007,547,2081,2556,1355,488,2218,2289,1215,1240,1022,2664,2833,461,495,2726,1714,1290,1297,2594,2745,1330,3196,160,2193,2283,2720,2619,560,400,2629,2422,580,620,1516,1857,956)
ppi<-c(1612,2458,3016,2363,1181,1217,2412,2339,2984,2347,1577,629,1711,943,910,2299,1770,2326,2145,1406,1802,756,1259,388,1460,447,2633,2133,1386,427,1161,1888,1065,2324,2228,2830,2929,543,725,2860,2311,1328,743,2058,2456,2249,3189,40,2323,1901,2867,2878,298,927,1799,2093,315,1426,980,1569,2399)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006406"
rlt[mytot,2]<-"YJL061W"
ori<-c(2214,342,925,1474,639,300,1638,1318,241,1271,926,328,1886,2082,1351,1847,590,706,2239,1349,1659,1912,2671,1552,2058,1469,3088,2201,1663,1929,481,2277,2867,3137,2930,2162,2808,539,2953,484,815,1901,588,130,2933)
ppi<-c(1865,203,904,1656,360,2657,1073,1931,87,1941,2270,2480,2987,2310,686,2900,162,2795,2233,815,1096,1074,2560,1331,1877,1673,3126,2115,2265,2267,2455,2145,2168,3185,3049,1649,2342,1687,2556,2362,450,720,990,1644,1926)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006611"
rlt[mytot,2]<-"YJL061W"
ori<-c(2214,925,1474,639,300,2396,1271,926,1886,2082,1351,1847,706,2239,1659,2789,3088,1663,1929,2867,2930,2808,539,2953,130)
ppi<-c(1865,904,1656,360,2657,2116,1941,2270,2987,2310,686,2900,2795,2233,1096,2328,3126,2265,2267,2168,3049,2342,1687,2556,1644)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006348"
rlt[mytot,2]<-"YJL065C"
ori<-c(1079,1129,1796,73,1095,2159,2239,1867,957,3132,1750,1304,2180,2869,678,1608,2397,2245,2538,651,1506,1020,1722,1435,1995,2430,2465,1706,221)
ppi<-c(1997,554,2285,1459,1127,1560,1759,2178,396,3168,1075,1961,954,2731,1250,1377,1953,1766,1801,2647,2416,579,2404,2287,1258,2308,2447,752,507)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006365"
rlt[mytot,2]<-"YJL069C"
ori<-c(2692,3172,2983,3149,2927,3152,3131,2561,2885,3025,1592,3188,3158,1042,3037,3114,2952,3199,3134,3142,3074,3062,3203,3187,3148,3162,3167,3115,3097,3137,3153,2467,3136,2668,2300,3143,3168,2675,2714,3073)
ppi<-c(2799,3172,3057,2988,3111,3197,3099,1460,3081,3042,2530,3186,3164,2414,3076,2875,3078,3066,3151,3120,3183,3070,3200,3101,3138,3157,3195,2798,3004,3181,3203,2353,3150,3087,2837,3155,3168,3104,2805,3124)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006261"
rlt[mytot,2]<-"YJL072C"
ori<-c(397,3055,3109,1656,1599,1999,3037,2795,3,103,3117)
ppi<-c(876,3198,3201,1302,1702,1110,2976,3143,620,70,3177)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030437"
rlt[mytot,2]<-"YJL074C"
ori<-c(928,893,1167,1627,2184,2487,2923,817,1550,2084,455,1608,749,2444,122,659,801,1021,840,2159,652,84,504,138,1284,2501,1121,2358,558,2943)
ppi<-c(389,1815,972,2525,2396,1796,2638,351,1514,1863,2174,2514,1052,2405,2444,1308,2179,1106,451,2636,331,407,898,121,621,3063,2224,1683,1410,2519)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007015"
rlt[mytot,2]<-"YJL100W"
ori<-c(2389,971,2825,1002,1826,1553,3124,1539,391,3153,260,1717,2598,1966,1928,2706,1400,3070,1159,1615,1066,1030,3188,168,519,3040,1833,3165,2224,2744,1148,2813,859,1039,2097,2201,1396,2779,1836,2215,2539)
ppi<-c(2643,2412,2307,1041,2462,1416,2695,898,599,3095,157,2467,2562,1231,1560,2794,2359,2863,911,2484,2080,1412,3143,1708,2663,2989,1782,3014,2652,2018,2677,2445,2318,978,1434,1927,2395,3066,2252,2191,2687)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006414"
rlt[mytot,2]<-"YJL102W"
ori<-c(1171,1539,243,736,633,636,695,307,964,837,3019,1799)
ppi<-c(773,933,1982,1554,177,165,547,1220,304,169,3079,1015)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YJL106W"
ori<-c(1555,2091,1838,2721,2171,544,3097,2667,468,605,2695,1638,2239,2250,1019,1191,2916,3084,2121,2811,755,1559,830,2473,1138,2901,2705,2788,590,2964,163,2246,1992,2647,2863,2841,1715,663,1741,875,842,616,888,2408,72,2582,1704,324,1391,765,2898,1779,3120,1670,109,2771,2652,2800,2626,314,1126,2322,1063,1713,3087,1914)
ppi<-c(988,2115,932,2977,2144,230,3151,1978,1021,665,1931,1730,2494,1826,2357,1632,3064,3000,1603,2985,2682,1518,2233,2692,1302,2906,2407,2541,1491,2680,1839,1710,2862,2987,3021,2832,1247,270,1717,384,357,2267,557,2330,2384,2912,1378,2010,2519,1431,3164,2244,3087,998,2451,2928,2699,2961,2686,1637,1244,2476,1517,1933,2995,928)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000122"
rlt[mytot,2]<-"YJL110C"
ori<-c(1973,2033,2531,351,481,1386,3074,3037,1926,1062,526,55,1659,1486,2330,3045,1235,2344)
ppi<-c(2239,1255,1515,314,871,1222,3099,3107,773,1196,250,46,1521,1749,2206,2806,1352,2657)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006457"
rlt[mytot,2]<-"YJL117W"
ori<-c(248,179,1720,2456,642,833,1955,790,1741,567,325,426,2308,2903,1791,1689,1446,1235,3005,136,2920,712,1188,1670,241,2589,1609,1526,1699,2151,1249,989,1726,644,1309)
ppi<-c(943,101,1826,2604,271,522,1595,2024,1171,725,591,1446,2093,2555,1515,605,1180,516,2908,707,2803,1577,2435,1898,107,2505,687,2077,2682,1571,331,2398,986,195,2051)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006402"
rlt[mytot,2]<-"YJL124C"
ori<-c(2994,1682,3051,1392,2795,1393,1182,2232,2458,1867,3200,2914,2539,3160,635,2409,3159,1127,1317,879,2028)
ppi<-c(2922,2945,3176,2672,2450,2626,2484,1619,2986,2628,3055,3013,2644,3052,784,1826,2560,2849,549,2283,1420)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YJL128C"
ori<-c(1686,2865,660,1412,1184,2956,1071,2897,1385,2497,1236,493,2645,1307,2917,2789,3065,3015,202,2516,2371,2548,378,2179,1222,2511,3061,2321,1854,2414,2504,2109,651,2839,2134,2929,2970,541,2933,219,2905,862,1598,2311,1873,2199,827,2082,1570,784,2186,2465,2821,1414,2514,1444,2687,1468,2728,1240,2194,2990,1260,2693,2263,1109)
ppi<-c(1166,2782,157,361,2745,3050,1046,2445,1881,2267,1528,1622,2462,2574,2810,2296,3191,2971,1546,2211,1995,2304,1691,2125,1161,2123,2682,1731,1811,2431,1989,1616,1855,3129,1453,2883,3065,263,2253,95,2961,3203,950,2018,3162,1795,1435,2173,1912,1199,1567,2531,2310,690,2083,1853,2508,807,2861,1767,1975,2787,1462,2885,2286,1234)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007015"
rlt[mytot,2]<-"YJL128C"
ori<-c(1289,906,2865,340,756,909,2853,2169,1154,2934,109,959,1153,2109,364,2451,2198,3143,1057,1578,3024,92,2326,2851,3042,2703,2026,2068,1813,631,1652,2783,1950,1564,1904,2450,2250,2998,1152,701,190)
ppi<-c(2311,2480,2782,694,504,978,2449,1874,1638,2932,77,2423,2565,1616,1495,2472,2335,2779,547,2336,2712,838,2349,3027,2960,2629,2731,2617,2235,471,2628,2180,2536,1704,1588,2443,2455,2678,1839,1702,2197)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006413"
rlt[mytot,2]<-"YJL138C"
ori<-c(1517,3181,1566,1737,42,3182,3072,156,877,1646,2583,3118,2242,3203,2381,1025,1967,2570,2318,2562,2174,1795,358,1000,3099)
ppi<-c(1257,2937,629,1812,4,3168,2955,2512,391,938,3202,3138,2645,3203,2404,1272,1642,1928,1473,3174,1351,1505,1100,472,2139)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006487"
rlt[mytot,2]<-"YJL139C"
ori<-c(457,16,1771,1373,32,137,2026,2225,702,2863,1034,2646,33,294,97,13,372)
ppi<-c(2302,15,2950,1978,444,991,1450,2018,1260,2834,283,2299,572,2578,1215,213,1294)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006406"
rlt[mytot,2]<-"YJL140W"
ori<-c(239,2154,1945,1707,1500,2527,3138,832,2763,2153,2303,415,3093,2003,1484,1911,246,2721,548,177,1190,1248,7,406,820,740,2757,2249,1402,2223,2746,842,1629,2247,882,1207,1031,1377,2642,79,995,2648,2329,1372,1774)
ppi<-c(121,2278,2279,2480,931,2210,3163,2732,2710,2086,1553,2195,2435,2206,787,2323,80,2565,2248,87,609,599,186,692,1702,1269,2551,2369,1866,2234,1805,922,2390,2250,861,690,2384,1499,2476,1923,549,1552,1952,2627,2350)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YJL141C"
ori<-c(3059,2067,2855,967,499,1014,600,1184,1618,551,2578,1457,1921,3030,299,2788,1793,1384,2321,1908,2697,3078,1934,1500,156,3040,1576,2295,2582,596,1755,1334,1521,1243,1185,1783,2746,2935,1061,202,3182,1771,2662,1653,1923,557,943,2758,1582,526,2506,2863,2111,330,336,934,267,383,857,1333,623,2168,2972,1938,255,1581)
ppi<-c(3131,2784,2923,112,2224,496,818,1959,1173,545,2354,1649,2627,2816,2436,2853,1089,1006,2023,1198,1813,3096,1836,1934,366,2852,2298,2712,2557,1307,1673,913,1980,541,832,1568,2199,3056,725,110,3201,1582,2420,984,2330,1044,988,2503,2082,1293,2539,2673,1573,228,1793,1327,1707,168,497,1999,1280,2424,3026,1700,879,1047)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006006"
rlt[mytot,2]<-"YJL155C"
ori<-c(3070,1968,1783,662,1044,1067,2735,2402,1796)
ppi<-c(2439,1484,2115,674,471,435,2802,2006,2301)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YJL158C"
ori<-c(3069,1702,776,2510,1103,7,2027,2888,2497,3011,1454,622,2160,2352,252,2376,892,745,2616,3109,600,576,1063,640,2756,557,1576,2151,2675,2582,2086,48,3114,3155,1192,165,240,1230,2037,3200,3158,2584,3159,2742,1806,1680,2235,2370,2349,2697,1867,2903,1303,883,2435,1575,2684,638,696,2976,3091)
ppi<-c(2799,2296,369,2868,586,304,1402,2338,2381,2907,990,118,1725,2311,1038,1148,1581,2466,2640,3073,1556,328,1596,324,2305,477,2210,2712,1930,1661,1521,256,3084,2906,2701,80,122,1395,1900,3198,2879,2361,3178,2563,1406,2265,1653,1946,2713,2887,1069,2519,1159,1467,1755,2405,2696,964,196,3015,2690)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YJL159W"
ori<-c(445,2560,3131,2278,1791,3181,1309,1789,2187,184,3121,3189,765,1195,3004,1877,1212,3117,2577,245,2733,1861,1713,3086,1062,1445,479,752,1064,228,2233,75,129,103,2643,3203,3202,1916,537,808,63,413,114,1655,2137,1585,881,353,2350,608,2024,1746,937,1874,1507,2057,2019,1050,2695,210,294)
ppi<-c(1367,2331,3143,2821,1074,3081,650,2361,1911,2551,2805,3193,1053,736,2878,1460,2699,2812,2714,361,2814,1505,1410,3129,1115,1013,1885,2372,1389,55,2017,109,378,2744,2675,3203,3202,1224,845,403,2443,671,46,1912,1471,2072,429,119,2613,281,1127,2107,576,2270,1943,2121,1242,1767,2062,38,2405)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YJL164C"
ori<-c(3097,1020,2917,600,1255,1899,1265,312,817,1234,1762,2077,1541,2379,1641,886,1702,966,1495,1321,411,3068,1963,919,532,1128,1490,922,2581,444,986,1444,1073,646,523,1045,1011,2699,1943,409,2409,1389,3123,1461,2556,364,785,3116,779,1695,1915,2880,2011,1491,2036,99,313,1136,1455,1707,833,1674,3087,1735,475,1640)
ppi<-c(3129,1966,3136,48,1750,1145,1022,2722,774,911,1566,2215,2498,2100,1839,1205,957,1070,1288,719,1883,2895,1757,1052,650,1106,1996,2049,2431,934,2042,829,1612,186,435,1058,1327,2913,906,1305,2944,1510,3130,788,2122,1351,919,2656,2406,1993,1135,2231,1447,1509,2531,908,1239,497,921,1903,1229,1911,3086,1871,975,1538)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007124"
rlt[mytot,2]<-"YJL164C"
ori<-c(1231,2866,2384,2600,2690,3002,2612,1247,2060,274,863,690,1490,2481,855,2526,3036,995,3133,409,1542,838,1303,1657,2556,1535,955,2749,1421,3087,1394)
ppi<-c(1905,2830,2105,1661,2188,3036,2238,2224,1729,111,2169,827,1996,2056,1362,3203,2958,920,3141,1305,1992,2002,1867,2451,2122,1664,607,2041,2053,3086,1242)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0009060"
rlt[mytot,2]<-"YJL166W"
ori<-c(2687,3008,3029,1760,2161,2417,2015,3141,3013,2946,2761,2110,274,3159,2297,2141,2679,1225,670,1370,3014,2261,2056,1794,2194,3191,2360,2811,1434,1518,2226,2101,1884,3120,1312,3157,1533)
ppi<-c(2912,3108,2995,2008,1738,2114,1488,3027,2789,3044,2820,1472,128,3135,1891,1117,2776,1360,781,857,3038,1919,2014,970,1763,3191,1982,2696,789,1404,2263,1673,1650,3128,1972,3093,1990)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YJL174W"
ori<-c(1559,244,508,1162,336,19,749,2489,2048,3003,2691,49,1566,2123,202,2609,934,822,505,3068,52,1650,385,82,2227,760,2506,393,2547,2988,1267,3148,93,2972,1830,151,326,1961,2794,2995,3085,2417,3028,2718,1812,1993,2316,2990,1703,3121,889,1915,2535,1127,1041,2519,1259,2625,830,2757,2904)
ppi<-c(1455,2299,238,2602,162,315,371,2563,1809,2579,1621,17,1436,1685,892,2101,1737,2351,2248,2899,1128,1088,766,83,1930,530,2630,2220,2611,3004,928,3138,387,2701,2132,94,175,1277,2811,3100,2548,2675,3101,2680,1890,1884,1969,3120,2130,3152,431,2263,2683,1293,1275,2707,682,1893,403,2695,2429)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006457"
rlt[mytot,2]<-"YJL179W"
ori<-c(793,1191,707,3029,806,1498,569,2424,1847,1635,1207,832,2848,1710,1159,1686,2168,3045,2909,1378,2986,1282,3118,2246,1153,1564,1715,2460,2691,619,3122,2602,2015,215,2133)
ppi<-c(1367,649,1746,2548,421,1084,154,2642,1240,900,884,1620,3002,1825,1621,703,1075,3104,2450,1914,2865,2249,2730,2254,634,880,541,2375,2853,321,3189,2396,1415,180,2156)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030490"
rlt[mytot,2]<-"YJL191W"
ori<-c(2656,2702,3137,2679,2917,2904,1211,2597,1969,2359,2144,1119,248,2929,2774,1404,3121,2420,2104,2850,2340,2877,3115)
ppi<-c(2277,2335,2991,2749,2982,2770,417,2604,873,2158,1477,887,836,2765,2736,1354,3057,2094,1120,3050,2921,2954,3137)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006888"
rlt[mytot,2]<-"YJL192C"
ori<-c(3022,2792,1675,2032,1339,2840,921,2288,1091,1493,1035,1746,1517,3164,2539,113,68,2417,130,453,825,2669,2684,911,1605,208,411,2355,1183,2950,3193,753,2859,2206,3142,1810,2435,2514,1818,152,662,1871,2303)
ppi<-c(3104,2940,1715,1432,820,2176,1548,2700,742,1670,1585,992,595,2685,1697,343,57,2841,2333,1427,2550,2315,2557,2706,917,605,1825,2206,1520,2561,2882,444,2466,2287,3107,1861,2010,2475,1899,1085,765,2536,2399)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000398"
rlt[mytot,2]<-"YJL203W"
ori<-c(1495,1045,1867,81,1747,653,1263,3043,2502,874,2542,3168,2691,3137,2793,1334,1453,2746,382,1877,2545,2903,2901,3181,3202,2645,2146,3099,3010,2428,2592,2771,2145,3128,1963,2751,2276,1696,1627,3196,3034,1349,365,2738,2922,2653,2330,2555,3154,2201,552)
ppi<-c(1731,561,2621,62,1941,2517,2721,2867,2445,2234,2763,3170,3092,2911,2649,579,1007,2670,162,1827,2795,2506,2429,3041,2868,2808,2564,2805,3184,2088,2140,2929,1572,2161,2241,2669,2428,1658,877,3145,2326,1189,1713,2579,2310,2601,1278,1908,3173,2642,2027)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000154"
rlt[mytot,2]<-"YJR002W"
ori<-c(3125,3043,3038,3152,3123,3175,2050,2840,3200)
ppi<-c(3164,3034,3202,2741,3068,3203,1421,3153,3200)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006365"
rlt[mytot,2]<-"YJR002W"
ori<-c(2881,3178,2973,3104,3125,3020,2924,1925,3082,3043,2408,3129,3196,850,1769,2843,3171,3189,3186,3088,3018,3038,3090,2858,3110,2749,3173,3152,3123,3199,2946,1893,3175,2681,2237,3081,3162,2840,2820,3200)
ppi<-c(2989,3161,3046,2882,3164,3168,3085,865,3172,3034,2536,3142,3187,2321,1063,2837,3104,3089,3178,3110,3167,3202,3147,3013,3177,2730,3194,2741,3068,3190,3157,1555,3203,3076,2323,3108,3155,3153,2957,3200)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030490"
rlt[mytot,2]<-"YJR002W"
ori<-c(1415,3104,3125,3108,3180,3195,2468,3038,3131,2191,2125,2996,1987,3123,3161,3092,3153,3175,3006,2948,2840,3039,3105)
ppi<-c(2665,2882,3164,3119,3173,3174,1783,3202,3197,1688,2681,2962,1970,3068,2985,2955,3128,3203,3139,3073,3153,3145,3122)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006413"
rlt[mytot,2]<-"YJR007W"
ori<-c(2620,3189,2647,2545,63,2556,3143,1098,2995,2031,3083,3122,2271,3172,2943,2392,3177,3196,1278,2385,2529,1929,615,2136,3047)
ppi<-c(2950,3038,2204,2704,3,2325,2878,2144,3089,1344,3029,3105,2332,3194,2112,2847,2892,3118,2445,2724,1892,1760,404,1562,2717)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000122"
rlt[mytot,2]<-"YJR017C"
ori<-c(879,2418,287,2014,2830,1543,1006,555,979,2851,436,640,1093,1588,1190,176,2252,1049)
ppi<-c(2333,2278,1106,1159,2831,1456,776,234,197,2610,1840,334,1089,1902,1395,1411,1937,1049)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007131"
rlt[mytot,2]<-"YJR021C"
ori<-c(994,5,1533,1746,2539,477,1165,1653,1466,1547,2917,1649,421,1383,1721,2400,2175)
ppi<-c(1064,103,2074,2825,2909,1929,491,642,1117,1618,2754,1554,1223,1723,1089,2339,1662)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000398"
rlt[mytot,2]<-"YJR022W"
ori<-c(1272,483,1402,198,1633,1777,32,1314,2318,2244,1354,2858,3060,2513,1888,1981,1210,1964,2161,347,2897,3057,3012,1956,2550,343,969,2749,338,928,181,616,670,2572,3081,1535,1869,643,1654,202,1221,2996,2301,777,1796,1908,1961,2651,1896,1581,2126)
ppi<-c(1519,204,2399,51,969,2253,2209,2185,2485,2505,826,2779,3128,2083,818,1214,909,900,1377,2367,2296,2281,2541,2649,2856,409,1156,2797,68,836,2592,822,198,2726,2626,2680,2205,823,804,690,2529,3008,2615,1574,2769,2276,1647,2237,2069,2587,2566)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006888"
rlt[mytot,2]<-"YJR031C"
ori<-c(1973,1055,2373,2381,3193,1189,1739,1837,2394,3117,1928,2262,2877,809,2183,1020,734,2893,1590,2176,2181,775,2986,2750,1036,787,2961,2037,1405,1711,384,673,1110,2055,1412,1041,2550,1956,2135,985,1481,2843,2905)
ppi<-c(1417,490,1776,1933,3194,2454,1775,1496,1337,1766,1859,2929,2733,2061,2666,1149,395,2744,2388,1848,2451,992,2707,2665,453,1003,2728,1465,1658,2116,2279,638,1389,2419,1409,1449,2740,2326,2448,1537,1091,2849,2682)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006457"
rlt[mytot,2]<-"YJR045C"
ori<-c(3106,3200,1073,1974,2642,3007,1955,3005,2626,3157,3146,3167,1754,176,730,965,3118,2959,246,1488,2930,3177,2874,2967,3203,2916,3027,3155,2702,835,2713,3136,3190,2011,3153)
ppi<-c(3120,3192,1974,2682,2505,3144,1723,2352,3017,3110,3124,3189,1897,722,667,234,3131,3101,1596,1886,3040,2905,2672,2843,3200,2966,3166,2759,3039,431,2877,2944,3186,1004,3042)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000398"
rlt[mytot,2]<-"YJR050W"
ori<-c(1928,811,676,446,484,1691,1530,2976,2927,948,2107,2897,2251,2901,2991,666,1207,1686,371,1904,2119,1316,3120,1815,3118,1760,1855,2598,2854,3089,1651,2329,2437,3054,2296,2069,1977,672,461,3048,3154,1540,182,2427,2687,1500,2655,2637,3148,2132,1440)
ppi<-c(1863,367,2485,236,904,2601,3158,2508,2466,2347,1320,3071,1941,2843,3111,150,1583,1412,110,2178,1579,2441,2487,2288,2486,2642,2226,2833,3168,3011,2087,1627,2422,1974,2354,2290,2223,956,239,3143,2313,1284,1642,2377,2360,2003,2409,2346,3164,2517,2511)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0009060"
rlt[mytot,2]<-"YJR072C"
ori<-c(1306,3069,527,1853,1560,2231,2336,1617,1417,1759,51,2811,1542,448,1812,2368,1810,1811,507,3158,939,2761,716,2334,3081,1229,2473,1865,2407,2954,1454,730,816,556,2689,1567,3022)
ppi<-c(627,3152,1070,1932,791,1655,1879,1347,1676,1100,41,2900,978,558,1271,1637,1215,974,689,3178,568,2925,1657,2008,3130,871,2785,1092,2811,2870,545,1223,1048,180,2634,1763,2580)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006606"
rlt[mytot,2]<-"YJR074W"
ori<-c(1047,461,1112,3074,679,1453,1897,2230,1110,201,2456,246,1,222,1312,1609,195,577,437,1208,2521,1362,1752)
ppi<-c(2600,750,1459,3084,1860,2991,2643,2488,2302,2396,1992,2629,2730,2086,2747,2563,2446,382,100,1369,2875,3021,1399)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YJR076C"
ori<-c(2695,1520,217,2018,1952,41,2867,2535,1495,2611,599,53,3002,2365,518,2377,1353,750,2217,3070,870,2237,261,786,2711,1257,2467,2757,3014,2605,1289,3198,24,3064,2399,31,100,679,2110,3130,2839,3004,3099,2954,405,1217,897,2750,1222,2842,397,2317,1111,2287,1794,1560,2686,1272,1885,3029,2264)
ppi<-c(2700,2521,123,2800,1233,461,2968,2402,1360,3178,623,20,2567,2120,1051,1248,1674,2464,2436,2931,1791,1231,2123,396,1942,826,2185,2760,2947,2467,970,3152,196,3006,2860,40,88,770,1865,3151,3162,2610,3136,2764,971,1997,473,2856,2816,2976,209,2470,729,2119,1424,2153,2739,2148,895,3081,2749)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000082"
rlt[mytot,2]<-"YJR090C"
ori<-c(2254,2211,2635,2784,552,3153,3128,2675,2046,1391,690,2900,2573,721,2541,2166,2377,2226,2753,1105,1476,2790,1457)
ppi<-c(2866,2416,2808,2899,3010,3079,2948,3058,1153,1726,2907,3075,2407,396,2353,1483,2577,1630,2525,2880,2106,2387,1548)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0016567"
rlt[mytot,2]<-"YJR090C"
ori<-c(1680,552,3128,486,2062,2675,690,802,1980,254,2521,3139,1650,216,1608,1274,1326,1602,1498,1105,716,2193)
ppi<-c(1485,3010,2948,1101,1981,3058,2907,1302,1037,1382,2728,3057,1497,90,2031,1541,1561,717,1471,2880,2821,1498)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000282"
rlt[mytot,2]<-"YJR092W"
ori<-c(3193,3180,2783,1184,2798,2284,581,175,14,1573,2639,1566,1824,3188,2035,365,2440,2522)
ppi<-c(3184,3203,2220,562,2579,1766,191,2,1858,1184,2920,868,2559,3075,1356,167,2074,2548)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006623"
rlt[mytot,2]<-"YJR102C"
ori<-c(2752,1838,1091,2989,1984,2677,73,79,3074,3150,514,1155,1954,3121,1797,608,2301,2080,782,3149,1766,930,108,350,2147,3065,2628,757,2206,747,975,1272,1261,1036,2137,2553,2865,1709)
ppi<-c(2988,2040,1227,2654,1546,2551,1663,853,2999,2648,267,1134,1997,2847,1606,915,1587,1986,190,2922,3203,2303,66,759,1452,3125,2470,1267,2791,2261,1956,1763,2319,3201,2937,2851,2739,2689)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007005"
rlt[mytot,2]<-"YJR120W"
ori<-c(2432,1582,1533,1729,591,2980,1489,1451,1023,925)
ppi<-c(2419,904,1087,1312,1421,2988,1033,669,1734,832)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006897"
rlt[mytot,2]<-"YJR125C"
ori<-c(3081,2334,3003,2724,2702,1924,3076,2908,3177,2193,2668,3020,263,2230,1446,1330,3082,914,2836,2562,1989,1810,2206,945,874,2436,2808,78,1477,2503,1428,267,733,1576,515,1869,1728,641,1709,2140,2822,1223,2519,2167,686,2989)
ppi<-c(2607,2146,3001,2826,2400,2024,2943,3013,2670,2532,2619,2572,219,1890,1919,2317,2643,2549,2431,2893,2552,1311,1907,935,361,1611,2530,1245,2184,2832,676,2633,1431,2763,211,1660,1313,2662,1997,1607,2658,1520,2414,2451,1209,2294)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007015"
rlt[mytot,2]<-"YJR125C"
ori<-c(1665,3081,1361,3184,2724,2465,427,2908,1283,1155,2913,3082,727,1774,1457,558,497,1267,1222,2310,1044,2549,945,635,972,2398,2436,331,78,643,1477,1576,2249,2728,1814,641,1634,2822,2167,1656,2989)
ppi<-c(1298,2607,2423,3092,2826,2462,1129,3013,1399,1063,3051,2643,2442,983,1427,275,2533,1626,1391,2134,1990,2663,935,1624,2298,2472,1611,1341,1245,1033,2184,2763,2474,2574,1023,2662,2197,2658,2451,2371,2294)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006623"
rlt[mytot,2]<-"YJR126C"
ori<-c(3077,2785,2176,312,2652,1180,2061,198,2186,2309,2709,2792,2362,2697,1870,919,448,1065,1041,3030,1901,3080,1978,2205,1533,2544,940,2065,2907,2961,2325,2042,371,1331,307,556,2387,2173)
ppi<-c(2977,3081,1417,2841,2466,1571,1631,1226,2002,2366,2822,2714,2201,2879,1787,1963,242,1311,615,3090,1493,2555,1579,1762,682,2919,503,2207,2897,2577,2175,1892,688,1534,1291,2312,2035,2856)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006487"
rlt[mytot,2]<-"YJR131W"
ori<-c(761,317,288,2600,1404,919,2642,2966,177,2883,1865,564,142,2151,326,2015,247)
ppi<-c(2161,184,605,2491,2801,1540,2726,3059,467,2995,1480,740,1232,2272,1712,1454,1216)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006606"
rlt[mytot,2]<-"YJR132W"
ori<-c(1876,2939,244,344,2757,2756,2350,1334,2531,2411,633,2505,3059,156,2218,1447,2501,1530,3128,1400,1702,2412,2858)
ppi<-c(2675,2894,273,181,2579,2817,2527,2905,2360,2568,366,2523,2679,600,2734,2330,2512,843,3156,1411,3068,3012,2629)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030490"
rlt[mytot,2]<-"YJR145C"
ori<-c(1138,2680,3002,2043,3016,2975,3056,1660,2620,2380,2560,2857,1856,3120,2900,3132,2347,2814,2088,3083,2992,2865,2611)
ppi<-c(874,2100,3115,1620,3039,3089,3126,2772,2719,1642,2976,2617,1446,3010,3018,3150,1760,2850,1014,3196,3112,3063,2614)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006402"
rlt[mytot,2]<-"YKL009W"
ori<-c(3026,2980,3116,1938,2647,1851,879,2283,2704,2468,3164,3097,2666,3059,1011,2887,2989,2271,2368,1666,2985)
ppi<-c(3040,3075,3177,2429,2479,2452,2396,2434,2870,2793,3097,3103,2867,2572,1275,2958,2411,3062,2024,2343,3019)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000398"
rlt[mytot,2]<-"YKL012W"
ori<-c(1938,645,819,856,625,1502,993,3202,2839,2515,2146,2549,1683,2569,2601,826,1406,2596,518,2242,1475,1644,3196,2324,3153,1936,2158,1941,2960,2780,2147,3187,2049,3150,1739,2157,2613,971,847,3033,3043,463,28,2088,2393,1145,2235,2565,3093,1906,637)
ppi<-c(2051,326,2339,504,696,2541,2376,2798,2203,2326,1217,2124,3204,2537,2674,228,862,2774,189,2366,1416,2313,3009,2402,2992,2262,2165,2098,3175,2603,2981,3005,1342,2538,2150,2210,3075,1118,347,2978,2310,368,1392,1869,2264,1663,1746,2183,3162,2356,2117)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0045944"
rlt[mytot,2]<-"YKL015W"
ori<-c(682,1719,865,623,2335,2196,3148,1525,1815,1651,2619,1532,2202,3053,897,2385,197,1659,1399,2577,974,1432,334,2128,2893,736,2795,124)
ppi<-c(433,931,1268,384,2538,1606,3146,1601,1044,2159,2528,672,1426,3151,1656,1947,853,1901,1238,2623,1735,823,614,1557,2947,352,2992,982)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0045944"
rlt[mytot,2]<-"YKL020C"
ori<-c(1650,2198,1191,2335,2859,2647,2935,1108,2336,1554,1906,1688,2958,3056,1055,1208,399,1180,2779,1398,767,1629,159,2483,2714,1261,3187,972)
ppi<-c(784,1582,1123,1711,3017,2593,2979,1060,2778,721,2075,725,2473,3046,1650,588,1178,1820,3040,2517,1613,681,1283,2201,2495,582,3178,1002)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000070"
rlt[mytot,2]<-"YKL022C"
ori<-c(2966,2011,2228,2204,1880,1541,2217,2404,2030,2063,2456,2936,320,1032,1837,1660,223,3144,1825,2273,2830,1713,2852,565,214,3104,1403)
ppi<-c(2648,3204,1856,1668,3201,2654,1796,3198,1127,1655,1681,3195,666,510,2356,2302,3196,3197,997,2169,3001,1735,3202,999,552,3126,3200)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0016567"
rlt[mytot,2]<-"YKL022C"
ori<-c(2011,1816,1798,1880,741,1062,472,2404,2030,2936,2742,320,1740,2842,2134,223,3144,3047,2852,1188,3123,1403)
ppi<-c(3203,2597,2416,3201,896,2788,1835,3198,1127,3195,2728,666,2744,3009,1862,3196,3197,3149,3202,2228,2777,3200)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006979"
rlt[mytot,2]<-"YKL026C"
ori<-c(2750,1771,2754,3125,286,250,3172,1347,3130,1384,2543,3132,2143,2725,1695,1758,3178,1560,1067,1805,2414,2570)
ppi<-c(2752,911,2886,3170,764,69,3177,1478,3076,928,2317,3098,2045,2818,2625,2388,3178,1358,2649,614,1752,2034)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006367"
rlt[mytot,2]<-"YKL028W"
ori<-c(1489,2890,2341,790,2457,2928,1498,1022,1450,3029,395,1772,2752,2085,2440,2479,3124,3101,998,1785,1107,2870,2126,2783,2754,1677,437,2806,3180)
ppi<-c(1227,2433,2212,1495,2296,2498,3035,527,1811,1967,1251,2274,2554,1998,2221,2110,3204,2730,1971,1119,613,2627,1949,2917,2506,1359,1120,3186,2513)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0016567"
rlt[mytot,2]<-"YKL034W"
ori<-c(1261,2473,699,1849,162,288,1721,1135,2723,1852,235,1362,232,2610,1225,1061,1290,1398,2968,2366,2382,2875)
ppi<-c(1739,2173,1816,1930,449,1717,2525,1856,2743,1948,1998,1208,1655,1934,1135,1922,1886,383,1937,2964,1750,1936)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006006"
rlt[mytot,2]<-"YKL038W"
ori<-c(1468,2899,3037,2192,3070,2218,1276,2447,1756)
ppi<-c(2307,2930,2334,2428,3141,1440,669,2556,3165)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007124"
rlt[mytot,2]<-"YKL043W"
ori<-c(2506,2709,2751,2770,2636,2652,2255,885,1927,304,340,1919,1889,2033,521,2217,3058,1314,3195,395,945,1922,32,3151,3061,796,972,3092,838,2967,824)
ppi<-c(2524,1972,2876,2684,1776,2235,2650,2087,2865,109,2375,1751,2569,942,1008,2963,2929,1656,3194,225,2237,2477,1517,2936,2324,1224,802,2476,2182,2528,686)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000070"
rlt[mytot,2]<-"YKL049C"
ori<-c(1237,884,2522,3179,362,1413,2588,2111,1557,892,2875,484,2737,1248,655,2090,945,2238,3068,1825,2103,2847,456,1263,1721,3102,2879)
ppi<-c(2452,1799,2737,3166,1536,2415,2550,2056,1092,886,3176,1874,2667,1991,1973,2330,1936,2219,2734,1708,2350,2838,1577,1903,1507,3075,2169)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0009060"
rlt[mytot,2]<-"YKL055C"
ori<-c(1103,1779,683,742,1031,476,1558,779,465,1717,362,1850,2517,274,2172,1518,1324,1040,1271,3191,305,1535,2638,1958,1700,620,2082,515,1105,2700,1956,2229,399,1714,2058,2135,436)
ppi<-c(540,1033,1004,1659,554,215,1017,883,609,1065,192,1158,2248,244,2120,433,747,356,1171,3070,104,924,2358,1391,1103,273,1797,180,891,2057,1389,1881,659,1221,2526,1769,1907)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006406"
rlt[mytot,2]<-"YKL057C"
ori<-c(3187,2571,2950,2540,1455,1606,1123,2636,2440,2919,1621,2564,1073,2644,3082,2064,1052,2532,2068,1984,2391,2509,2472,1049,2673,1970,2863,1669,1338,3067,732,2443,2403,2619,2953,1434,3172,3192,2489,1753,3089,926,2115,1737,2677)
ppi<-c(3194,2230,3055,2788,894,1830,885,2328,2639,2710,1527,2228,2781,3166,3142,2642,317,2483,2312,1462,3114,2212,2670,1166,2761,1217,2586,2439,1579,2433,2190,2235,2566,2297,3155,664,2438,3177,2845,2130,3140,416,1795,2888,2107)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006611"
rlt[mytot,2]<-"YKL057C"
ori<-c(3187,2950,2540,1455,1606,1793,2919,1621,1073,2644,3082,2064,2532,2068,2391,2173,2863,1669,3067,2403,2953,3172,3192,2489,1737)
ppi<-c(3194,3055,2788,894,1830,2366,2710,1527,2781,3166,3142,2642,2483,2312,3114,2865,2586,2439,2433,2566,3155,2438,3177,2845,2888)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006367"
rlt[mytot,2]<-"YKL058W"
ori<-c(1553,1739,166,82,614,1380,925,559,46,2267,840,954,2182,111,881,2592,1904,776,272,2891,2402,1808,781,1744,2939,1018,81,2038,2404)
ppi<-c(453,2281,106,1478,2160,2558,2190,388,528,3153,1598,2017,2430,1036,1078,1743,1190,2206,1529,2968,2201,567,3201,1614,3126,879,1040,1590,2354)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006406"
rlt[mytot,2]<-"YKL068W"
ori<-c(3145,2609,2876,3042,1050,2231,1356,3126,2170,2411,1647,2695,2235,2926,1985,2262,2186,2594,2821,1729,2909,2809,504,2468,2224,954,3203,1853,2053,2970,1617,1628,3191,2320,2857,1753,2563,3176,2309,2463,3038,324,2342,2265,2305)
ppi<-c(3178,2670,2878,2232,606,2771,1359,2749,1981,2553,2640,2315,2894,2809,1207,2802,1407,2639,2791,1535,3070,2770,623,2646,2826,803,2860,2719,2013,2714,1667,1680,2830,1264,3113,902,2658,3131,2656,2529,3097,165,2472,2951,2393)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006611"
rlt[mytot,2]<-"YKL068W"
ori<-c(3145,2876,3042,1050,2231,2981,2411,1647,2235,2926,1985,2262,2594,2821,2909,1905,3203,1853,2970,3191,2857,2563,3176,2309,2265)
ppi<-c(3178,2878,2232,606,2771,2971,2553,2640,2894,2809,1207,2802,2639,2791,3070,2892,2860,2719,2714,2830,3113,2658,3131,2656,2951)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006414"
rlt[mytot,2]<-"YKL081W"
ori<-c(2745,2666,2757,2788,2783,873,3177,2994,3163,2989,2153,3045)
ppi<-c(3203,3201,2731,2952,2964,81,3194,2924,3189,3014,1310,3202)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006979"
rlt[mytot,2]<-"YKL086W"
ori<-c(2817,268,1777,1355,942,2988,762,999,2904,3076,645,922,2393,164,977,2435,822,402,318,811,325,2083)
ppi<-c(2583,94,1186,687,823,3113,316,1915,2853,3083,2003,1107,2393,923,2274,1772,472,1195,2785,158,1362,1547)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0009060"
rlt[mytot,2]<-"YKL093W"
ori<-c(2600,975,1312,548,166,553,216,298,2549,170,2768,1324,2184,1763,1009,716,1560,433,3011,1072,581,2613,1835,643,2402,1784,648,2407,1527,2041,327,1350,1892,2705,290,2907,1506)
ppi<-c(2368,444,1351,1432,78,255,125,516,1847,95,2870,690,1697,974,1058,49,883,228,2944,1303,357,2810,1891,222,2100,1038,414,2349,658,1244,64,1886,1715,2910,1709,2807,1947)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000398"
rlt[mytot,2]<-"YKL095W"
ori<-c(2788,3161,1136,532,2106,149,3073,1458,156,67,2457,2398,195,1303,848,1305,2478,1474,1532,2851,1548,1928,2831,307,1839,2065,2826,2797,3028,1938,3172,2696,2907,2266,1384,1715,1249,1644,2540,3202,2833,1287,846,2850,2042,3077,2082,1880,2626,3200,686)
ppi<-c(2686,3177,2285,184,1518,2045,3202,1974,2144,2297,1480,1709,316,1508,429,514,3195,614,1025,2041,1275,2192,2673,2146,3142,2703,1862,2191,3136,1562,2853,3044,2987,2010,2207,2231,1557,1501,2112,3201,2615,834,2416,2820,2060,2825,1913,1633,3029,2834,1923)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YKL101W"
ori<-c(2774,836,1417,2896,2753,3115,2696,2655,2899,3076,156,2400,1094,1884,3132,2595,1009,1773,151,599,1644,1268,26,3116,2646,2221,1853,2739,254,2605,1538,1413,56,3018,2259,1943,2710,1244,2216,139,2061,2939,460,1552,1890,179,55,2404,2534,2217,2522,2415,2865,2207,3069,861,461,1498,2101,540,1219,1911,2033,1171,185,1660)
ppi<-c(2849,2926,802,3074,3016,3153,2699,2613,2249,3027,1578,2750,2285,2311,2934,1998,564,1234,2151,334,2212,984,1861,3072,2396,1964,2778,2386,1224,2839,1973,674,2118,3067,1974,1655,2633,1181,1370,57,1350,2463,738,846,2461,617,1293,2070,1777,1821,2342,2137,2927,2424,2358,1680,2126,733,1586,2119,1510,2606,1714,2192,1249,979)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006457"
rlt[mytot,2]<-"YKL117W"
ori<-c(2512,2840,2249,2301,2862,2172,1681,2478,2490,3033,3084,2869,2097,1299,275,1579,2772,2876,2749,2891,2879,2973,2885,3168,3034,1986,2903,3180,2680,1340,2352,3145,3192,1426,3151)
ppi<-c(3157,3074,2345,3022,3012,1851,669,2397,2227,2978,3081,2833,1231,798,970,414,2687,3114,2522,2781,2904,2864,2381,3175,3151,1412,3125,2938,2806,739,1858,2944,3200,456,3197)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006897"
rlt[mytot,2]<-"YKL129C"
ori<-c(2722,3085,581,861,2510,426,645,3036,2217,2686,1087,674,1806,1150,3141,2923,2625,2747,3045,1676,1907,1707,3154,3140,606,3106,2446,2562,3002,1869,1359,1169,348,2289,691,607,1287,2343,2673,2183,3147,1086,1225,3050,536,2196)
ppi<-c(2623,2900,772,679,2583,101,912,3123,2177,2807,2074,2703,1007,1836,2400,2443,2637,2689,2167,2497,1515,1199,2916,3105,423,2951,3094,2229,2690,1374,795,1834,1272,2301,151,1498,1286,1769,2911,1714,2786,1417,1422,2495,1332,2646)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006970"
rlt[mytot,2]<-"YKL129C"
ori<-c(931,2510,2357,3036,2686,457,674,101,2599,2164,1867,712,2026,201,3166,2446,3032,2071,607,2272,3147,3090,510,2151)
ppi<-c(1667,2583,2756,3123,2807,382,2703,1936,2695,2082,1611,2855,2719,936,2844,3094,2847,1314,1498,2841,2786,2488,1753,2757)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YKL129C"
ori<-c(597,2722,2906,3054,1512,1722,225,2465,2413,2661,2804,1619,1889,120,85,2103,1696,1962,674,852,69,2418,30,2784,613,508,2207,651,3126,2586,1038,1019,2505,1801,2232,2111,1872,2808,1227,1848,1304,201,606,3106,434,555,1105,1202,2446,1438,1359,2289,696,2257,1890,607,2183,2531,1840,666,2196)
ppi<-c(1441,2623,3047,2820,850,1675,102,2559,2442,2802,2889,1133,2169,62,527,2935,1721,2200,2703,825,1562,1469,461,2979,682,431,2766,2590,3165,1908,878,1968,2538,1536,2688,1621,1392,2471,1291,1232,2730,936,423,2951,436,2013,644,575,3094,871,795,2301,356,1746,2403,1498,1714,1946,1032,359,2646)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006979"
rlt[mytot,2]<-"YKL150W"
ori<-c(572,1737,2357,2504,2096,1483,3133,2495,1706,1642,2047,2656,2514,558,3118,2804,2999,2425,2904,2851,2772,2683)
ppi<-c(988,654,1955,2664,1922,613,3152,2200,1525,963,2321,2451,2979,848,2815,2681,3064,2028,2619,2835,2744,2441)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YKL163W"
ori<-c(842,2333,3068,2462,1714,3178,1095,2511,1759,150,3104,3103,610,1063,2930,1700,756,3173,2470,684,2057,1584,1704,2698,1264,875,478,493,1056,277,2519,181,3202,191,125,2247,3203,2617,492,1560,309,250,217,1950,2704,1774,1226,173,2154,780,1875,2392,549,1090,2064,2151,2206,509,1898,211,417)
ppi<-c(1696,2424,3102,2741,922,3100,516,2383,1453,2016,2874,3139,972,621,2814,1667,2051,2752,2685,744,2763,891,1324,2785,1018,610,2353,2156,1517,86,1706,185,3201,487,2432,2525,3203,2337,854,878,2502,579,102,2066,1682,2098,608,48,2500,343,1087,2342,308,1799,2468,1912,1468,1648,571,41,2289)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YKL164C"
ori<-c(732,2046,3088,2196,1444,3147,1498,1924,1786,95,3131,3117,579,1107,3041,853,963,3169,2125,506,2205,1401,1815,2551,2335,780,342,650,310,229,2766,180,3202,274,173,2142,3203,2533,469,1507,306,254,185,1489,2619,1827,1697,125,2015,843,1394,1900,328,561,2363,1503,2111,802,2157,149,178)
ppi<-c(1710,2392,3113,2760,768,2980,805,2294,1495,2372,3012,3149,1174,647,2913,1000,2515,2824,2563,613,2920,642,1496,2447,1575,544,2144,2189,846,60,2910,215,3200,654,2686,2251,3203,2109,1012,859,2737,669,95,1954,1584,2096,953,32,2266,351,670,2180,200,1672,2794,1757,1266,1878,774,41,2243)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YKL166C"
ori<-c(17,670,701,681,1185,683,1187,2883,2542,348,2463,650,2123,269,120,1275,1623,1104,2109,1626,1913,642,1712,696,1811,558,1780,1950,1521,2025,2836,570,2612,881,2440,1101,466,161,83,93,204,312,1616,1628,304,3055,2253,213,1052,1191,1420,1216,503,2303,1082,2889,2625,2448,1902,2585,2315,1984,186,711,2939,2038)
ppi<-c(19,2628,175,30,2496,377,1349,2690,2007,370,2523,1762,2285,1577,1702,1133,995,1021,1724,939,2287,593,2454,897,1788,873,2268,2233,1566,2164,2234,330,2756,487,2916,1183,1313,586,1419,513,89,1081,1448,1002,2030,2938,2325,1575,2149,1546,1032,1722,581,2879,2206,2244,2629,2138,1432,2340,2157,2286,2906,1697,2812,2597)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007124"
rlt[mytot,2]<-"YKL166C"
ori<-c(1386,1576,1062,434,742,59,591,1823,1476,2276,1115,2682,1780,305,1320,1123,2034,657,83,332,112,154,667,1857,304,532,2864,626,1111,186,1482)
ppi<-c(2214,1931,467,266,1619,64,666,2386,1212,1729,2357,2605,2268,6,1623,3201,1286,665,1419,167,1948,2002,1966,2600,2030,1169,2994,1975,1998,2906,1452)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000398"
rlt[mytot,2]<-"YKL173W"
ori<-c(2772,2993,1976,1419,1669,1228,1575,2885,1292,658,880,2756,2269,2085,2315,2100,2595,1798,779,2506,763,1912,2360,824,1990,2374,2865,1969,2952,2365,2278,3148,428,2128,1616,1855,2515,1304,208,3119,710,617,955,1245,2489,3203,1612,3087,2395,1079,511)
ppi<-c(3022,3087,2078,625,1194,1972,2753,2040,2285,2112,335,2704,2323,2878,1319,1333,2669,1053,3203,2054,742,3113,2337,2212,2023,2589,3025,2362,3065,2310,2725,3080,182,1798,2048,2128,2719,1385,76,3070,2071,617,1979,1380,2322,3127,2723,3159,2839,1811,2039)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YKL190W"
ori<-c(857,894,1937,1289,700,1909,26,2173,850,1786,2978,888,341,507,908,2495,1549,2722,354,2141,61,831,210,1152,804,807,1729,5,1950,2519,677,1213,1780,1962,862,2681,2463,2243,707,1801,2528,288,727,1635,2277,1186,1216,328,1413,1727,1166,2496,1436,346,2904,1052,1497,2044,697,236,2346)
ppi<-c(1968,2390,1406,2110,319,1008,32,2337,1002,1646,2763,501,1074,356,1098,2685,1582,2515,2609,1716,1167,241,617,493,1012,539,2595,2103,1969,2855,580,622,1595,1955,1616,2171,2338,1761,912,1107,1855,1024,321,2127,1844,2019,649,165,2180,1160,519,2295,828,867,3043,1263,949,1853,696,76,2384)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006487"
rlt[mytot,2]<-"YKL201C"
ori<-c(156,1391,1846,929,452,1677,2202,1997,2143,1212,1828,1001,2254,1937,2610,1827,772)
ppi<-c(2014,674,1462,2115,484,2048,1710,1130,1900,598,1543,1052,1704,1841,2761,1340,1227)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006897"
rlt[mytot,2]<-"YKL203C"
ori<-c(3040,1328,1203,883,3019,2400,2862,1184,2489,1078,2649,2457,709,3116,50,2635,1342,232,907,2274,1889,1837,75,1534,2270,524,2777,403,2047,2166,2264,2630,2225,330,1627,187,2030,996,176,1604,1742,793,1572,2631,124,1903)
ppi<-c(2243,1771,967,377,2685,1654,2788,584,2311,2223,2147,2252,493,3000,1116,2606,2290,847,2446,2369,869,2373,591,1310,1789,1676,2331,1164,2322,1601,1700,1828,2493,1597,511,1057,1673,1315,1241,899,2273,973,1523,2365,829,2462)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006406"
rlt[mytot,2]<-"YKR002W"
ori<-c(1385,2206,2156,2179,1733,1831,3121,2379,2502,2594,3047,640,1059,217,2012,2742,2172,974,1789,821,367,1481,352,2361,220,1575,2712,609,2676,790,1746,2182,2363,1533,671,205,1416,1774,287,1395,654,213,933,345,1541)
ppi<-c(827,1504,1718,2634,1000,2277,3169,2119,2623,2157,2433,2561,2082,2065,1575,2403,1036,2263,2448,363,240,1466,442,2047,1322,956,2421,2007,2307,2062,2494,1927,2615,718,550,50,2507,1510,2005,2441,316,55,957,1895,2241)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006623"
rlt[mytot,2]<-"YKR014C"
ori<-c(3053,780,2783,366,2087,1869,2376,2905,60,756,2565,3102,1758,1524,546,1139,3041,662,2109,1257,2459,2247,2493,3111,2544,958,1011,2682,2115,3046,2984,3085,223,2885,1003,1255,303,1609)
ppi<-c(2362,209,2972,2098,2234,2875,2331,2790,456,2257,2744,2966,2210,2121,1457,1360,3101,887,2688,780,2492,2409,2170,3054,2225,1231,491,2605,2329,2181,2717,2959,1131,2587,1257,961,508,2443)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006897"
rlt[mytot,2]<-"YKR014C"
ori<-c(1661,3141,1462,1842,1979,43,454,3138,1673,2779,1184,1259,2716,280,3196,2273,2987,2422,3063,522,2175,3068,296,3019,934,2774,2079,2029,2689,2544,1017,325,124,2562,1777,2349,539,961,3085,1958,2504,1921,2695,1909,1328,2741)
ppi<-c(2476,2755,628,1191,1771,22,768,3158,2357,2396,2012,2713,2193,1509,2955,2618,2517,2017,2794,1796,996,2549,155,2961,416,2709,2547,2290,2023,2225,406,1389,1223,2050,919,2607,829,2139,2959,1325,2352,2229,2413,2094,1602,2527)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006623"
rlt[mytot,2]<-"YKR020W"
ori<-c(2452,979,2499,1112,2891,1789,1154,2700,988,1053,2104,2007,2772,671,2371,485,3176,1876,2873,445,2481,1531,328,2264,1829,809,1099,768,2016,2680,1535,3161,2492,3070,2478,3010,175,712)
ppi<-c(2101,647,2032,1736,2864,2418,1662,2950,1110,2332,1498,1344,1731,1301,2725,549,3033,1432,2844,1040,2689,2123,159,1677,980,1381,588,641,1971,2536,2030,3126,2759,2849,1997,2935,625,2006)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000398"
rlt[mytot,2]<-"YKR022C"
ori<-c(2331,2679,1542,493,2335,1167,1220,2064,1928,174,2940,3179,2222,3198,2951,1548,1433,2141,555,1338,3041,2915,3156,2695,2884,1995,2719,1893,2337,2448,1943,2040,2378,3141,3159,1651,1998,235,810,3099,2944,1878,1423,1750,2812,2941,2189,2454,3170,2177,580)
ppi<-c(2360,2836,2506,166,2813,2596,2434,2569,2445,2342,3153,3183,2127,2983,3006,783,883,1514,190,2013,3110,2232,2485,2501,2460,1927,2787,2026,3041,2435,1622,1189,2029,1778,2619,3139,1464,612,345,2988,2248,1602,1726,1463,2177,2665,1973,2406,3136,2212,1957)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006413"
rlt[mytot,2]<-"YKR026C"
ori<-c(2297,2825,2943,3172,2650,1020,2898,1574,2872,3001,2057,2195,2243,1652,3202,2855,2805,2701,2930,3120,2248,2659,1576,552,2654)
ppi<-c(2773,2641,3036,2949,2814,634,2460,2482,2954,3088,2272,1931,1530,1000,2585,2973,2757,2905,2914,2734,1364,2780,462,270,2782)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000082"
rlt[mytot,2]<-"YKR028W"
ori<-c(2608,2288,1059,1908,2675,1432,1143,345,2947,1063,2284,735,581,2113,721,1597,2588,3137,436,2001,1655,133,2023)
ppi<-c(2661,2502,535,3203,2164,1342,1956,1870,3016,901,1966,3064,1819,1549,1753,564,2016,3023,562,1994,2506,1194,2766)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030437"
rlt[mytot,2]<-"YKR031C"
ori<-c(2821,1360,2085,2006,84,595,1278,27,839,2506,3106,2750,93,1144,1836,1047,1441,2615,979,97,728,2515,602,2164,436,1185,663,2478,2552,2449)
ppi<-c(3031,1757,1442,2357,2223,225,2033,49,1758,2475,2386,2622,276,1994,2458,859,1728,3010,455,944,2068,2270,870,1636,269,380,1706,2525,2253,2697)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000070"
rlt[mytot,2]<-"YKR054C"
ori<-c(2103,2699,2575,942,2441,490,3055,329,2852,3071,2695,2785,2031,1717,558,3027,2713,1380,995,3118,3059,3028,3183,2992,468,2447,787)
ppi<-c(2499,2765,2511,944,2769,2985,2656,2270,3079,3072,2576,2675,1743,2767,214,3003,2781,2703,832,3086,3107,2966,2775,2095,690,2876,2471)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007015"
rlt[mytot,2]<-"YKR055W"
ori<-c(840,2785,2287,2738,2849,993,69,653,2387,1949,2515,1781,1010,1495,3042,3035,864,1739,1682,2315,1527,497,841,179,1398,146,896,361,629,1220,154,1353,597,2952,2327,1863,2017,1071,1640,3159,1158)
ppi<-c(2787,2513,2614,2723,2944,1119,3176,396,2969,2100,2541,2163,2190,718,2499,3112,3011,2253,2148,1130,2488,1762,1091,1805,2418,459,1418,1416,1466,637,2533,2033,2954,3051,1828,1988,2618,2495,2042,2929,2926)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007264"
rlt[mytot,2]<-"YKR055W"
ori<-c(2101,3106,69,3065,2387,2025,1439,2092,1991,2515,5,3042,896,2017,1269,159,1158)
ppi<-c(2793,2887,3176,3047,2969,2405,1288,1873,941,2541,2102,2499,1418,2618,525,2641,2926)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006413"
rlt[mytot,2]<-"YKR059W"
ori<-c(1806,3181,1328,1510,70,3177,2877,114,1423,894,2480,3203,3145,1644,2215,1063,1719,2661,2304,2473,2371,2138,411,1211,3050)
ppi<-c(1508,3018,520,1944,4,3152,2741,2592,599,420,3203,3202,3153,2631,2486,1440,1864,2342,1768,3186,1682,1596,893,541,2104)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006365"
rlt[mytot,2]<-"YKR060W"
ori<-c(2935,3030,3062,3167,2816,3020,3144,2956,2707,3098,2194,3067,3159,293,3032,2876,2894,3182,3141,3129,3181,3116,3198,3194,3203,3000,3155,3073,3091,2988,3175,2312,3096,2528,2520,3166,3163,2612,2419,2960)
ppi<-c(3022,3059,3031,3041,3053,3167,3077,2990,3000,3017,2695,3093,3165,2454,3067,2838,3049,2988,3157,3106,3198,3010,3197,3083,3202,3066,3192,2753,2937,3131,3201,2285,3088,3057,2931,3169,3166,3047,1404,3060)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006367"
rlt[mytot,2]<-"YKR062W"
ori<-c(1014,2675,2512,30,1444,2527,996,546,744,2620,205,686,3015,2282,2711,3154,1844,2356,1280,1956,464,3115,2676,2184,2856,3109,1015,2069,2745)
ppi<-c(1150,1998,2375,1177,2059,2079,3024,241,922,1678,952,2022,2691,1793,2587,3203,1771,1969,1661,1216,267,3123,1740,1486,2693,2988,2348,3097,2311)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006888"
rlt[mytot,2]<-"YKR068C"
ori<-c(2925,1423,1604,2187,2328,1912,2519,1717,486,816,2292,4,1669,2202,2695,2320,494,1910,2092,2939,2490,1983,2502,1215,1757,2245,2485,1276,1372,1023,1347,2316,2840,2325,2964,2223,1095,2794,2819,2178,1599,3116,2711)
ppi<-c(3020,756,3198,1868,1933,2860,3200,1045,697,3202,3199,174,1336,2408,2283,1782,241,2845,2158,3197,2645,1526,2839,1996,1105,2046,2806,692,775,1952,2432,3029,2873,2771,2981,3203,580,2525,2521,3201,1109,2881,2576)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000027"
rlt[mytot,2]<-"YKR081C"
ori<-c(3088,3057,2748,2597,2339,3039,3073,3068,3106,3180,2944,3113,3142,1936,1505,2952,3134,1703,2923,3100,2588,3147,1637,1021,1674,2959)
ppi<-c(3175,3178,2992,2571,1671,3081,3001,3169,3195,3128,3043,3050,3198,2782,2905,2984,3185,2364,2950,3193,2624,3147,1140,510,2498,2930)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YKR100C"
ori<-c(1336,418,645,1491,1464,456,1257,2373,2643,2494,2460,107,2416,1400,1573,634,946,713,1281,3100,1423,1330,1299,331,2985,1725,2906,2144,2400,2472,488,2035,395,2984,2018,1289,274,354,486,911,2838,2737,3158,1966,1154,3200,2676,3194,1646,2652,647,884,3201,1358,755,2481,1541,3062,932,3113,1429)
ppi<-c(1269,1936,388,2659,890,1272,716,2091,2570,2584,1840,143,2215,855,1563,1841,1756,2517,2344,3009,2210,984,1956,212,2937,1168,2545,2588,2870,1827,562,2109,572,2761,2646,2381,170,257,542,530,2629,2465,3171,2158,1580,2747,2765,3193,2459,2359,299,2294,3195,1467,1161,2152,936,2539,378,3163,2336)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007005"
rlt[mytot,2]<-"YLL001W"
ori<-c(1602,1095,1556,2577,456,3083,3197,328,2298,1067)
ppi<-c(960,656,887,1846,1354,3022,3194,123,2790,1155)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007005"
rlt[mytot,2]<-"YLL006W"
ori<-c(2002,2366,1707,2559,1067,2443,2105,1059,3162,1991)
ppi<-c(1305,2858,1035,2722,1147,2249,1852,650,3016,1732)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000027"
rlt[mytot,2]<-"YLL008W"
ori<-c(3142,3057,3042,2832,1294,3080,2917,3113,3195,3159,2969,3135,3079,2804,977,3131,3169,1410,2956,3183,2945,3075,2570,942,2374,2944)
ppi<-c(3161,3170,3103,2869,547,3107,2885,3182,3203,3108,3042,3122,3192,3105,2759,3106,3190,2662,2981,3201,3011,3085,2590,495,3015,2982)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006365"
rlt[mytot,2]<-"YLL008W"
ori<-c(2743,3114,3056,3140,3142,3057,3041,2072,3010,3092,2403,3080,3193,582,2249,2664,3085,3188,3153,3120,3113,3031,3103,2969,3116,3164,3025,3176,3152,3169,3023,1599,3146,2700,2690,3069,3202,2884,2882,3181)
ppi<-c(2858,3127,3055,2924,3161,3170,3079,1052,3128,3080,2520,3107,3179,2373,1709,2828,3087,3073,3148,3113,3182,3066,3146,3042,3177,3135,3029,2836,3078,3190,3164,1324,3140,3075,2860,3091,3184,3152,2965,3174)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YLL019C"
ori<-c(2318,1687,2940,2105,1995,2245,1275,1198,905,1820,2785,2322,2551,2919,2218,1770,2929,3042,1173,1596,898,3163,1037,1996,1085,2975,2600,1626,2637,770,1240,1895,718,2759,385,975,2774,3202,2738,1911,193,1326,2677,1081,2367,572,538,2281,1106,2267,1028,1799,671,1430,343,274,1118,1254,1422,241,1396,1809,1816,2597,337,2017)
ppi<-c(1870,2248,3056,1057,2239,1816,1196,1672,689,1444,2815,2523,2470,2365,2683,1722,2972,2925,1612,949,2042,3035,1658,1577,964,2893,2183,3173,2615,1151,2201,1336,2085,3071,241,1072,2334,3171,2942,1830,123,1679,2873,574,2376,1366,1216,2364,2431,2704,486,1875,898,541,2276,1316,1839,639,884,1501,1543,2522,2179,2294,1048,2018)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007015"
rlt[mytot,2]<-"YLL021W"
ori<-c(1450,2340,1445,1007,2327,1206,1808,289,2205,1436,230,1001,1662,1772,2013,1005,2933,1312,2768,1162,1516,1362,1020,3169,2557,569,2527,2193,1988,264,1861,2606,2872,1309,2704,1624,1715,967,1966,1527,1375)
ppi<-c(1370,2666,2844,1216,1938,1236,2524,178,2323,1667,150,2660,2442,1021,1918,561,2518,1775,2708,638,2531,1682,1177,3090,2909,742,2750,2779,2742,70,2677,2605,2834,3151,3201,1465,2693,2619,2345,2676,2641)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007124"
rlt[mytot,2]<-"YLL021W"
ori<-c(1969,761,266,2927,1947,2773,2205,926,1525,2367,3179,1436,2792,1063,1840,247,668,2824,1607,995,163,2303,3169,894,516,2987,678,1715,3090,481,2007)
ppi<-c(2709,2319,188,2407,2222,3027,2323,2206,1352,1948,2572,1667,2724,118,2456,2009,754,2789,1179,538,106,2743,3090,1848,2740,2907,1023,2693,2792,1261,2372)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006348"
rlt[mytot,2]<-"YLL022C"
ori<-c(3088,722,2206,101,3100,3165,2789,2051,550,2604,3080,2029,900,2703,1821,1873,2467,1020,2421,1593,2528,819,1766,1366,15,2645,2173,2027,1129)
ppi<-c(2845,394,2343,2133,3062,3181,2718,2985,173,2212,3136,1946,211,3147,2110,2925,1697,567,2487,2327,2482,553,2666,2611,20,2442,3034,1133,1215)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006457"
rlt[mytot,2]<-"YLL024C"
ori<-c(3203,3184,3119,1721,3191,3173,2860,2245,2626,3200,3198,3195,81,621,394,684,2677,2054,698,1386,3181,3124,2583,3194,3192,2714,3186,3202,2844,2052,1581,3170,3197,2590,3196)
ppi<-c(3198,3196,2759,3067,3193,3143,2958,2115,1905,3188,3192,3075,353,1441,968,96,2006,1893,2005,1308,3140,3169,2227,3173,3197,2751,3190,3039,2782,1394,505,3030,3202,2993,3183)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030437"
rlt[mytot,2]<-"YLL033W"
ori<-c(2175,321,1700,433,775,972,1262,409,80,388,995,1930,1454,1163,1192,1198,1299,346,2774,1615,65,2634,1802,2791,1843,3083,1621,2902,3197,1530)
ppi<-c(1938,953,1015,2412,2225,484,1514,79,689,637,1771,2638,1037,2126,2259,847,2918,287,2775,1727,2811,2592,1557,2881,1251,3137,2012,2786,2901,1911)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000398"
rlt[mytot,2]<-"YLL036C"
ori<-c(1735,1231,439,1404,558,914,1995,2604,872,184,2137,1744,636,2679,2778,273,743,1345,122,2995,1249,132,2783,657,2782,2821,2649,2507,2063,3124,1437,2752,2968,2428,1765,2158,1372,911,963,3136,2895,594,922,1544,1254,2709,2896,2533,2811,2352,1890)
ppi<-c(2311,680,2593,664,685,2012,2616,1743,2118,2187,1246,916,607,2017,2932,37,390,666,59,2570,1075,1960,2292,1956,2485,2471,2191,2880,2353,3039,2784,2281,3094,1750,2002,2156,1834,1123,628,3049,2400,292,2643,1403,1828,2125,2481,2185,3203,2225,2232)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0016567"
rlt[mytot,2]<-"YLL039C"
ori<-c(1032,3071,2485,495,2201,2862,124,1317,688,311,754,346,1765,2066,1404,2424,2368,2851,384,2831,2526,716)
ppi<-c(1871,2958,3200,1673,1931,2911,2866,2026,211,1849,2824,705,2638,2224,674,2291,2293,3022,1598,2858,2411,1764)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030437"
rlt[mytot,2]<-"YLL039C"
ori<-c(2123,3152,3049,1764,2852,3017,2875,3006,2898,250,707,2159,1462,120,2932,3035,1452,992,459,3133,537,544,1905,3178,2961,1188,3119,580,1584,234)
ppi<-c(1149,2989,3049,2262,2272,3070,2725,3131,1932,657,1564,2746,790,1920,2560,2903,1890,471,214,2837,1939,267,1664,3180,3082,873,2417,251,1975,1365)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006623"
rlt[mytot,2]<-"YLL042C"
ori<-c(225,2073,1459,2853,837,702,832,1902,2926,1621,1483,515,3060,1006,2181,1103,453,2001,1150,2438,2194,2036,2187,474,1722,1624,2210,733,1565,325,299,1084,3111,1490,2169,2136,416,650)
ppi<-c(1289,1442,903,3200,1312,1627,1580,2050,2759,2234,799,453,2275,3087,1669,1325,1140,792,623,2284,1620,2465,1832,539,942,2244,1678,553,3076,2270,1759,1399,2866,1631,1498,2643,914,2273)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007015"
rlt[mytot,2]<-"YLL050C"
ori<-c(1730,1002,675,1693,1827,3203,1737,3083,1485,752,2513,2714,781,1155,518,974,397,1229,265,2600,445,1322,1625,1750,1875,3086,2047,1606,1675,2489,3161,1302,2950,711,509,604,1496,2756,994,74,3072)
ppi<-c(1210,2484,2031,1695,1253,3197,2021,3179,1014,906,2360,2461,2293,600,2230,1084,2538,2182,1287,1929,1746,2539,1262,2510,2646,3149,1983,1949,1526,3010,2536,2108,2721,945,229,1214,2157,2586,2164,1555,2290)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000723"
rlt[mytot,2]<-"YLR015W"
ori<-c(1218,888,2840,1000,322,2372,943,184,1656,1532,3010,2328,870)
ppi<-c(2081,2201,2097,857,277,2547,1316,22,1676,2084,3072,2848,849)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006348"
rlt[mytot,2]<-"YLR015W"
ori<-c(1218,1574,1429,2840,959,417,3111,2345,201,655,2000,2490,2146,1047,943,3109,2228,779,1242,863,2481,1531,1937,1065,2068,2405,2506,1455,1404)
ppi<-c(2081,1046,2555,2097,1041,255,3039,2592,52,336,1309,3203,934,549,1316,2762,2438,439,847,2265,2674,873,2459,1616,1010,2328,2488,578,1200)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000398"
rlt[mytot,2]<-"YLR016C"
ori<-c(1859,499,640,676,589,1892,1820,2950,2447,1036,2539,2385,2192,2630,3167,884,1174,1641,386,3027,2571,1191,2273,1180,3023,2620,1843,2067,2213,3097,2142,2798,2899,2980,2852,2629,2086,492,587,3146,3105,2285,372,2395,1912,1533,2936,1762,2854,2180,1026)
ppi<-c(1494,221,2729,194,1334,2482,2343,2299,2422,2431,2751,1885,1520,2889,3172,252,605,1432,140,2536,2791,2338,2459,2416,2825,2380,1291,2423,2628,3177,2626,2275,3161,1636,2489,2125,2548,913,320,2999,2397,2866,2179,2242,2527,1455,2376,909,3114,2511,2292)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006406"
rlt[mytot,2]<-"YLR016C"
ori<-c(1251,676,3086,2995,455,187,1405,1073,1616,851,2700,151,177,1186,3202,3116,2539,1738,702,2495,1309,2110,2451,2855,223,2571,1723,2062,1051,2231,1669,1990,2728,2475,631,1445,2779,1875,2173,518,929,902,2190,384,2862)
ppi<-c(726,194,3016,2062,208,2199,952,1854,1021,1733,2851,1858,1971,1882,3201,2429,2751,2484,2249,2559,661,1569,2068,2680,1281,2791,2336,2150,2412,2195,2361,2787,2450,2947,700,998,2357,1816,2466,1957,452,175,2337,1813,2278)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006888"
rlt[mytot,2]<-"YLR026C"
ori<-c(1306,2839,1635,323,1469,3093,1201,1350,1985,999,881,2936,2576,3012,125,1005,1491,691,2084,425,78,2111,1734,4,775,1459,1332,2872,1755,811,3090,166,415,2987,634,3094,2669,150,1002,1194,710,1186,920)
ppi<-c(765,3122,2018,666,970,2920,1837,3202,2818,1639,1656,2518,2633,3024,57,1759,1011,1535,2355,1529,2627,1847,2071,259,385,1486,2776,3016,1023,1552,2839,455,2060,3067,588,1921,2756,2309,1594,1799,438,2297,2446)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0009060"
rlt[mytot,2]<-"YLR028C"
ori<-c(2730,2035,1602,1517,2991,2552,1804,1820,2897,1298,1707,2627,124,2058,1353,2138,2221,1228,2232,2440,1639,2555,917,1500,3139,1917,2762,3146,1628,1815,642,1457,1743,1836,440,1780,3106)
ppi<-c(2737,1375,1846,1883,3100,2507,1153,1743,2991,568,1029,2683,74,2283,1521,1139,1752,1089,2027,1540,1338,1825,1894,768,3158,1309,2866,3161,907,1212,165,1827,1584,930,2114,1476,2444)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030437"
rlt[mytot,2]<-"YLR028C"
ori<-c(1848,2688,3098,1579,2106,2838,2843,1485,2302,546,1082,2948,786,54,2399,3124,1885,1237,198,2829,247,2169,2636,3173,2398,1784,3043,1390,2973,659)
ppi<-c(781,2073,3034,2697,2123,2964,2879,824,2148,725,1468,2609,816,1702,2153,3072,1753,547,105,2243,2110,1643,2595,3049,1905,1911,2611,587,2880,1561)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0009060"
rlt[mytot,2]<-"YLR067C"
ori<-c(135,1803,2576,60,1075,2445,1380,976,1485,2749,1957,2842,2371,1550,3039,1750,2510,2035,2100,783,2384,1835,646,2726,1894,2825,2720,756,1818,22,2614,3137,2020,3007,3011,2093,110)
ppi<-c(58,992,2669,1439,473,2329,776,1114,1828,2910,1374,2980,2434,1435,2361,579,2445,823,1908,1628,2685,952,324,2852,1254,2959,2807,420,1222,345,2860,2938,1740,3113,2659,2304,1500)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030490"
rlt[mytot,2]<-"YLR068W"
ori<-c(1906,2826,2767,2955,3033,3091,3144,3182,3185,1173,3151,2579,3104,3041,3186,3194,2594,2881,2914,2778,3029,2171,2525)
ppi<-c(2701,2653,3123,2762,3081,3158,3161,3125,3199,566,3135,2771,2977,3040,3094,3043,2741,3086,3104,2879,3134,3013,2545)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000282"
rlt[mytot,2]<-"YLR074C"
ori<-c(1550,1308,749,3142,2365,2896,2453,835,2479,1891,2508,1660,1783,1427,3202,3084,1973,2879)
ppi<-c(1512,573,2019,3169,1626,2672,1879,55,1684,1858,2167,641,2107,2633,3190,3103,1397,1886)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000027"
rlt[mytot,2]<-"YLR075W"
ori<-c(3112,3081,2863,3164,2923,3090,3191,2875,2855,2521,2252,2967,2057,3041,1345,3089,2821,2848,3157,3158,3187,2147,3192,1499,3179,1604)
ppi<-c(3143,3132,2767,3167,2967,3128,3148,3119,3051,2942,2593,3203,1941,3097,1097,3090,2989,2944,3160,3142,3197,1474,3195,851,3181,637)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006888"
rlt[mytot,2]<-"YLR078C"
ori<-c(2668,2743,888,167,480,3034,1569,2267,1326,277,1437,1877,2116,3190,1893,2427,1535,1305,431,1180,265,2170,1815,552,2044,2197,74,3158,133,1295,3036,1179,2794,3175,2871,3178,2599,1116,1934,1003,137,420,1477)
ppi<-c(2722,2871,2054,711,275,2808,2564,2166,847,1459,2388,1648,1584,2922,1683,1448,731,2643,2458,2176,2417,1961,1581,684,1327,1920,1718,3179,197,2182,2935,646,2358,2958,2890,2477,2607,2207,2044,2047,111,1858,2726)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000082"
rlt[mytot,2]<-"YLR079W"
ori<-c(2672,2264,233,3184,1763,2723,2975,3019,634,3142,931,1430,2080,3040,3156,79,2356,3055,2976,2164,2488,787,2941)
ppi<-c(2898,3196,150,3076,2837,2740,2833,2788,565,3090,2973,1752,2785,3185,2895,5,2237,3021,3059,2811,2730,2447,3203)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006888"
rlt[mytot,2]<-"YLR080W"
ori<-c(1568,2828,1299,2585,925,374,1842,1029,50,1563,2480,1041,95,1603,1401,527,1774,1189,320,892,1406,2924,299,1336,331,1397,1038,1076,596,2326,460,1334,2630,1593,1592,694,267,2072,1161,878,2391,846,1309)
ppi<-c(882,2951,1375,2459,428,2116,1428,755,633,1439,1583,831,534,2572,573,397,1109,1162,2234,1332,2395,2823,739,2199,158,1383,1773,490,265,1484,1686,2145,2387,1895,981,1075,88,2545,1253,1277,2712,1216,2124)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006623"
rlt[mytot,2]<-"YLR085C"
ori<-c(1179,1183,1832,877,1669,1712,2867,2615,358,113,1242,1876,1331,814,438,978,2165,2926,1051,49,1062,1892,1572,2088,761,699,801,2748,1109,1835,628,1886,1616,2899,2758,172,37,1180)
ppi<-c(1476,1444,1580,2053,2050,2428,2533,2764,687,1678,876,1795,2435,1290,1451,938,2316,3156,1070,592,2055,2330,855,2291,557,840,427,2826,1760,2463,1667,2323,1622,2711,2850,1902,294,1850)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000070"
rlt[mytot,2]<-"YLR086W"
ori<-c(1979,1445,1837,1339,104,202,3113,368,2586,2977,2725,1855,2824,1628,2332,3059,2048,1353,3097,3024,2039,3102,2429,2902,377,1826,948)
ppi<-c(2567,1675,1189,1481,1061,2937,2995,1398,2319,2845,2498,1899,2762,1754,1759,2846,1854,1781,3148,3021,1458,3122,1755,2569,711,1082,1538)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000070"
rlt[mytot,2]<-"YLR102C"
ori<-c(1412,638,1873,513,2392,113,1699,1698,2976,2811,2090,2188,1672,357,728,2872,2061,1268,1342,3065,2122,1967,2606,2567,1866,1076,42)
ppi<-c(2337,3202,1276,470,3203,2515,1904,3198,3150,3051,1667,3193,1617,3201,377,2410,2427,3197,588,3010,1869,1972,3204,2587,1603,700,3195)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0016567"
rlt[mytot,2]<-"YLR102C"
ori<-c(638,3011,955,2392,2500,2441,2363,1698,2976,2188,2060,1672,1265,357,1017,2470,1268,959,2606,2846,495,42)
ppi<-c(3201,2642,2103,3203,2391,2096,2191,3198,3150,3193,2416,1617,2077,3201,464,2196,3197,231,3204,2573,1549,3195)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000027"
rlt[mytot,2]<-"YLR106C"
ori<-c(1316,2183,1722,1002,2248,790,727,298,328,752,1925,1427,1472,815,1286,271,1661,3068,2027,229,244,153,2125,127,3099,779)
ppi<-c(2514,3066,1009,529,1608,316,953,67,855,845,3001,703,960,1258,390,230,1121,2929,1531,735,145,99,1801,66,3032,285)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YLR110C"
ori<-c(2980,2410,2047,2538,304,321,1793,2997,2764,3058,2440,1697,1473,2354,219,2712,882,2212,2907,3018,467,640,833,1234,2046,480,962,1050,2818,2592,2533,3203,904,3024,3077,2021,1516,1518,1969,1081,3010,2189,3101,2847,2232,1696,1721,1637,2585,2635,1621,3029,1767,990,3007,1284,2812,512,1255,2670,3139)
ppi<-c(2494,2233,1417,2694,140,895,1157,2344,2706,2787,1543,967,1677,2071,981,1927,1420,2575,2292,2957,1411,236,1232,620,2560,392,2349,2143,2670,2263,2191,3199,865,2994,2764,2529,901,923,2454,1174,2735,2784,3142,2771,1488,2641,978,1010,2516,2774,776,2561,1355,1563,2952,2390,2872,1226,308,2148,2637)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YLR113W"
ori<-c(2683,2443,1031,2908,1912,1840,416,549,3074,2022,33,319,1931,912,1790,2535,495,719,2021,589,1961,1242,1439,1156,2599,1126,266,2544,14,3087,2962,1690,2631,529,1524,963,1209,1693,1364,2922,497,1390,260,3062,1773,1711,2556,3066,801,2842,2505,1238,2548,338,3080,2168,1966,612,1041,3010,1599,234,3155,1587,1990,506)
ppi<-c(2709,2464,700,3135,2008,1481,549,1672,2823,2675,1457,1868,2175,1981,2254,1869,472,1032,1462,342,2614,1051,1740,1272,2746,1214,2043,2275,605,2816,2673,989,1690,158,706,1148,3199,1780,843,1955,253,586,518,3128,3040,1410,2643,2419,2094,2407,2172,2100,2491,155,2684,2629,2147,258,547,2375,1558,1645,2778,1795,1777,218)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0045944"
rlt[mytot,2]<-"YLR113W"
ori<-c(727,197,1256,1518,1745,2575,1906,2495,2539,602,140,1286,524,1051,1164,396,1000,1422,10,975,1459,1095,2871,313,435,1041,866,2008)
ppi<-c(240,85,1261,711,1387,2591,1191,2199,2482,577,2055,311,1124,2117,464,122,1480,1875,202,1585,1984,628,2916,168,339,547,387,1904)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000398"
rlt[mytot,2]<-"YLR116W"
ori<-c(2067,2471,1766,1911,2578,1425,2697,2749,1426,581,3108,2620,1073,1043,2761,2560,2287,2672,2562,2893,2711,2982,2708,207,1684,2281,3144,2202,2009,1456,2401,3020,2422,1544,1401,2451,2293,1653,2936,3170,2519,948,113,2250,2000,1942,488,1421,1258,2106,4)
ppi<-c(1604,2217,2014,1321,2705,2376,2827,2431,2312,2054,3170,2197,1273,2198,2869,2484,2363,2960,2413,2656,3038,2514,2101,2163,1841,3052,3134,2468,1544,578,2164,3084,2036,2082,2280,2646,3201,1284,3043,3117,2177,1028,2023,1719,2385,1813,1468,709,707,2156,1815)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000398"
rlt[mytot,2]<-"YLR117C"
ori<-c(2946,2102,1707,1414,1754,585,1818,3195,2265,1597,1843,2310,1670,2665,2413,1462,1641,2978,1185,2895,1351,1746,2699,762,2424,3176,2480,2954,2045,2873,2914,2827,1474,3061,2218,1292,3130,777,1565,3087,2398,469,108,1137,2526,2376,1232,1374,2299,1524,546)
ppi<-c(2629,1555,2437,663,1369,2364,2909,2750,2318,2209,853,1987,1876,2948,1545,609,1247,3085,920,2451,981,2648,2730,2219,2555,2825,2989,2696,2290,2967,2912,2859,918,2216,2250,2246,3142,947,689,3030,2266,750,1402,1266,2554,1931,1006,1137,2676,2075,2051)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000070"
rlt[mytot,2]<-"YLR127C"
ori<-c(2221,2733,1892,2494,1701,741,1377,2912,583,494,1458,1274,2293,3138,2649,1301,1253,1195,2366,906,1796,1630,452,17,1368,2166,2980)
ppi<-c(2336,3203,1221,1547,3200,1971,2223,3198,289,636,808,3192,1967,3202,2803,2051,1520,3195,2349,836,1133,1635,3199,1189,1247,2354,3201)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0016567"
rlt[mytot,2]<-"YLR127C"
ori<-c(2733,94,1356,1701,339,1162,108,2912,583,1274,3134,2293,1258,3138,1220,2440,1195,2947,452,37,2898,2980)
ppi<-c(3202,2153,2587,3200,601,2611,1882,3198,289,3192,2647,1967,2143,3202,602,2385,3195,3078,3199,1709,2762,3201)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000398"
rlt[mytot,2]<-"YLR132C"
ori<-c(1675,566,163,1181,418,1545,2131,1480,723,155,2896,1424,484,1243,2693,274,355,1155,76,3106,1969,590,2146,853,2529,2058,2663,771,2248,3078,3040,2250,1493,2101,1918,2507,753,608,1714,2830,3189,376,849,2407,862,1223,3090,1848,2828,2928,2097)
ppi<-c(1471,227,2704,478,567,2417,2508,1865,2355,2260,2910,915,639,1803,2903,48,165,606,38,2280,2243,2221,2467,2076,2303,2406,2125,1854,1623,3171,3179,2623,1088,2126,2265,2392,1049,956,1588,2787,2537,153,1924,2276,1698,2197,2757,916,3098,2677,2426)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0009060"
rlt[mytot,2]<-"YLR132C"
ori<-c(775,2610,2881,1069,2037,3172,1899,1371,977,2199,633,2871,511,416,2998,2219,2633,2476,1802,2068,1826,719,1447,2576,2842,2836,3198,1355,3140,933,2555,3132,500,1118,2293,2167,1055)
ppi<-c(302,2740,2479,2003,1379,3185,1369,1353,846,1589,342,3014,251,399,2883,1401,2799,1758,1658,1502,1322,453,721,2445,2946,2828,3195,714,3182,776,2947,3035,858,684,2038,1561,2315)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006261"
rlt[mytot,2]<-"YLR135W"
ori<-c(1793,2607,3202,608,851,1256,3093,2094,32,1194,3141)
ppi<-c(3202,3092,3074,757,1290,469,3138,3035,693,669,3170)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006402"
rlt[mytot,2]<-"YLR136C"
ori<-c(1132,898,1332,2674,107,399,1432,1446,2282,361,157,793,1096,177,527,1155,608,801,772,993,1600)
ppi<-c(2314,1800,853,2376,2108,2078,2271,1474,2205,2178,1113,1473,1288,2355,1245,1808,2330,1743,452,2279,1000)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000398"
rlt[mytot,2]<-"YLR147C"
ori<-c(2451,674,1211,524,1828,1809,896,3177,3027,2178,2129,3022,2021,3092,3020,1323,570,2844,792,2096,2688,2353,3048,2298,3068,3111,2127,1989,2975,2544,3054,1569,3042,2102,2890,1308,3031,388,1419,3142,2974,2044,502,2484,2993,2164,2714,1977,2969,2126,1064)
ppi<-c(1817,336,2644,190,2318,2598,2519,2963,2320,2366,1852,3068,2018,2993,2949,480,310,2922,291,2138,2568,2613,2810,2571,2788,2515,2398,1958,2648,2944,2978,2257,2493,1560,2494,2363,2926,795,884,3028,2289,1760,1425,3026,2666,1690,2143,1304,2996,2780,2382)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000723"
rlt[mytot,2]<-"YLR150W"
ori<-c(427,943,1078,2672,1465,186,889,239,1661,565,1626,1787,1020)
ppi<-c(1664,1193,2267,2665,1081,77,1814,45,1017,665,598,745,1049)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0016567"
rlt[mytot,2]<-"YLR167W"
ori<-c(2354,604,888,781,528,2422,138,602,455,1025,2558,460,1728,2966,1493,2978,968,2909,1021,550,2678,1988)
ppi<-c(2268,2169,2632,1865,968,2635,1722,1802,155,2161,2437,760,2328,2285,729,2946,2104,2269,1985,2158,2308,2279)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000154"
rlt[mytot,2]<-"YLR175W"
ori<-c(3188,2877,2943,3157,3203,3071,2295,3069,3180)
ppi<-c(3201,2927,3022,3112,3148,3111,1829,3200,3175)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006365"
rlt[mytot,2]<-"YLR175W"
ori<-c(2588,3175,2714,3068,3188,3111,2991,1709,2936,2877,2540,3162,3181,1464,2199,2898,3092,3185,3073,2995,3009,2943,3007,2911,3086,3157,2925,3191,3203,3192,3063,1910,3071,2533,2268,3088,3154,3069,2815,3180)
ppi<-c(2696,3165,2961,2802,3201,3190,3008,552,3082,2927,2554,3167,3177,2417,1709,2777,3015,3018,3095,3030,3170,3022,3074,2988,3180,3112,2953,3202,3148,3187,3174,1455,3111,2997,2598,3106,3151,3200,2892,3175)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030490"
rlt[mytot,2]<-"YLR192C"
ori<-c(960,912,1481,2667,804,2188,1794,2004,2529,241,2159,1753,3167,2490,2401,2618,1049,1505,1711,597,2722,674,232)
ppi<-c(422,1071,1635,2922,466,2054,1358,1243,2446,117,1284,1157,3114,1992,1809,2572,1059,1044,579,225,2093,492,124)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000154"
rlt[mytot,2]<-"YLR197W"
ori<-c(3148,2891,3009,3139,3203,3028,2170,3119,3173)
ppi<-c(3203,2952,3059,3106,3025,3091,1634,3203,3165)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006365"
rlt[mytot,2]<-"YLR197W"
ori<-c(2763,3197,2742,3056,3148,3094,3012,1718,2956,2891,2643,3167,3184,1039,2260,2931,3107,3190,3011,2989,3059,3009,2988,2791,3068,3139,2950,3172,3203,3187,2983,1480,3028,2490,2291,3083,3153,3119,2785,3173)
ppi<-c(2867,3180,2968,2670,3204,3184,3028,568,3100,2952,2613,3170,3175,2430,1720,2790,3042,3016,3039,3057,3189,3059,3063,2973,3157,3106,2993,3198,3025,3182,3145,1235,3091,3015,2721,3112,3152,3203,2935,3165)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030490"
rlt[mytot,2]<-"YLR197W"
ori<-c(1441,3056,3148,3092,3120,3201,2530,3009,2975,2676,3139,2696,2887,2298,3163,3171,3133,3028,2869,2926,3119,2962,3032)
ppi<-c(2542,2670,3204,3126,3137,3181,2623,3059,3118,2627,3106,2862,2855,2518,3027,3040,3122,3091,3035,3134,3203,3095,3069)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006457"
rlt[mytot,2]<-"YLR200W"
ori<-c(1751,2417,409,2988,1832,1623,1487,2421,2197,2612,2685,1669,3047,899,382,1260,2933,3144,1268,3080,2820,2904,2234,2700,2420,869,2749,2762,3100,232,3063,3045,2682,1335,2991)
ppi<-c(2108,2179,1758,2315,1121,1744,729,2563,2575,1791,2462,2667,3112,824,832,418,2620,3162,1973,2858,2889,2963,1917,2370,2597,417,2997,2647,3011,141,3176,2351,2951,1364,2686)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0009060"
rlt[mytot,2]<-"YLR201C"
ori<-c(2130,3017,2316,1165,2198,3129,1105,1259,2209,1384,437,3036,512,1222,2384,1963,2756,1717,2144,2775,1678,2314,3125,1854,2789,3035,3056,2849,2624,2442,2046,2836,1017,2009,941,2801,2705)
ppi<-c(1441,3106,2216,1770,1566,3150,578,1515,1868,708,206,3101,234,874,2597,820,2896,1979,1961,1777,719,1718,3144,2072,2949,3081,3124,2921,2724,1720,1614,2833,1046,1296,2404,2778,2214)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006897"
rlt[mytot,2]<-"YLR206W"
ori<-c(2084,2870,598,2088,1563,858,310,2707,230,2787,1741,74,3140,177,3138,3008,1515,3047,3130,679,902,3143,1497,3117,1630,1722,947,1195,2503,1676,960,2135,856,2985,1062,1218,2108,2475,3064,682,3050,1488,983,1850,1972,2016)
ppi<-c(2586,2373,862,1666,1383,354,650,2909,2640,2466,1669,2281,2974,1702,3048,2965,2569,2943,3119,2779,516,2340,794,2845,1090,1825,2266,1375,2577,851,513,2437,1625,2694,292,1235,1700,2218,3126,423,2538,2430,1970,2306,2787,2324)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007015"
rlt[mytot,2]<-"YLR206W"
ori<-c(3135,2084,2882,330,2088,2495,2543,2707,440,3200,221,1515,2901,2862,1326,2894,488,3148,2156,902,721,878,1549,55,810,2917,1722,3182,1195,3036,2503,2985,1548,1006,1485,2475,203,3050,1850,861,2016)
ppi<-c(3095,2586,2378,605,1666,2479,2138,2909,757,3161,115,2569,2495,3010,2544,3049,2407,3128,2044,516,2175,1755,1709,1486,2459,2926,1825,2964,1375,3121,2577,2694,2379,902,759,2218,2287,2538,2306,1867,2324)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006888"
rlt[mytot,2]<-"YLR208W"
ori<-c(3147,2911,995,2392,2678,1202,1256,2587,471,1442,2608,3,266,2921,3201,1321,311,1863,407,1688,2051,1315,2284,2387,1537,1024,1654,2547,1071,2812,755,2630,2638,930,2983,1889,2746,3137,2604,1405,1546,2602,3191)
ppi<-c(3158,2978,1905,2812,2818,2143,1680,2859,547,1694,1845,62,487,2418,3198,1012,127,2984,2413,1918,2183,1081,2718,2857,922,1149,3133,2516,719,1807,2268,2537,2931,2821,2992,1841,3064,2700,1725,1766,685,2800,3099)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006457"
rlt[mytot,2]<-"YLR216C"
ori<-c(3195,3162,3156,1761,3187,2424,2650,1478,2436,3201,3199,3159,955,1756,148,849,2978,2634,1692,2366,3043,3185,3198,2899,3170,1198,3166,3200,3099,1568,2733,3167,3202,2261,3203)
ppi<-c(3193,3189,2815,3124,3191,1381,1718,2267,2585,3190,3182,2917,627,1303,854,242,3000,2908,2231,1671,3028,3197,3135,2296,3185,845,3178,3131,2918,955,2859,2925,3202,1264,3199)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000027"
rlt[mytot,2]<-"YLR221C"
ori<-c(3028,3057,2585,2677,661,3165,2958,3119,3173,3075,2808,3080,2805,3155,2821,603,3197,404,2971,3200,2897,3002,1978,1478,1890,2901)
ppi<-c(3157,3169,2903,2741,226,3171,2951,3185,3199,3016,2984,3067,3138,3194,3088,1155,3188,2331,3049,3200,3020,3045,1423,856,2815,2956)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030490"
rlt[mytot,2]<-"YLR222C"
ori<-c(2234,3149,3108,3130,3150,3162,3085,3163,3180,2570,3159,2483,3089,2259,3155,3144,3104,3131,2922,3046,3023,2971,3107)
ppi<-c(2995,2952,3166,3083,3154,3176,3081,3128,3203,2245,3151,2606,3028,2704,3087,3010,3109,3146,3071,3092,3164,3135,3133)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006348"
rlt[mytot,2]<-"YLR223C"
ori<-c(519,1011,2491,132,1909,2504,2531,2683,450,2461,1664,2662,1132,2300,1613,208,2676,2401,1247,2823,2913,2840,1720,1181,336,1051,2527,2769,2595)
ppi<-c(1436,379,2163,1960,1445,2583,2450,1965,224,2311,969,1990,658,2152,1614,683,2723,2080,753,2283,2325,2933,1738,1608,112,612,2190,2535,1800)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000070"
rlt[mytot,2]<-"YLR226W"
ori<-c(1791,938,1362,1761,216,104,1635,2283,2499,2428,2091,379,2949,1688,2994,1101,2850,1414,2058,2532,816,2897,968,1452,1114,2276,2257)
ppi<-c(2236,1450,717,1124,1135,2069,1817,1732,2257,2001,1038,1537,2874,1703,3059,1997,2636,1712,1812,2562,306,2639,1479,1471,994,1975,1704)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007124"
rlt[mytot,2]<-"YLR229C"
ori<-c(1492,231,1490,891,1252,1753,551,997,79,916,2148,467,287,1576,1180,674,617,3108,711,1990,297,2244,1897,2765,1131,3064,239,1114,1622,2091,1444)
ppi<-c(2712,1353,1151,750,1477,865,2171,2161,420,415,2440,976,2706,369,1295,2170,1236,2832,345,1472,129,2570,2178,2811,2420,2692,404,2731,2825,1731,1035)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007131"
rlt[mytot,2]<-"YLR234W"
ori<-c(2892,867,1163,1180,2242,566,814,1118,2346,2837,2780,410,1136,2491,2841,2567,2124)
ppi<-c(2901,648,2290,1956,3050,2293,298,268,1771,2756,2479,419,3140,2280,2954,2688,2769)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YLR240W"
ori<-c(2242,1204,2419,20,1313,1087,1117,491,675,380,2827,1692,1272,1729,1064,733,2230,1103,1401,1567,352,3153,2479,196,117,977,2883,421,3152,257,1108,663,1407,1441,60,1100,1657,2630,3196,483,1627,2539,131,1504,2984,1084,997,1881,878,629,245,2688,1449,2387,617,1,1004,1315,1271,1502,1306,2502,2108,434,1038,2254)
ppi<-c(1803,2505,3202,1,2186,528,1179,2589,1463,543,2651,2315,2114,2089,2508,915,1854,1201,2362,941,2101,2972,2056,600,318,1220,2570,2395,2968,1203,2706,243,1632,512,65,1043,2392,2835,3189,792,1008,2667,1238,799,2453,2971,1110,2464,2289,1264,124,2405,1016,1562,2568,802,1858,583,695,2138,1387,2536,2262,1417,1216,1890)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006623"
rlt[mytot,2]<-"YLR240W"
ori<-c(2866,2419,1653,2515,2037,2772,499,22,2837,3132,2289,2156,1673,3100,3190,2919,1171,607,2332,142,2703,1859,1264,1153,2947,3176,2750,1037,2270,2118,1947,1129,182,1058,994,2310,3098,2278)
ppi<-c(3055,3202,989,2727,1468,2223,1750,735,2819,2534,2017,2011,1960,2897,2905,2973,1432,229,2279,26,2938,2164,472,1087,3064,3135,2815,1456,2856,2318,2076,1398,1313,2407,1642,3201,2909,2955)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YLR248W"
ori<-c(1710,2470,1036,2341,1523,1867,461,1128,3055,1495,218,95,2400,221,735,2402,812,541,2560,1439,2412,2259,2417,570,2013,1634,660,2520,99,3044,3023,1371,3003,288,1273,2149,2033,1617,1441,1394,1622,1231,3034,1504,976,3012,2723,2934,496,1414,1420,2544,2240,917,2254,2327,2644,1608,1984,2772,1043,490,3130,1183,2739,903)
ppi<-c(1021,1999,253,1710,1948,1674,481,1658,3007,1907,1242,1265,2405,2245,2010,2445,424,1507,1819,863,2158,2366,2678,1253,1789,1453,2034,2719,748,2713,2424,673,2206,66,1226,2169,2297,1535,1132,1528,1352,385,2486,719,2377,2706,2667,2436,2313,1643,573,2545,1937,264,2264,2338,2215,826,1254,2596,1443,1792,2709,1860,2520,520)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006414"
rlt[mytot,2]<-"YLR249W"
ori<-c(3107,3137,3125,3169,3203,900,3173,3177,3190,3197,2078,3148)
ppi<-c(3201,3202,2824,3115,3199,89,3200,3083,3197,3195,1589,3203)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006457"
rlt[mytot,2]<-"YLR259C"
ori<-c(3149,3178,2502,1073,2965,3041,2119,2811,1559,3168,3176,3163,932,80,1037,998,2468,2463,424,1310,3203,3035,3197,2552,3151,2459,3142,3173,2852,1208,2513,3194,3198,2335,3179)
ppi<-c(3123,3189,2427,2761,3023,3148,2538,2432,1208,3145,3137,2994,1729,758,1358,443,1999,2795,1805,1536,3127,3100,2985,2458,3084,2212,3182,2872,3025,638,2366,3201,3198,2167,3103)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0045944"
rlt[mytot,2]<-"YLR266C"
ori<-c(1677,3198,2214,346,1962,159,1375,235,832,1247,1710,64,1527,2387,1268,273,1178,1855,1909,2361,1638,802,224,2456,1294,1329,1064,96)
ppi<-c(1371,3196,1745,82,1407,74,740,357,530,827,1917,4,1404,1876,507,841,2000,1962,1867,2126,2200,420,678,2091,755,627,462,606)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006888"
rlt[mytot,2]<-"YLR268W"
ori<-c(1724,1134,2984,727,1474,1449,3031,142,839,343,3128,3043,2851,1912,230,3067,2463,1645,2613,1031,239,1704,1092,241,1124,879,709,2026,2210,2464,2934,3176,1463,635,2037,3173,2635,224,2621,844,261,1901,875)
ppi<-c(1190,575,3019,1607,938,2506,3077,650,585,2858,3020,2868,2787,2708,91,3081,2592,3088,2336,2974,2582,1375,2373,592,622,1044,3108,1410,1420,3045,3085,2827,1408,1761,2154,3044,3061,1858,2626,2964,121,3142,3094)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000398"
rlt[mytot,2]<-"YLR275W"
ori<-c(2384,1252,819,7,2079,1838,1203,2247,2719,1194,2149,3118,2057,2779,2709,1715,1096,2264,1581,1966,3140,2268,2043,3012,2472,1782,1450,1650,3122,1917,3089,1373,2295,1962,3043,981,2106,403,803,2710,2978,3010,1746,2802,3070,2543,2729,2342,2590,2221,918)
ppi<-c(2008,635,2679,11,1900,2874,1938,2026,2777,2738,2697,3152,1227,2620,2540,911,477,1936,626,2325,2954,2191,2559,2677,1915,1633,1267,1224,2386,1361,2982,1494,2492,1240,2376,2105,1570,816,446,2596,2667,3136,2591,2869,2473,2049,2682,1838,2078,2736,3102)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000027"
rlt[mytot,2]<-"YLR276C"
ori<-c(3043,3065,2674,2452,398,3124,2893,3098,3130,3082,2737,3066,3055,3159,2440,1677,3182,838,3058,3152,2488,3000,1842,1050,2000,2920)
ppi<-c(3147,3175,3024,2236,129,3144,2904,3176,3195,3037,2990,3010,3188,3199,2922,2833,3152,2490,3105,3198,2440,3068,1186,535,2798,2942)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006365"
rlt[mytot,2]<-"YLR276C"
ori<-c(2713,3153,2909,3121,3043,3065,2857,1298,3150,2981,2673,3124,3164,724,1341,2706,3190,3191,3144,3148,3098,2977,3038,2737,3076,3197,2720,3159,3170,3161,2819,1813,3112,2662,2185,2983,3143,2794,2655,3203)
ppi<-c(2813,3149,3074,2924,3147,3175,3099,319,3190,3030,2450,3144,3168,2297,705,2818,3122,3082,3132,3124,3176,3061,3129,2990,3141,3155,2651,3199,2793,3065,3109,1446,3156,3095,1775,3055,3136,3135,2929,3201)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006348"
rlt[mytot,2]<-"YLR288C"
ori<-c(804,3157,2333,974,2459,1692,315,2892,1190,676,1367,2628,2802,2007,2981,773,482,1443,764,2858,3176,2204,2563,2270,1510,141,2361,1867,2838)
ppi<-c(1948,3165,2258,2202,2240,1155,716,2612,544,338,673,2541,2432,2219,3039,3084,852,798,557,2953,3015,2241,2368,2995,624,111,1890,1486,2490)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006413"
rlt[mytot,2]<-"YLR291C"
ori<-c(2639,3043,2889,3135,2175,1196,3072,1772,3054,2764,2416,2343,2834,3203,2230,2582,3039,2897,2675,3085,2593,2666,1815,1156,2508)
ppi<-c(2918,2905,2996,2904,1225,755,2585,2612,3126,3157,2646,2336,2946,2889,1872,2914,2805,2964,2768,2806,2284,2691,726,563,2707)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007015"
rlt[mytot,2]<-"YLR313C"
ori<-c(244,134,108,485,509,1290,2888,830,1844,168,265,1342,1886,332,455,132,3045,334,2694,689,210,3091,1949,125,2517,2168,2152,1719,2166,570,2094,1918,2297,259,724,716,2006,608,529,151,867)
ppi<-c(653,2382,2895,981,294,1158,2780,490,2794,787,203,2503,2247,156,2246,95,2651,1034,2757,527,2543,3031,2074,747,3027,1612,2648,2282,2825,136,2872,2304,2868,1317,874,1744,2769,2533,2215,1772,2758)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007124"
rlt[mytot,2]<-"YLR313C"
ori<-c(220,302,753,2587,948,2892,1844,1861,2089,2569,3123,168,2122,2291,2526,1563,268,540,1398,60,730,3091,2097,22,1227,2879,954,2006,2998,287,2005)
ppi<-c(2932,1283,442,1349,1952,3058,2794,2179,1702,1950,2647,787,2869,1087,2991,2185,744,2598,667,36,305,3031,2864,1133,2909,2592,862,2769,2903,1119,1069)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YLR314C"
ori<-c(2181,928,1084,2254,605,171,288,2970,1966,2675,2111,40,1837,1073,254,1606,731,711,1308,3187,47,775,385,200,2971,152,2449,888,2722,2898,1617,3189,34,3079,2726,1388,314,388,2583,2706,2987,1725,3055,2631,2203,1957,2833,1808,2087,2653,2269,2984,895,146,2450,2402,2014,1704,487,2719,2960)
ppi<-c(2361,2261,551,2809,326,721,147,2426,1922,3199,986,14,1802,800,868,1086,1587,2555,2278,3146,1163,544,1087,120,2678,257,2213,1791,2335,2834,1829,3179,258,2981,3159,2428,174,233,2823,2731,3077,1769,3132,2434,2051,1974,2958,1239,2432,2776,1615,2360,589,975,1491,2753,1370,1963,254,2792,2646)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000282"
rlt[mytot,2]<-"YLR319C"
ori<-c(2110,1816,995,1649,2688,2447,893,3109,2429,1867,2806,1887,1777,2307,2180,1433,596,3184)
ppi<-c(1730,1044,1982,883,2787,2591,560,3196,2206,1454,2599,855,982,2586,1919,927,299,2327)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006970"
rlt[mytot,2]<-"YLR319C"
ori<-c(2727,175,189,2673,2124,622,1193,3046,2159,919,835,1532,2207,294,2108,3119,2605,3161,2069,875,1552,2048,564,1642)
ppi<-c(2726,975,294,2913,2581,606,2539,2432,2832,1113,536,2761,2522,1010,2294,2474,2926,3184,2468,2485,2323,2797,1873,2289)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007015"
rlt[mytot,2]<-"YLR319C"
ori<-c(2613,2843,3147,1666,1710,2466,2347,2673,2997,1104,2338,2042,938,780,108,2157,1532,575,2982,849,1220,2689,1877,726,2487,1938,3076,2742,3129,1429,2942,3073,2605,914,1359,1374,2091,1552,1339,1642,117)
ppi<-c(2818,2769,2241,1525,1106,2035,2846,2913,2946,1311,1833,2729,2685,484,2815,1925,2761,1019,3079,379,2864,3014,1987,871,3167,1504,2915,2425,2765,670,2400,2837,2926,2144,1496,1769,2722,2323,2442,2289,2470)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007131"
rlt[mytot,2]<-"YLR329W"
ori<-c(1954,2924,2104,2760,1813,3112,2996,1661,250,1458,1687,505,2059,791,677,1645,2722)
ppi<-c(1719,2747,2245,2853,898,2190,3109,1436,502,1312,1326,471,2505,2018,314,1449,2750)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006970"
rlt[mytot,2]<-"YLR332W"
ori<-c(1806,2485,1541,381,44,496,3159,3091,613,457,1919,2515,200,422,80,1388,1100,718,2534,1841,476,350,1929,1131)
ppi<-c(2295,2831,2398,229,2283,436,2657,2503,1535,918,876,2641,2406,2813,1239,2620,2647,266,3182,2436,2311,1541,2253,2002)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YLR332W"
ori<-c(2162,1711,362,320,2058,1512,3117,857,1770,1300,238,1093,2698,2956,1208,2291,957,450,3159,2227,3148,1990,2817,1345,2641,3147,1766,2370,1521,1428,1275,2660,366,2586,3100,200,139,218,201,2749,2116,1744,3060,1053,400,2703,1135,3194,1388,2805,1487,417,2995,1980,440,2534,1234,2488,2261,3126,1967)
ppi<-c(2803,2443,174,2683,1412,1043,3149,2120,1515,2471,565,434,2670,3035,1321,2955,1358,2136,2657,2137,2910,1285,2586,674,1560,3151,2661,2627,2709,692,797,2772,453,2592,2623,2406,76,115,338,2759,1447,2651,3137,3202,418,2469,604,3198,2620,2965,872,1837,3082,1769,3203,3182,754,2876,1563,3197,2953)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006406"
rlt[mytot,2]<-"YLR335W"
ori<-c(2576,2187,2678,2871,142,1233,2865,2902,2613,2296,2175,709,704,2268,2670,3010,2030,2345,2089,1506,1038,2758,1266,2102,913,1028,3199,2599,1595,2270,3176,2180,2822,2525,2348,1169,2460,3045,1569,1512,620,254,1742,1307,2514)
ppi<-c(2858,1460,2763,2490,94,2627,3123,2966,2954,2052,2317,1890,2390,2224,2732,2644,1221,2598,2526,1006,555,3004,992,1617,2945,924,2801,2720,2230,2076,2694,2319,2810,2333,2761,610,2580,2805,2338,2448,339,27,1656,2994,2375)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006611"
rlt[mytot,2]<-"YLR335W"
ori<-c(2576,2678,2871,142,1233,2782,2296,2175,704,2268,2670,3010,2345,2089,1038,2938,3199,2599,2270,3176,2348,2460,3045,1569,1307)
ppi<-c(2858,2763,2490,94,2627,2663,2052,2317,2390,2224,2732,2644,2598,2526,555,2937,2801,2720,2076,2694,2761,2580,2805,2338,2994)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000027"
rlt[mytot,2]<-"YLR340W"
ori<-c(2751,1782,2492,3166,3193,1263,1724,1332,583,1378,2746,2579,1738,1387,2772,2983,240,665,2629,1391,2771,355,3032,471,3112,426)
ppi<-c(1704,963,2714,3170,3191,748,1570,417,694,926,2467,1955,1014,1209,2753,2937,251,783,1967,1212,2989,145,3072,184,2755,225)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006414"
rlt[mytot,2]<-"YLR340W"
ori<-c(3160,3176,3203,3200,3202,605,3084,3185,3174,3197,1532,2677)
ppi<-c(3188,3192,3173,3202,3196,33,3184,3179,3190,3201,1753,3178)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006897"
rlt[mytot,2]<-"YLR342W"
ori<-c(2005,2341,1602,1778,1900,1918,836,673,2283,1168,2863,2596,505,2362,1326,1414,1361,2979,639,2724,948,689,2235,867,1802,2794,2072,2799,1576,736,2006,2798,707,2957,1885,2485,2925,1112,904,2941,1906,3187,2900,2076,3133,2906)
ppi<-c(2355,2932,1327,1074,1422,1382,1094,382,2614,2307,2776,2550,2409,1593,1378,1683,2328,2936,1499,1937,307,2795,1446,1806,1791,2751,2843,2842,2616,461,1099,2394,1178,2544,2473,2214,2853,2438,1539,3014,2549,3121,1900,2406,3010,2931)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YLR342W"
ori<-c(2895,2005,1171,2224,1113,53,2236,2977,2618,2258,1533,121,2664,1684,1962,1769,1855,2223,2596,3200,1396,1095,1147,256,2532,1557,2771,2774,2102,1754,1421,3173,49,3043,3041,689,113,154,616,3054,3090,3065,2943,2794,2209,2636,2948,3016,2072,3123,2006,2957,2729,710,1539,2485,2941,1916,1297,3198,2906)
ppi<-c(2681,2355,558,3202,570,424,1597,2413,2590,2958,1212,27,1990,1080,1905,2380,2446,2718,2550,3167,2242,766,1372,161,2259,963,2819,2762,1731,886,793,3144,282,2969,2988,2795,72,91,884,3003,3137,2945,2652,2751,1540,2575,2998,3096,2843,3162,1099,2544,2923,1585,1602,2214,3014,1563,581,3200,2931)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006606"
rlt[mytot,2]<-"YLR347C"
ori<-c(3145,402,107,166,1084,3066,3054,1613,1951,342,1745,1791,1539,1289,2388,607,744,2320,967,2553,2862,3165,621)
ppi<-c(2762,709,283,203,2424,3101,2859,2582,2881,2706,1286,2671,2800,1799,2798,1546,2064,1940,409,2210,3025,3140,563)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000282"
rlt[mytot,2]<-"YLR353W"
ori<-c(3191,3196,2628,729,2507,1181,931,83,4,1846,2255,3198,1211,2190,1609,1080,1562,2612)
ppi<-c(3176,3201,2089,262,1887,1374,236,2,1602,1281,3161,3203,547,2606,947,545,923,2621)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007124"
rlt[mytot,2]<-"YLR353W"
ori<-c(2810,2628,1866,1632,1706,147,1407,1977,122,364,243,2442,2255,821,563,449,2846,3161,1617,3123,1777,776,2873,9,1072,1163,262,2401,548,884,880)
ppi<-c(2896,2089,1573,1693,2227,133,2569,1954,642,113,2301,2566,3161,80,1283,1497,3076,3126,987,3150,1142,2693,2923,1432,2387,2342,379,2795,2706,1341,564)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YLR362W"
ori<-c(2989,2715,2827,284,759,2212,1495,225,1451,1318,1346,1370,2378,1966,2815,813,1197,1165,950,493,345,3049,2222,235,796,672,2614,716,2933,424,473,1378,972,898,313,64,1957,2018,2972,1767,165,2502,1938,3119,732,739,1123,1977,1820,2256,1153,1509,848,2532,1704,28,277,1119,2660,1910,2002,1320,2583,2548,26,2479)
ppi<-c(3087,2331,3146,2,2060,1644,1372,2014,2774,1259,1662,1781,2349,1915,2580,1123,3160,1108,1595,255,1986,2844,2395,779,940,1068,2722,2617,2664,1086,1749,866,2200,234,202,371,3123,1770,3068,1066,74,2721,3125,3178,311,2003,1202,2446,2138,2798,515,1620,621,2956,2675,1121,2866,463,2693,2286,1845,2895,2725,2763,827,1879)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007124"
rlt[mytot,2]<-"YLR362W"
ori<-c(2405,2694,1974,2625,2154,1632,1991,980,2421,2098,1146,98,2614,2260,601,2081,2835,228,2972,3168,165,329,958,986,1074,602,1150,2821,187,2583,2307)
ppi<-c(2746,2172,1273,2523,2328,700,1924,2589,2813,1466,2320,502,2722,1250,1752,2872,2756,643,3068,3180,74,2841,2639,3062,1914,1363,661,2542,2119,2725,2521)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007005"
rlt[mytot,2]<-"YLR368W"
ori<-c(2596,477,471,376,1054,1553,763,3189,1198,2278)
ppi<-c(2578,707,230,515,687,1335,597,3192,1928,2140)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007015"
rlt[mytot,2]<-"YLR370C"
ori<-c(2535,984,1251,2090,1327,3133,3072,3120,768,2284,1044,2831,1624,1404,57,1470,586,2711,2260,2232,320,751,2902,2681,1868,1834,2780,2451,2162,2425,2719,2211,1757,1482,721,1799,1150,2939,1289,207,2741)
ppi<-c(2590,2373,1971,1989,778,3198,2719,3149,797,1822,461,2313,2516,681,1432,997,2261,2565,2286,1060,1898,1821,2880,2657,2016,2468,2659,2031,1870,3033,2376,1883,2345,1215,297,1573,2145,2451,2247,1464,2548)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006897"
rlt[mytot,2]<-"YLR371W"
ori<-c(2574,2369,1389,768,2048,543,729,2595,3044,1338,2097,1633,565,785,2834,2261,2935,3134,2207,2802,2405,3093,716,2874,1744,2746,3146,2652,2088,1340,1732,384,14,3115,760,2850,2730,1120,1224,3034,2870,3161,2693,2987,2474,2573)
ppi<-c(2479,2697,666,444,2237,427,1000,2536,2489,2456,2956,2227,1499,1172,2219,2195,2522,2814,2052,2083,1458,2551,355,2721,1446,2959,2565,1827,2270,731,1021,1796,711,2700,400,3203,2412,2499,1924,3103,2607,3048,2626,2444,2108,3098)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007015"
rlt[mytot,2]<-"YLR371W"
ori<-c(3144,2574,2878,2817,768,2060,2900,2595,1473,1483,1404,2935,2165,2784,402,679,2819,1838,1900,2405,806,2429,1974,1744,1882,2848,2927,1956,2652,336,2088,3115,2975,2170,2910,1120,1354,2870,2987,1457,2573)
ppi<-c(3011,2479,2705,2830,444,2028,2951,2536,1247,1604,878,2522,2602,2837,1998,307,2677,1398,2597,1458,2735,2543,2191,1446,2431,2555,2967,2007,1827,185,2270,2700,2654,2264,3038,2499,2559,2607,2444,1898,3098)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YLR371W"
ori<-c(1186,2574,2793,2878,959,1332,618,3183,1208,2053,2950,829,3085,1395,207,2945,1779,2592,1633,3053,268,1285,137,1404,815,63,2976,735,3194,2620,2391,2795,1582,2839,2921,3093,1811,1396,1617,1932,2857,2683,1052,2746,2114,2161,2674,1826,3146,2335,1732,3115,1670,2255,1455,2850,3034,2166,1631,2953,2573)
ppi<-c(1496,2479,2848,2705,514,1312,286,2471,1210,1997,2573,194,2958,776,772,2986,1522,2502,2227,2988,1340,416,576,878,1391,96,2449,2031,3184,2797,1721,2793,1535,2841,2646,2551,1194,885,1910,1858,3005,2172,3202,2959,1669,2491,2792,1122,2565,2248,1021,2700,991,2475,3055,3203,3103,1893,1346,3144,3098)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007264"
rlt[mytot,2]<-"YLR371W"
ori<-c(1968,475,2900,1166,1473,1671,939,831,610,1404,2217,402,806,1354,683,1740,2573)
ppi<-c(2168,1352,2951,2181,1247,2777,804,981,370,878,1532,1998,2735,2559,224,2340,3098)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YLR390W"
ori<-c(2702,1184,1758,320,12,1886,1826,1639,1252,216,2881,1546,729,2155,2345,2752,758,3121,1840,2901,1392,429,2370,773,2248,343,1918,43,691,504,2720,1865,2157,1972,378,334,2848,2624,2542,1168,2282,2438,295,2190,2272,1510,2690,1876,1347,2228,1420,2592,1793,52,2480,2612,1527,721,766,1445,2554)
ppi<-c(2932,2150,1190,2215,18,1717,1053,2211,1187,1684,3095,887,1191,1686,2170,2926,1212,2449,2140,2858,1783,148,2496,383,1723,325,2225,1729,724,201,2670,1095,1761,2181,2176,1902,2911,2610,2372,1232,1791,2542,779,1800,2489,2033,2857,1056,2100,1394,858,2630,971,688,2481,2204,824,1687,370,550,2451)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0009060"
rlt[mytot,2]<-"YLR395C"
ori<-c(2267,3197,3124,1955,1897,2895,2790,3137,3082,3071,1547,2521,354,3189,2577,2426,2953,2343,3166,1356,994,1767,1929,2685,2816,3050,2864,2211,1411,1905,2186,2409,2082,3037,1859,2745,1727)
ppi<-c(1698,3198,2943,2404,1145,2988,2914,3066,2990,3132,863,2483,159,3177,3060,1980,3047,2653,3094,1537,332,912,1114,2554,2923,3096,2929,2083,717,1164,2297,2138,1936,2989,2123,2443,1781)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030437"
rlt[mytot,2]<-"YLR399C"
ori<-c(2071,2395,2253,961,2703,1973,1576,2829,2889,333,176,172,1451,155,2777,2264,2915,162,1933,2975,1132,475,1759,2917,2404,2542,3023,1720,2523,60)
ppi<-c(2425,2209,2481,2322,2378,1310,1640,3138,2594,666,1855,2139,1269,2019,2151,2563,2720,312,1376,2437,2056,230,1673,3041,2289,2754,2698,1121,2819,989)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006365"
rlt[mytot,2]<-"YLR409C"
ori<-c(2736,3068,2849,3191,3094,3142,3147,2938,2203,3108,709,3102,3148,1219,3176,2931,2238,3126,3062,2847,3041,3093,3180,3201,3189,3080,3139,3112,3144,3076,3009,2643,3152,2778,2907,3159,3123,2380,2926,3019)
ppi<-c(2833,3082,2905,3078,3110,3196,2966,2900,2118,3057,2503,3108,3158,2453,3186,2766,2893,2944,3087,2969,3168,3022,3180,3130,3203,3095,3152,3188,2732,2971,3185,2313,3126,2950,3088,3161,3147,3086,2847,3042)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006623"
rlt[mytot,2]<-"YLR417W"
ori<-c(2751,1608,1265,2403,2455,2449,487,2129,1200,500,1771,3090,366,1819,1806,1879,2741,2648,2227,1126,2884,2922,2083,2885,3149,2653,2811,2591,2303,2410,2715,2314,248,1023,751,2424,2296,2434)
ppi<-c(2619,1023,855,2483,2111,2217,1327,2448,1047,1931,990,3089,2352,2206,3203,1692,2852,2067,2031,830,1773,2708,1686,3109,3143,2157,2881,2682,2383,2380,2461,2561,1287,3202,398,2618,1917,1946)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000398"
rlt[mytot,2]<-"YLR424W"
ori<-c(1229,1013,1223,901,159,1151,2536,1883,2675,2519,2389,835,3013,1417,3162,1450,2664,1233,784,3081,1854,1784,2898,1499,2313,2365,1753,1894,1737,2569,3002,2508,1211,2760,1185,922,841,510,936,2905,2987,2204,1412,2585,1793,1928,3055,548,3157,1243,905)
ppi<-c(1711,558,2505,479,804,2502,2439,2534,2354,2353,1456,449,2983,1678,3195,749,2704,893,285,2232,1400,2458,2519,1960,2852,2463,1329,1807,3131,3085,2962,2074,1023,2901,2527,2049,915,816,720,2906,2282,2922,2807,2218,1992,2319,2808,224,3127,2133,2183)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007015"
rlt[mytot,2]<-"YLR429W"
ori<-c(2666,1562,2379,670,2214,2793,3184,2741,1126,2746,307,1397,3125,1117,1093,2749,1075,3113,1915,286,340,2093,1526,3183,1448,2532,2657,1935,2916,2973,3035,2606,1546,1178,1627,2781,862,2463,1169,1274,1860)
ppi<-c(2811,2654,2239,907,1747,2873,2867,2897,1207,2825,152,2465,2676,703,1657,2906,2701,2870,2023,246,2276,1790,2082,3150,1888,2306,2784,1691,2866,2854,2656,2861,2282,1031,928,2481,2485,2464,2209,1666,2361)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006365"
rlt[mytot,2]<-"YLR430W"
ori<-c(1119,1470,181,2235,2112,3141,2489,2541,1410,2271,363,1852,1861,2393,2826,1539,759,2291,2665,1332,1959,2361,3016,3078,2729,2079,2466,1489,1989,1311,1884,2964,2824,3199,2609,3088,2486,2139,1842,1280)
ppi<-c(557,1043,1903,2077,1432,3160,2894,1609,933,1877,2264,982,1217,2674,2936,2662,2147,2060,3094,2800,821,1905,3091,2914,3070,2051,1911,1268,1751,1463,1127,3110,2555,2981,2600,3140,2406,1435,1120,622)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YLR433C"
ori<-c(1371,404,1324,1543,1306,1612,1090,2352,1134,2251,2680,376,2518,2437,1747,1081,809,1244,799,2787,1685,1950,1847,1148,1468,1944,3101,1969,1506,2172,1308,1609,1542,2096,1181,533,1670,1756,1078,3202,1618,2054,2705,2614,2217,1460,2262,2407,1744,1779,2568,724,2735,1590,1152,1546,2123,3031,501,2971,1456)
ppi<-c(1278,2171,684,2413,745,2180,596,2165,1108,2290,1641,440,2137,2208,1702,2101,1490,2355,2403,2927,2448,2389,1793,699,1498,1345,2618,2733,1426,1778,1329,1445,1170,1819,2261,2499,1064,1027,1014,3125,1173,2256,2025,2544,2076,1518,1861,2034,2715,1116,2597,2689,2800,1576,937,1923,1560,2633,85,3098,2553)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030490"
rlt[mytot,2]<-"YLR435W"
ori<-c(1166,3022,3005,2906,3145,3150,3053,3130,3155,1528,3128,2766,3134,2401,3179,3163,3031,2975,2888,3122,3062,2848,3046)
ppi<-c(2136,2961,3167,2973,3150,3178,3086,3065,3200,736,3101,2916,3049,2670,3087,3064,3005,3068,3053,3165,3170,3098,3075)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YLR436C"
ori<-c(2970,2848,2485,2956,1888,592,1550,3113,2601,1235,2238,393,2608,632,1322,734,1384,2454,1583,2871,1441,1022,948,347,2882,260,2641,1786,1539,762,3196,2416,719,2639,812,1101,1010,1639,1031,2840,1660,3066,1082,3106,2907,2753,2413,1314,2873,2225,2451,3031,892,645,297,2732,2702,2085,1248,3193,2019)
ppi<-c(2504,2635,2516,2825,1195,1210,920,2674,2525,2473,2850,186,2209,351,1318,995,2107,2684,2109,2864,1859,372,1381,177,2689,264,2934,2187,1219,537,3184,1136,807,2084,2733,2135,559,1023,986,2815,1066,2715,1660,3164,2718,2817,2572,607,2282,1505,2178,2822,557,1374,268,2830,2701,2647,314,3203,2542)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YLR443W"
ori<-c(1780,697,274,368,1360,105,2081,1391,2308,2717,1047,268,2664,1120,1135,2788,935,447,2389,2915,2401,2693,2214,1964,1918,2277,3117,1583,2015,2929,90,2599,115,3178,2927,1132,13,14,84,3200,1518,1930,3203,3172,1908,1821,2587,1218,1040,3086,118,257,3185,2467,241,2245,982,3046,1682,3132,2197)
ppi<-c(1763,2492,157,2572,738,606,1475,2332,1950,2553,1459,68,2607,715,1461,2708,1715,2464,2229,2828,2730,2959,2472,1314,1858,1843,2947,2608,3062,2990,154,1653,323,3078,2325,2477,18,19,283,3152,853,2552,3130,3179,2856,1043,2538,648,2467,3140,72,1940,3187,1669,1008,2183,610,2954,795,3201,2324)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000027"
rlt[mytot,2]<-"YLR448W"
ori<-c(3200,3036,2941,3191,2563,2976,3198,2939,2862,3053,2209,2995,2980,3090,3143,1949,3119,3181,2587,3149,3019,2361,3133,1533,3138,1993)
ppi<-c(3195,3154,3062,3188,2430,3033,3127,3135,3129,3057,2750,3119,3143,3168,3182,2639,3052,3161,2798,3175,3113,2078,3164,862,3163,873)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006979"
rlt[mytot,2]<-"YML007W"
ori<-c(1119,1249,1784,1991,2276,2530,2595,2091,1454,1967,1999,1961,1676,1204,3113,2894,2421,1571,2857,2737,2243,2754)
ppi<-c(1650,490,1141,1504,2479,2281,2672,1567,1655,1323,1933,1945,969,1232,3063,2852,2432,1532,2162,2853,2304,2760)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006888"
rlt[mytot,2]<-"YML012W"
ori<-c(3042,2507,1675,1911,2470,1809,1570,2814,1067,2076,2097,127,2861,2946,3078,1995,412,3193,766,2332,2949,2241,3087,2589,1757,2983,1650,2940,1489,2951,944,2745,1651,2988,2107,2325,2094,3188,3122,2480,1539,3170,3101)
ppi<-c(3074,2032,1943,1862,2214,2638,1765,2624,703,1794,1850,953,2898,2435,3101,1159,313,3203,2416,1897,2706,2043,3106,2851,1072,2927,3187,3040,1036,1802,2238,2109,2795,3050,3021,1811,2757,2746,3058,1853,870,3194,3169)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006367"
rlt[mytot,2]<-"YML015C"
ori<-c(2252,2696,1674,1671,2805,2546,2340,1340,1694,3175,238,2608,2982,2298,2719,2893,957,2158,1636,1088,1418,2143,2444,2738,1735,1083,1434,2823,3176)
ppi<-c(1384,2556,1348,1688,2635,2710,2458,498,1767,2687,1533,2506,2634,2714,2744,2629,2151,2187,3154,512,810,1302,2689,2921,1392,1152,1155,3038,2281)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000122"
rlt[mytot,2]<-"YML027W"
ori<-c(1720,976,1962,2640,1460,2249,207,1091,1181,1214,64,665,1995,1519,980,829,1529,249)
ppi<-c(2122,509,1035,2695,1340,1739,452,304,215,1864,1792,427,1230,1977,1327,1676,1762,1021)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006979"
rlt[mytot,2]<-"YML028W"
ori<-c(1515,2271,2290,1895,1440,2159,3054,1616,2992,2679,915,2134,1849,2194,2942,3021,2864,1437,2163,2946,3180,2399)
ppi<-c(1088,1499,1725,1342,2460,1768,3116,1225,2987,2652,2073,1547,1160,1475,2853,2558,2920,1634,1766,2834,3052,1953)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006606"
rlt[mytot,2]<-"YML031W"
ori<-c(1932,1538,2963,3035,2755,2750,98,1537,1714,2893,1886,2196,2489,1520,1451,687,2820,3128,2278,3046,1965,852,2018)
ppi<-c(2405,1454,3054,3059,2398,2749,2130,2529,2445,2383,1224,2418,2373,1422,2121,2489,2307,3170,1710,2931,2106,1272,1583)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000070"
rlt[mytot,2]<-"YML034W"
ori<-c(1202,604,2795,480,811,29,3109,646,2914,3193,2894,1205,1843,1902,1788,3072,2968,2920,969,2778,2807,3136,3167,3066,240,2772,1246)
ppi<-c(2564,2087,2779,897,2265,2958,2757,2327,3172,3194,3027,2476,1829,2626,1382,2858,3079,2592,2573,3058,3060,3115,2633,2548,454,3041,2540)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006623"
rlt[mytot,2]<-"YML041C"
ori<-c(2339,2656,1444,529,2369,206,1825,2020,1286,401,2819,2625,1745,769,639,3090,2422,1616,2041,1974,1876,2874,2810,3172,2344,1217,2059,2878,2726,2928,2858,2412,167,1528,148,317,993,1106)
ppi<-c(2326,2139,1646,2206,2864,1504,1600,2058,1369,1915,2894,1727,2207,1527,1290,3030,2762,1234,1847,2038,1705,2091,2862,3100,1935,1445,1443,2974,2386,2420,2453,1631,1179,1839,386,741,1086,2111)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000398"
rlt[mytot,2]<-"YML046W"
ori<-c(2578,1503,2662,2234,2551,1403,1685,3049,2777,2283,409,1664,1278,2843,2568,1866,2367,3035,2368,866,2887,2838,2392,1856,2137,2793,1380,2450,2065,1385,2339,2310,3180,543,3131,2142,890,1557,2209,2829,1176,1259,2211,588,2434,1995,1364,1498,2150,314,485)
ppi<-c(1599,880,2144,1794,2606,2449,2106,2631,2327,2511,237,959,1307,2724,2616,972,1748,3049,2033,1936,2919,2653,2784,2554,1671,2889,1237,2405,2350,512,2570,3193,2961,318,2240,2402,2225,1338,1668,2625,2321,945,1871,1073,2110,2729,2503,814,1184,1818,2103)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006457"
rlt[mytot,2]<-"YML048W"
ori<-c(1841,2347,292,208,851,3184,2095,2682,2363,2157,992,2799,359,1628,3078,2864,1088,2479,2680,1689,3097,2161,2703,628,1114,2657,2326,2418,415,1188,1847,1458,2030,384,1207)
ppi<-c(1932,1676,1639,1533,362,3113,1000,2245,1674,2319,779,2796,621,1439,2655,2893,1130,2559,2723,1494,3051,1768,2945,1915,1405,2477,1215,2167,1403,617,752,2028,1206,321,1897)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000398"
rlt[mytot,2]<-"YML049C"
ori<-c(1592,3128,2196,1141,1712,679,1949,108,118,335,792,478,2418,1045,84,2768,2400,1928,3088,1316,593,2333,1878,542,322,736,1739,1380,181,534,105,1680,537,300,120,260,465,1573,1433,600,41,1430,2682,680,1688,1188,291,247,354,1973,1047)
ppi<-c(2208,3153,3193,650,2227,2577,2071,2630,2261,2486,341,205,1559,2240,38,2818,1866,1423,3088,2548,840,2777,2788,2418,839,1872,1117,2571,1398,260,395,2646,599,111,1813,1880,2202,1597,940,718,2557,633,1999,968,2408,1847,1041,56,495,2358,2032)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007005"
rlt[mytot,2]<-"YML058W"
ori<-c(2216,431,2880,2994,2449,1526,2624,1424,2532,1143)
ppi<-c(1854,200,3011,2814,1171,2234,2523,1041,1953,991)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000723"
rlt[mytot,2]<-"YML061C"
ori<-c(3140,2304,1119,1073,2105,2419,2602,2908,1735,405,431,78,3163)
ppi<-c(2809,2692,2118,1181,1719,2179,2517,3035,1152,779,439,290,3173)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006406"
rlt[mytot,2]<-"YML062C"
ori<-c(2045,334,2900,2906,1132,505,1188,513,1472,787,2046,1677,245,1047,2658,2935,1914,1957,1655,2009,1900,1094,1448,2541,1341,1909,2978,3014,2060,2510,2316,1381,2655,2601,1398,1959,3067,1177,914,68,1400,635,782,159,2833)
ppi<-c(1549,203,2899,1908,613,2048,303,1239,727,1605,2545,2054,1912,1732,2989,2636,1057,2493,1913,1655,1206,811,1019,2927,1533,1397,2491,2521,2760,2343,2277,2606,2479,2221,1307,1347,2468,1312,2347,2207,813,249,935,1482,2533)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006261"
rlt[mytot,2]<-"YML069W"
ori<-c(400,2970,1270,1166,2172,2570,2736,2184,464,1282,3160)
ppi<-c(520,3020,2433,1273,1938,2399,2672,2370,1819,665,3201)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006888"
rlt[mytot,2]<-"YML077W"
ori<-c(2394,1117,1862,95,777,2086,2680,923,2659,43,2475,2470,2226,2245,937,3175,2698,2692,3005,1826,1639,1446,2173,814,773,2210,926,1702,759,2298,3034,3180,488,1854,3172,2325,2706,1844,2616,2194,100,2243,1523)
ppi<-c(2107,516,3199,521,452,2415,3200,1100,2995,3197,3202,1510,2851,2610,359,3052,2761,2156,2315,3198,2167,994,1779,794,376,2034,1675,1111,507,3203,2442,2662,299,1736,2414,1997,2651,2086,2636,3201,74,2421,2112)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006623"
rlt[mytot,2]<-"YML097C"
ori<-c(489,1155,1736,188,476,837,3031,2952,305,337,2703,2774,1632,39,6,1849,2767,279,2148,1600,1135,2000,2841,3042,1570,504,1342,2720,2458,2221,2232,1485,2031,1835,797,366,1165,2656)
ppi<-c(1592,484,2234,2263,1000,1574,2892,2507,614,1947,3009,2442,2441,1183,695,1865,2259,192,2247,692,1014,2550,2755,3017,1105,1282,755,2500,2809,2123,2343,2891,1561,2303,834,960,1134,2451)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006367"
rlt[mytot,2]<-"YML098W"
ori<-c(1907,965,902,3084,2708,1088,66,2583,2688,1376,662,3081,663,305,544,788,124,1322,1700,1005,1818,445,3127,1561,970,53,3200,2568,2125)
ppi<-c(1359,2591,800,3026,2729,2927,1946,3093,2265,2672,1930,2667,2633,961,979,1134,1443,692,3203,514,1174,84,2945,1776,2347,555,3102,1461,2432)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006406"
rlt[mytot,2]<-"YML103C"
ori<-c(3031,2654,2253,1789,1633,2166,1186,2676,1687,3189,1273,2308,2609,3147,309,775,483,1198,3036,2096,1509,2274,2403,1080,3092,897,2860,2927,836,3014,3032,564,300,2596,1439,2748,1360,2379,1365,2770,2421,1755,93,2570,2202)
ppi<-c(3105,2768,2501,2394,923,2236,879,2851,1181,2949,2408,2010,3202,2741,84,3054,135,2870,2435,1403,1214,1564,2758,1301,2832,1169,3097,2706,1574,2762,2551,2798,633,2682,1279,2670,2387,3203,3069,2381,1996,914,407,2845,1972)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006611"
rlt[mytot,2]<-"YML103C"
ori<-c(3031,2253,1789,1633,2166,3052,3189,1273,2609,3147,309,775,1198,3036,1509,454,2860,2927,3014,3032,2596,1360,2379,1365,2570)
ppi<-c(3105,2501,2394,923,2236,2811,2949,2408,3202,2741,84,3054,2870,2435,1214,1572,3097,2706,2762,2551,2682,2387,3203,3069,2845)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007005"
rlt[mytot,2]<-"YML104C"
ori<-c(558,764,1587,3164,2116,1008,2527,210,2045,1050)
ppi<-c(215,303,899,3188,1337,1621,2261,107,1839,1041)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006406"
rlt[mytot,2]<-"YML107C"
ori<-c(910,830,1271,1491,2456,1120,521,539,1421,664,1065,1982,2751,1895,457,393,286,955,2036,1437,1569,2063,3033,1508,3068,2944,1125,2042,1099,1369,1713,235,1244,974,1972,2600,549,1209,614,1500,2209,2593,1378,1275,1927)
ppi<-c(347,337,1192,1794,2281,2227,385,1490,604,1789,2128,2582,2462,1822,150,2131,115,2287,2313,741,836,1465,2976,1291,2155,2944,2176,2502,1411,2038,2291,1100,1184,1808,1671,2392,2261,1656,2369,2341,1728,1697,1208,1688,1887)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0009060"
rlt[mytot,2]<-"YML110C"
ori<-c(1552,2358,2892,2266,2903,3181,1927,1997,1588,2835,867,2716,239,1263,3179,2870,3008,3074,2226,2127,1925,982,2571,2438,3115,2913,2689,2603,2849,222,2468,3180,1122,2148,2097,1892,1802)
ppi<-c(886,1967,2863,2731,3005,3188,1301,1744,1397,2894,461,2807,136,884,3107,3092,3082,3163,2155,1576,1028,704,2656,2235,3162,3001,2622,2828,3028,656,2979,2999,1198,1692,2111,1455,2420)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YML112W"
ori<-c(320,2658,222,863,1748,1251,1024,1790,2571,685,1646,202,2639,195,133,2175,1857,1231,2744,1956,1942,1146,2261,317,1771,1574,1944,2101,687,2527,2975,1513,2931,541,1480,2246,1968,684,119,229,3052,745,1699,1159,3033,945,2635,1605,1071,1015,1496,1659,1091,1116,922,2985,2478,1967,2462,2338,1746,1278,1547,762,2994,680)
ppi<-c(200,2532,59,62,2409,921,852,2614,2820,783,1409,1587,2416,1572,1814,1727,1224,2257,2361,1362,2542,941,2507,882,1588,1573,2371,1977,1376,2541,2602,696,2512,103,3204,2042,1603,976,81,991,3121,267,1230,1175,3116,2097,2711,1874,2364,1502,737,1577,948,748,2125,2605,1808,1043,2626,2486,1557,1865,1332,1730,2754,1049)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006487"
rlt[mytot,2]<-"YML115C"
ori<-c(3101,2992,2426,2949,3068,2209,1481,3094,3007,2440,837,1023,1902,1092,1095,2010,3130)
ppi<-c(2292,3081,2813,3154,2973,2053,783,3147,3053,2140,994,252,2727,1484,3202,2067,2953)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0009060"
rlt[mytot,2]<-"YML129C"
ori<-c(3193,2455,2744,2560,3191,2384,2025,2944,3013,2196,2717,2152,70,2767,2825,3034,3027,2600,2770,1790,888,2419,3157,959,1376,2931,2238,2824,847,1847,508,1714,2535,1906,908,1394,3161)
ppi<-c(3191,1956,2853,2361,3189,1966,1433,2880,3073,1985,2794,1548,62,2928,2346,3171,3086,2859,2665,1786,639,1635,3162,1899,638,3034,1771,2906,300,1160,149,1977,2505,1168,2382,1402,2431)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006457"
rlt[mytot,2]<-"YML130C"
ori<-c(3176,3135,2508,2265,3184,3131,2516,2570,1800,3196,3193,3174,1232,385,906,2231,2513,2776,1654,1908,3148,3104,3197,3017,3189,3191,2320,3203,3125,1772,2415,3175,3199,2906,3202)
ppi<-c(3185,3178,2195,2939,3192,3145,2791,2272,1090,3177,3184,3000,1143,1429,1240,1307,1208,3015,2065,1795,3075,3158,3059,2687,3155,3197,1790,2950,2942,1104,1913,2956,3202,2881,3168)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006261"
rlt[mytot,2]<-"YMR001C"
ori<-c(1915,36,181,2214,968,950,10,104,473,3026,23)
ppi<-c(1987,65,3130,2034,1129,301,420,1209,2892,3054,555)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YMR001C"
ori<-c(2319,3149,2290,2637,1980,9,1134,40,1141,352,1412,347,3059,1100,470,631,2618,2214,2496,518,1921,2309,3174,69,2069,969,2025,977,1137,3114,1965,2531,3191,270,1052,1599,1069,979,624,142,2144,694,2639,974,2850,1161,2762,2190,989,3121,2276,134,2914,717,685,2081,2326,374,1172,2659,1674,1653,1748,1502,3171,683)
ppi<-c(2215,2780,1717,2670,3096,9,1184,2048,721,891,1748,3192,2265,2158,2915,1135,2397,2034,3024,280,1790,1932,2873,589,1615,1015,2886,1708,1367,3095,1711,2165,3023,106,631,1504,1664,857,256,2448,1498,231,1958,1369,2868,2286,1746,2115,2857,2871,1585,1019,3016,318,1713,1716,1993,139,613,2973,1781,2229,1396,2057,3124,460)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006623"
rlt[mytot,2]<-"YMR004W"
ori<-c(2533,2081,2486,198,1386,866,3073,2673,359,74,2188,2594,2409,512,287,2019,3120,2195,700,2015,1223,2546,2979,2730,1633,319,372,2402,2214,3012,2329,3119,127,2599,899,832,539,1578)
ppi<-c(2585,1080,2848,2246,1761,2559,2873,2676,809,1807,2057,2223,2397,1691,1647,1750,2960,1273,977,1788,767,2967,2649,2605,861,1043,203,1889,2582,2080,2407,2860,1416,2737,731,831,722,2519)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000282"
rlt[mytot,2]<-"YMR014W"
ori<-c(2318,1926,798,3058,2852,3055,1532,704,2484,1466,2882,1994,3183,2014,1707,2776,2342,2547)
ppi<-c(2296,1226,2038,3114,2836,2803,809,48,1804,1533,2301,926,3184,2144,2714,2824,2124,1936)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0045944"
rlt[mytot,2]<-"YMR021C"
ori<-c(2039,741,2403,3071,335,2587,1767,2766,381,1454,545,1357,2299,186,353,783,1010,2596,2374,1294,2321,1703,2901,1441,221,2214,124,3189)
ppi<-c(2750,370,1706,3115,214,2631,1162,2642,442,1062,1539,578,1871,222,134,1224,562,2353,2206,1831,2370,1306,3049,848,74,1599,79,2991)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0009060"
rlt[mytot,2]<-"YMR030W"
ori<-c(165,1702,2483,1727,1461,2998,1794,575,353,1379,362,2427,1572,63,2482,1622,2287,1970,1419,2137,1212,1451,1514,1766,3184,2791,1310,3109,740,885,2907,3075,119,1503,2252,2275,796)
ppi<-c(96,963,2807,2168,786,3080,1163,727,401,734,207,2317,948,112,1784,537,1948,1609,1292,1803,761,1014,881,2089,3192,2913,687,3161,269,1235,3102,2901,482,709,2023,1935,2431)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0045944"
rlt[mytot,2]<-"YMR039C"
ori<-c(644,699,2620,1067,1507,3084,1105,2486,1509,2267,1561,839,1484,1595,1252,1413,1732,2378,655,2814,2768,1520,3049,1193,1008,1794,815,2272)
ppi<-c(236,334,2299,668,885,3126,468,2320,831,1852,1665,197,1102,1235,576,1627,1194,2023,821,2215,2241,676,2864,571,431,1049,434,2292)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0045944"
rlt[mytot,2]<-"YMR042W"
ori<-c(2760,2801,469,1498,1229,644,2037,328,779,782,3027,1796,2502,1364,2500,12,1709,2159,694,977,1416,2919,521,2925,2693,1063,2964,2434)
ppi<-c(2845,2885,1300,969,705,291,1270,545,945,507,2762,722,2462,2404,1838,762,810,1792,1695,1801,1886,2892,1139,3015,2757,493,2967,2430)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006406"
rlt[mytot,2]<-"YMR047C"
ori<-c(2744,850,2639,2590,195,725,1537,2058,952,1725,2419,1376,465,2025,3146,3157,3105,1683,1050,2471,1219,1986,2222,2499,1616,2284,3055,2581,1096,3123,2523,1349,2935,2502,3053,1402,697,2537,1846,1220,2252,315,1914,422,3166)
ppi<-c(2853,348,2804,1793,118,1986,671,1579,332,2252,2500,1977,1883,1900,3195,2363,3171,2322,2339,2825,642,1294,2033,2266,1585,2938,2314,2437,2462,2667,2557,2476,2880,2162,3194,1356,162,1912,2300,2444,1780,48,2005,1787,2606)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006606"
rlt[mytot,2]<-"YMR047C"
ori<-c(1306,2492,2811,1466,2419,1424,465,1783,2025,3157,1635,1683,3055,171,2476,818,2797,1324,2962,2736,422,1648,3018)
ppi<-c(2421,2509,2944,1147,2500,1533,1883,1904,1900,2363,1083,2322,2314,298,1940,2202,2761,1238,3112,2867,1787,1679,3088)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006611"
rlt[mytot,2]<-"YMR047C"
ori<-c(2744,2639,2590,195,725,682,1725,2419,465,2025,3146,3157,1683,1050,1219,3190,3055,2581,3123,2523,2502,1402,2537,1846,422)
ppi<-c(2853,2804,1793,118,1986,1859,2252,2500,1883,1900,3195,2363,2322,2339,642,2919,2314,2437,2667,2557,2162,1356,1912,2300,1787)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0009060"
rlt[mytot,2]<-"YMR056C"
ori<-c(2591,2965,1648,1645,488,240,2884,2143,1624,910,157,1632,1592,1899,14,523,438,179,1579,2793,2437,2064,1783,89,900,2596,1900,62,1826,941,142,82,1453,1355,944,2815,3039)
ppi<-c(2701,3063,1533,2362,212,133,2958,1654,1373,338,99,1007,968,1144,319,17,191,38,1523,2896,2366,1071,1036,1460,401,2635,1260,74,1214,423,39,745,1338,530,2624,2971,2445)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030437"
rlt[mytot,2]<-"YMR063W"
ori<-c(3022,81,276,112,827,1255,712,168,215,335,358,668,2401,1227,377,1434,2514,549,2087,2171,2525,912,3183,803,1826,2911,1286,3203,2884,2704)
ppi<-c(3135,976,408,2164,2768,696,1621,42,1455,657,1531,2289,1798,2075,2093,1028,2975,1360,1389,1932,2555,438,3131,979,1225,3017,1864,3200,2643,2827)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006402"
rlt[mytot,2]<-"YMR080C"
ori<-c(2343,2399,3137,435,596,438,2440,1737,859,2074,3139,2837,1964,2542,3093,1313,2556,2923,2191,376,2583)
ppi<-c(2953,2973,3191,1912,2319,2055,2302,2762,1834,2512,3083,3027,3175,2158,3063,1199,2366,3005,1607,2200,2637)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006606"
rlt[mytot,2]<-"YMR091C"
ori<-c(2950,1289,2053,2639,1790,1694,160,1161,419,1339,2449,2541,2063,329,1520,2286,3201,1234,694,2609,1936,1935,452)
ppi<-c(2283,1510,2001,2920,1524,1407,1832,1737,2247,2239,1850,2257,2228,361,1998,2212,3079,2478,258,2617,2337,1762,369)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006970"
rlt[mytot,2]<-"YMR092C"
ori<-c(1996,2101,770,2990,2924,2026,1047,1026,1579,2053,2449,1247,3013,1960,248,2360,1942,1476,2029,2245,2153,2775,1666,1234)
ppi<-c(1742,2245,867,3116,2570,1383,2858,1946,1943,1143,1435,2444,2542,2690,767,2523,2507,828,2032,2865,2492,2779,2264,2368)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030490"
rlt[mytot,2]<-"YMR093W"
ori<-c(1361,3194,3142,3172,3178,3179,1954,2979,3019,2907,3158,2060,2426,1176,3139,3113,3010,3177,2914,3101,2703,3143,3156)
ppi<-c(1800,3056,3148,3203,3176,3167,830,3011,3141,2969,3138,1833,2349,1525,3047,2955,2916,3162,3074,3151,3132,3189,3152)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000723"
rlt[mytot,2]<-"YMR106C"
ori<-c(117,1098,2871,2404,1090,1606,1772,873,3134,1571,256,3077,106)
ppi<-c(1115,2060,2525,1976,935,893,1839,253,3150,1027,417,3203,614)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006897"
rlt[mytot,2]<-"YMR109W"
ori<-c(3118,2450,2473,163,2176,1207,3177,2114,3142,1944,2649,2783,58,2030,1846,2168,3026,2356,1664,3123,2969,2654,2722,2184,890,2024,3193,1610,1443,560,2612,819,92,2624,386,1940,2898,1007,488,3197,2633,2754,2452,3108,1204,2738)
ppi<-c(2720,3009,2706,135,2646,828,3120,1738,2395,2820,2972,2640,335,1291,1361,1759,2657,2053,1608,2055,2920,3149,2911,1414,870,1482,2880,1739,2005,150,2807,2602,1103,2678,92,2409,2622,1564,622,3199,2849,3082,1999,2336,1266,2652)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006970"
rlt[mytot,2]<-"YMR109W"
ori<-c(2206,2176,526,2114,1944,291,2783,2219,2726,2182,2372,2964,2654,3095,1388,2669,3189,3117,1940,2956,2633,3171,1427,1984)
ppi<-c(1812,2646,530,1738,2820,285,2640,2208,2618,1548,1667,2967,3149,2737,1996,2671,2872,3181,2409,2936,2849,3049,2123,2422)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YMR109W"
ori<-c(1546,3118,2927,2468,1744,1755,195,3163,2795,2055,2371,2793,2637,790,454,2445,2469,1599,2783,1927,954,1511,293,3125,1406,185,860,659,3162,2695,2149,2502,2368,1782,1100,2654,2167,1887,1299,1629,2743,2265,1388,2024,3193,1247,1705,2845,1123,394,2612,2624,2610,2608,674,1940,3197,728,1597,2967,2738)
ppi<-c(1369,2720,2982,2466,1084,2906,97,2715,2740,1647,1942,2593,2567,390,909,2802,2213,2498,2640,1495,1713,682,781,3180,1801,186,2613,2559,3167,2666,1628,1552,2643,1745,2024,3149,1575,1276,1650,1471,2894,1857,1996,1482,2880,917,2743,2966,494,147,2807,2678,2662,2854,535,2409,3199,1492,910,2987,2652)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000398"
rlt[mytot,2]<-"YMR125W"
ori<-c(3000,1000,3047,2201,1923,482,2076,1149,1544,2337,1314,275,605,316,426,1059,924,3064,2422,2305,2535,2477,1826,1683,84,454,2859,136,644,496,107,3162,1564,1823,1247,535,755,2532,1397,958,1640,2417,1474,2196,1658,1233,1468,68,55,2972,1828)
ppi<-c(3141,429,1768,1303,1957,1853,2633,1836,2245,2390,618,289,929,3051,191,358,471,3085,2833,2198,1821,2351,2090,2560,622,2216,3034,733,2340,523,374,2775,1376,1118,2269,1684,2635,2800,1222,1079,2308,1296,1937,2045,2425,1816,3203,63,280,2551,2228)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006406"
rlt[mytot,2]<-"YMR129W"
ori<-c(3192,3058,2661,2701,984,1750,1785,2683,2899,3091,1438,2592,1824,2796,2374,2027,2269,2887,1898,2102,1641,2787,1144,1216,2765,1313,3110,687,1378,3191,3194,1684,1936,3121,1243,2287,1346,2646,2469,2194,2999,513,2731,2716,1979)
ppi<-c(3195,3141,3084,2326,525,2548,1903,2667,3001,2983,2637,2122,3178,2744,1756,2900,1316,2717,2564,1424,1327,2682,1030,1360,2847,957,2907,2487,1651,2987,2515,2133,1757,2822,487,3203,568,2530,3148,2450,3085,83,2706,2960,1896)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006611"
rlt[mytot,2]<-"YMR129W"
ori<-c(3192,2661,2701,984,1750,2262,3091,1438,1824,2796,2374,2027,2887,1898,1641,885,3110,687,3191,3194,3121,2287,2646,2469,2716)
ppi<-c(3195,3084,2326,525,2548,2691,2983,2637,3178,2744,1756,2900,2717,2564,1327,2451,2907,2487,2987,2515,2822,3203,2530,3148,2960)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YMR139W"
ori<-c(2869,2131,1944,1436,564,1543,445,59,2479,910,290,670,2635,1048,891,1422,1791,582,2113,2037,1165,2281,2414,361,1636,759,165,2189,812,1920,2785,2388,2666,57,863,789,1912,2497,3088,2103,481,2069,2991,1823,2853,1814,1649,2160,570,2530,2714,2707,2273,444,2699,1053,914,389,1979,2422,1127,325,3165,1374,1685,542)
ppi<-c(2901,2023,808,313,1658,976,556,2045,1728,699,1035,1720,2491,2245,1611,1584,1036,573,1302,1221,2166,1982,2455,857,1625,705,1924,2821,1158,1873,2410,2182,1840,19,273,1019,2087,2693,3156,1372,336,1769,2107,984,2965,2159,1359,2231,2773,2796,2682,2543,1996,238,2577,1897,1876,158,1224,2047,1386,1801,2943,1592,1577,122)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030437"
rlt[mytot,2]<-"YMR139W"
ori<-c(1078,2367,2904,2676,2368,3005,3170,2953,2339,24,226,2014,1608,6,2572,3026,2185,612,96,3193,1153,799,1663,2992,2919,2896,1473,1661,2530,102)
ppi<-c(485,1867,3035,2989,1827,3059,2999,3082,1322,275,1205,2688,832,1708,2494,2945,1311,368,70,3036,1696,396,1502,2950,2975,2935,828,1187,2796,1164)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006413"
rlt[mytot,2]<-"YMR146C"
ori<-c(3150,1572,3109,2949,2914,1041,2430,2990,2976,2609,1695,1063,2232,2809,1048,2451,2923,2644,2931,3203,3006,2588,2104,75,3058)
ppi<-c(3200,1623,3157,3203,3095,791,1535,2887,3066,2738,2754,1176,1680,2636,641,2581,3201,3181,3199,2953,3176,2935,1331,48,2489)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006487"
rlt[mytot,2]<-"YMR149W"
ori<-c(2370,3192,2668,868,2891,3086,2433,1755,3052,163,393,2293,2012,2988,2755,2015,2190)
ppi<-c(2197,3189,3203,1734,3202,2947,2247,939,3199,96,756,2851,1641,2843,2372,1635,2006)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006406"
rlt[mytot,2]<-"YMR153W"
ori<-c(2764,2068,1132,1533,2246,786,1331,1484,1272,1858,1095,1172,1590,2819,1818,367,756,2725,1041,1513,2083,2220,719,444,2371,1081,2156,3008,2687,2625,2549,240,2496,1550,864,1371,580,1950,2637,785,2533,2846,2750,3124,1328)
ppi<-c(2968,1316,2998,2522,1949,2693,954,1427,767,2874,2359,2366,2809,2504,1409,2291,236,2518,2235,827,1856,2171,710,779,1944,894,2403,2404,2541,2657,2217,1687,2465,2116,234,2672,149,2391,3152,2271,2644,2645,2753,2232,1968)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006611"
rlt[mytot,2]<-"YMR153W"
ori<-c(2764,1132,1533,2246,786,2373,1858,1095,1590,2819,1818,367,2725,1041,2083,1887,2156,3008,2625,2549,1550,1371,1950,2637,3124)
ppi<-c(2968,2998,2522,1949,2693,2350,2874,2359,2809,2504,1409,2291,2518,2235,1856,2274,2403,2404,2657,2217,2116,2672,2391,3152,2232)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0009060"
rlt[mytot,2]<-"YMR165C"
ori<-c(42,1345,1111,941,633,2836,317,1558,203,1895,870,2164,1307,1097,2963,1499,1442,1746,2340,1431,1848,181,333,2695,2775,2141,2315,2849,252,3007,51,2950,968,2872,3146,2272,95)
ppi<-c(21,670,1102,3194,282,2972,185,1204,279,1464,442,1693,735,749,2323,380,761,1188,2022,1324,1675,105,200,2667,2965,1646,1847,3043,116,3159,713,2677,1007,2744,2481,2748,1560)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007131"
rlt[mytot,2]<-"YMR167W"
ori<-c(1483,1603,2059,1502,1713,1386,1865,2212,2255,850,582,982,2103,1548,2304,48,2756)
ppi<-c(1586,1033,2543,1455,1828,2300,1146,1105,1911,839,650,514,1686,2393,1827,785,3204)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000122"
rlt[mytot,2]<-"YMR182C"
ori<-c(1262,3059,1198,1052,877,2837,219,3067,662,850,1611,1069,1746,1671,2265,3053,426,1120)
ppi<-c(2367,3077,782,667,603,2673,327,3145,119,1303,1801,501,1004,2374,1899,2572,962,777)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006457"
rlt[mytot,2]<-"YMR186W"
ori<-c(3188,3182,2733,2049,3186,3003,2116,2453,2610,3195,3198,3191,574,583,12,1681,2792,2932,1597,2585,3163,3185,3203,2901,3197,3184,2319,3193,2625,1898,2169,3174,3201,2187,3200)
ppi<-c(3189,3192,2512,3157,3187,2985,1409,2325,2288,3162,3175,3048,428,705,789,465,2507,3135,2135,2116,3109,3188,3131,2592,3185,3194,2016,3200,2791,1242,1262,2961,3204,1528,3183)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000070"
rlt[mytot,2]<-"YMR190C"
ori<-c(1371,2009,3183,2775,2594,1734,2966,1296,2129,1646,2673,2075,1744,2531,2246,3052,1934,1995,1742,740,2798,2842,3150,2482,1840,3190,1640)
ppi<-c(2762,2222,3193,2805,2266,2631,2062,2299,1215,1192,2891,2309,1534,2265,2043,2769,2681,2547,2251,788,2531,2958,2271,2162,1552,3174,2261)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000070"
rlt[mytot,2]<-"YMR198W"
ori<-c(1189,1598,2808,2917,429,126,3144,553,1733,2651,2789,1217,2179,1611,3021,3047,3086,1871,1606,3107,3171,2889,2202,2795,722,3196,1639)
ppi<-c(2687,1425,2894,3010,1056,2993,2977,1311,913,2093,3062,1537,1724,1442,3140,2888,3142,1678,1602,3163,3134,2828,1444,2592,835,3187,1443)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YMR200W"
ori<-c(2186,96,933,385,188,253,1033,2476,1813,1644,2585,27,2153,735,2192,1189,1006,2508,1068,3199,242,1385,858,14,2386,1665,3109,1554,2002,685,2279,2884,395,3174,2914,1541,498,682,1865,2754,2790,2854,2852,3185,2514,2257,1803,2211,3008,410,843,2004,2910,543,1536,3114,1079,2811,2220,3045,2750)
ppi<-c(1551,2242,553,2960,98,914,543,2475,1688,2728,1620,12,1714,409,1946,1646,2051,2500,2402,3142,1874,483,1854,20,1993,1070,2816,1959,1449,427,1181,2794,565,3117,2851,2509,292,335,1784,2634,2958,2733,2883,3197,2950,2102,2136,1698,3095,2385,400,1892,3043,1273,2904,2953,561,2444,985,3105,3017)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000398"
rlt[mytot,2]<-"YMR213W"
ori<-c(2592,1728,1539,475,1532,674,2627,3020,2207,817,2474,2838,1632,2552,2871,1201,1797,2153,647,2829,2412,2052,3076,511,2937,2823,3081,2708,2745,3088,3128,2901,2948,2622,3069,2422,2497,2487,1009,1332,3104,1308,358,2854,2335,2585,2670,2159,3082,2260,479)
ppi<-c(2566,1016,2752,161,1523,2422,3178,2543,2299,2361,2459,2948,1374,2862,2708,354,2879,1684,379,2188,2515,2357,2482,2249,3091,2270,3166,2685,2763,3186,3040,2713,2915,2730,1837,2362,2457,2853,1173,738,2369,1436,2174,2645,2641,2146,1737,2006,3150,2639,2156)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006606"
rlt[mytot,2]<-"YMR235C"
ori<-c(842,3085,1178,2003,3077,2534,1825,1118,1909,3124,1416,2529,2515,454,3051,1056,2274,2852,964,1329,910,1692,2600)
ppi<-c(2353,2988,635,2191,2852,2700,2204,2177,1890,2428,955,2480,2401,548,2681,2490,2726,2415,787,1387,1996,1713,2179)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007124"
rlt[mytot,2]<-"YMR238W"
ori<-c(1239,195,333,1607,926,2628,110,719,327,2634,3160,1278,337,749,433,1449,524,3001,1586,667,429,2990,3122,2874,1247,645,2746,299,2637,2642,2005)
ppi<-c(2796,1337,277,1094,1485,2660,978,2159,1058,2546,2648,1793,2779,59,1589,2003,972,3018,838,365,168,2756,2934,2724,2499,2651,2932,2673,2920,1819,844)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006979"
rlt[mytot,2]<-"YMR250W"
ori<-c(2909,1065,3111,3139,1613,126,3197,2132,3001,2710,827,3182,3053,1171,2987,2520,2755,2801,1208,2096,3072,2807)
ppi<-c(2924,459,3138,3179,1031,47,3195,1534,2926,2751,2468,3166,3048,1695,2969,2890,2636,2607,1753,1042,2725,2754)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006348"
rlt[mytot,2]<-"YMR263W"
ori<-c(563,2298,719,290,1745,1443,2208,3151,607,1521,2198,2592,2929,2485,2020,1270,1444,2641,2672,2964,3190,2797,838,1332,354,1004,1924,340,3186)
ppi<-c(1998,2092,1907,1999,1429,951,1497,2559,466,959,1693,2644,3119,2166,1930,2704,1371,2831,2835,3074,2291,2994,1581,2884,380,639,1656,248,3163)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0009060"
rlt[mytot,2]<-"YMR267W"
ori<-c(862,1037,2485,1438,2263,3173,1203,740,716,2582,761,2585,1024,450,3139,2069,2840,3117,1946,1099,1901,1418,1422,2926,3025,2716,2232,3192,1650,2859,232,2565,1425,2511,1794,2614,608)
ppi<-c(393,435,1967,2315,1826,3186,700,944,1146,2597,429,2722,557,369,2998,1135,2973,3153,1797,1271,1261,1162,798,2499,3114,2817,1757,3187,1231,3020,609,2833,1387,2656,2654,2408,2406)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000723"
rlt[mytot,2]<-"YMR284W"
ori<-c(134,1152,2853,1970,1880,2728,672,718,2386,1848,29,2962,62)
ppi<-c(1408,1259,2559,1917,2050,2764,1208,164,2438,1109,263,3203,303)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0009060"
rlt[mytot,2]<-"YMR293C"
ori<-c(2746,1688,1762,1782,1397,1021,2497,2431,3151,1047,2485,2550,2187,3142,1726,888,2107,2740,1994,836,498,1972,1711,2086,256,755,2234,663,2737,36,1372,943,1303,2977,692,1499,2809)
ppi<-c(2731,909,2442,1818,640,527,2338,2211,3160,417,2356,2638,1679,3153,1937,64,1923,2960,1746,1345,102,1041,1084,2271,89,377,1756,376,2797,30,1259,358,1251,2973,2043,1208,2298)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006406"
rlt[mytot,2]<-"YMR308C"
ori<-c(2528,1930,836,672,1712,2884,591,3172,786,2619,1435,2275,2650,2433,597,722,1621,1523,2952,956,2635,2214,2537,2983,2287,1514,1907,686,178,1786,2589,1382,391,1538,106,2686,1650,1272,2236,940,2653,395,2267,3055,1217)
ppi<-c(2819,1825,728,1746,1076,2236,479,2861,517,2489,2262,1764,2683,2102,202,2622,569,2724,2370,368,2417,1707,2389,2944,2816,809,2784,2088,1164,2050,2441,2648,590,2734,65,2686,789,2340,2602,2214,2658,83,1998,2803,1791)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006413"
rlt[mytot,2]<-"YMR309C"
ori<-c(3049,3098,3153,2965,936,996,3191,2880,3039,2885,3173,1962,3142,2848,1760,3059,2972,3138,2149,2787,3123,2242,942,940,2999)
ppi<-c(3200,2775,3151,3167,160,618,2920,2736,3022,2971,2458,2240,3158,2539,1543,2501,3198,3182,3200,2743,3169,2863,311,488,1892)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007124"
rlt[mytot,2]<-"YMR316W"
ori<-c(1377,1996,2262,2280,653,1364,316,951,2493,2773,1412,3080,559,790,522,2784,2321,380,652,837,2993,530,99,731,190,1131,2712,1153,2542,1625,1859)
ppi<-c(2516,2058,1785,1354,1114,558,637,2149,1418,2842,2148,3022,2407,65,954,2631,2209,780,361,435,3088,2277,2364,2059,1155,2083,2725,2438,2505,1838,1200)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000122"
rlt[mytot,2]<-"YNL025C"
ori<-c(407,3042,1623,134,866,264,209,2407,958,1038,1343,1632,1270,1647,3124,2511,1821,2030)
ppi<-c(1991,3112,965,92,843,455,735,1300,313,1197,2685,978,686,1563,3022,2143,3203,1638)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006897"
rlt[mytot,2]<-"YNL032W"
ori<-c(547,1197,596,995,79,699,71,743,1277,792,280,1323,1708,1173,2835,2256,848,2590,423,1947,15,2800,484,2064,1161,2964,2879,1573,1715,890,1489,1869,534,2455,1301,1150,869,2226,1791,2437,1276,3168,2764,1194,3176,1193)
ppi<-c(2166,1876,584,533,565,212,469,339,2127,2239,2001,1897,2432,1581,2318,2556,2350,2898,1769,2194,18,2597,441,2033,1102,3079,2224,2548,2725,3203,790,2086,1209,2590,487,1499,917,1639,2348,2744,2336,2830,1668,1996,3096,2365)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007015"
rlt[mytot,2]<-"YNL032W"
ori<-c(2620,547,2884,1242,995,1025,2903,743,855,1074,408,848,2481,908,1102,1827,2068,2230,1762,15,489,1913,1602,1161,1919,3125,2429,2879,3032,1799,1715,2455,2878,612,2577,2226,1523,1276,1194,2244,1193)
ppi<-c(2594,2166,2629,1298,533,947,2377,339,991,1223,210,2350,2639,406,1992,1120,2309,1869,2181,18,1851,2364,1973,1102,2162,2043,2007,2224,2947,1003,2725,2590,2306,784,2519,1639,2396,2336,1996,1925,2365)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006979"
rlt[mytot,2]<-"YNL036W"
ori<-c(2164,16,1701,2118,366,1585,2593,3039,767,1460,582,3172,1575,421,2856,1557,1203,3123,2011,469,3023,2918)
ppi<-c(1698,10,1032,1584,771,688,2652,2854,766,649,2667,3055,468,564,2859,2344,991,3131,1599,137,2831,3199)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006888"
rlt[mytot,2]<-"YNL049C"
ori<-c(2929,2040,1972,1797,3068,2255,1672,1590,2424,1169,2674,1614,2568,871,3162,2418,1692,1192,2714,2719,2059,308,3122,1519,1488,421,2807,2124,2653,1074,2446,2419,159,2766,2462,1945,2604,1291,2576,653,461,2264,3048)
ppi<-c(3024,1421,2121,2399,3131,1934,2271,1057,2386,1774,2044,1357,1825,2051,3133,1456,1326,3150,2616,2059,2474,384,3193,1534,882,763,3186,1550,2845,1722,1978,2112,204,3000,3035,2309,2205,2387,2092,1599,226,3067,3203)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006413"
rlt[mytot,2]<-"YNL062C"
ori<-c(2785,3018,3007,2734,634,1080,2998,2051,3071,2969,3006,2509,3135,2745,2613,2904,2769,3063,1294,2771,2972,2521,455,1206,2939)
ppi<-c(3111,2766,3047,2982,57,734,2842,2391,3131,2990,2668,2719,3142,2645,2800,2462,3082,3086,2997,2576,3046,2818,232,626,2518)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000154"
rlt[mytot,2]<-"YNL075W"
ori<-c(3151,3141,3003,3201,3126,3095,2736,2977,3142)
ppi<-c(3162,3085,3188,3203,2795,3071,2771,3158,3161)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006365"
rlt[mytot,2]<-"YNL075W"
ori<-c(2605,3085,2866,3174,3151,3044,2983,2584,2984,3141,1935,3009,3168,1376,2368,2579,3057,3156,3196,3105,2956,3003,3123,3045,3153,3201,3037,3188,3126,3095,3173,3125,2544,3008,2718,3147,3115,2977,2755,3142)
ppi<-c(2757,3074,3030,3060,3162,3165,3070,1712,3116,3085,2448,3026,3168,2389,1928,2814,3081,3058,3195,3100,3136,3188,3147,3040,3201,3203,3034,3198,2795,3071,3177,3199,2271,3068,2829,3156,3129,3158,2872,3161)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030490"
rlt[mytot,2]<-"YNL075W"
ori<-c(2591,3174,3151,3157,3102,3166,2328,3003,3072,2386,3201,2464,2833,1519,3095,3171,3047,3198,2895,3090,2977,3051,3121)
ppi<-c(3066,3060,3162,3144,3119,3169,1195,3188,3163,2016,3203,2792,2876,1537,3071,3055,2966,3172,3064,3115,3158,3149,3142)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007015"
rlt[mytot,2]<-"YNL079C"
ori<-c(2050,905,1074,853,2150,2391,2265,2602,2266,2543,1035,1962,2364,226,1585,2752,438,2511,1026,729,1265,300,2336,2942,620,1548,2535,405,2833,1801,3084,1924,555,2194,379,740,1231,1768,1081,1542,2566)
ppi<-c(1610,2296,2727,1009,1587,2404,2683,2662,1976,2682,507,2350,2470,120,1574,2862,2308,2679,1603,311,2065,2221,2343,2920,1894,2673,2677,1266,2759,2789,2133,2440,2227,2011,207,3006,2479,2428,2088,2317,2393)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006897"
rlt[mytot,2]<-"YNL084C"
ori<-c(1617,2875,32,1728,2613,495,2156,3156,1331,3124,304,1262,2456,1467,3142,1222,2782,1108,2928,638,1544,3045,1991,2876,2537,1477,2166,1507,1788,2066,947,2833,957,2323,2511,2020,10,552,2996,1361,2256,504,2612,2035,239,1935)
ppi<-c(2338,2604,176,1075,2743,239,1907,3174,2126,2460,2348,2662,1946,2642,2938,2536,2276,1638,2946,2916,507,2315,1223,3028,2449,737,1918,2331,1912,1206,538,1606,1478,1900,1437,1603,542,1650,2691,801,2394,1091,2270,2376,1096,2327)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007015"
rlt[mytot,2]<-"YNL084C"
ori<-c(2400,1617,1826,666,1728,3191,2929,3156,2727,1491,2062,2782,2175,778,378,1352,1183,1314,1715,1544,116,1822,3164,2537,1887,2785,2965,2166,3026,1788,3150,2323,1151,2534,695,552,1645,2256,2035,895,1935)
ppi<-c(2555,2338,2010,896,1075,3188,2720,3174,2771,1357,1368,2276,2387,434,1780,860,2306,1846,1681,507,1895,2477,3000,2449,2221,2483,3118,1918,2896,1912,3191,1900,2413,2375,335,1650,2371,2394,2376,2029,2327)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007131"
rlt[mytot,2]<-"YNL088W"
ori<-c(1338,2455,3161,340,1242,1429,358,976,1821,1411,1355,2593,401,1519,1179,412,343)
ppi<-c(1276,2601,2616,1499,634,2394,122,562,1398,1296,1369,2710,372,3007,526,1427,232)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006623"
rlt[mytot,2]<-"YNL093W"
ori<-c(3032,2229,848,2649,2493,2875,1444,1980,2435,2535,2950,3019,1059,2901,2293,1497,2826,1943,1679,802,3070,3129,2402,1625,1574,3058,2662,2537,1571,2959,2657,2417,407,1429,550,2151,1740,1222)
ppi<-c(2926,2518,721,2579,2747,2556,1864,1623,2149,2251,3000,2884,2560,2681,2554,1453,2586,934,1601,226,2809,2777,2443,1271,1360,2912,2599,2362,2644,2102,2524,2538,792,2386,554,2693,1251,1789)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006897"
rlt[mytot,2]<-"YNL093W"
ori<-c(2899,2483,3060,2392,2862,1810,2568,1960,1527,1990,2867,3068,338,2677,1975,1425,3082,1331,1934,2367,2643,2044,2142,2826,1739,540,1316,577,903,2135,1459,406,2264,2351,1923,2201,2260,204,2417,2191,1323,493,2680,3179,1134,1754)
ppi<-c(2277,2407,2889,1980,2741,1895,2463,1378,2125,2425,2399,2431,856,2306,2795,1989,2240,2267,2342,2160,2839,2279,2057,2586,1410,223,1312,2138,3203,2448,676,1713,1843,2641,2039,1730,1824,918,2538,1902,2383,1362,2183,2690,1518,2177)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006979"
rlt[mytot,2]<-"YNL099C"
ori<-c(30,1352,554,582,2012,3080,1583,1658,334,743,2724,1129,1093,545,3037,3018,2066,1015,1840,2910,1816,2473)
ppi<-c(212,482,270,225,2054,3105,878,1922,514,504,2748,856,775,972,2986,2395,1465,600,1622,3053,2105,1755)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0045944"
rlt[mytot,2]<-"YNL103W"
ori<-c(288,1460,2661,2042,658,1445,2408,1314,1172,3126,3057,1513,1659,2686,1338,703,2472,1298,3078,771,3202,2229,2284,1344,2900,2295,575,2791)
ppi<-c(138,870,1530,1226,378,882,1759,1199,810,3082,2629,556,1393,2840,634,1330,2301,1427,2917,853,2928,1539,2364,833,3089,1735,285,2952)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006897"
rlt[mytot,2]<-"YNL106C"
ori<-c(2938,1162,2974,1249,3046,3042,2384,781,2433,1769,2773,1777,2059,3083,734,2638,2163,2752,2562,3203,1390,1340,2532,474,654,2175,1910,2954,1518,587,1420,508,725,2457,122,1217,2162,37,673,2806,2987,1520,632,933,205,2343)
ppi<-c(2773,2259,3007,634,2975,3085,2091,414,2674,3043,2488,2963,1399,3084,2961,3044,2729,2943,3041,3006,728,2073,2346,1477,772,1624,1433,2178,1568,2781,523,2204,1265,2867,115,1063,1900,2012,2299,2880,2541,1506,1470,2242,801,2612)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YNL106C"
ori<-c(1592,2938,2416,2882,2742,1854,1103,1770,1936,1594,298,2273,2757,1734,771,2015,2279,607,1777,925,2601,2758,2137,2303,204,619,1012,2968,2156,598,3009,2045,2242,351,78,1340,1889,1154,718,274,1505,2835,1476,2175,1910,1268,3005,2755,26,2954,550,2457,262,2128,1665,1217,2806,656,898,1004,2343)
ppi<-c(1319,2773,2131,2214,2797,1813,498,2480,1700,2577,582,1656,2810,1044,1016,1521,2051,2370,2963,829,2583,2421,2254,1663,822,472,1974,2711,2293,151,2946,1042,1684,659,2056,2073,1173,522,818,564,855,2607,853,1624,1433,2058,2716,2838,10,2178,253,2867,120,2094,754,1063,2880,1748,398,940,2612)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006348"
rlt[mytot,2]<-"YNL107W"
ori<-c(2166,3022,1827,1469,2018,2446,1265,2145,678,862,1095,1624,1844,483,2004,1160,896,484,1556,2895,2191,2817,723,1633,828,688,2251,904,3176)
ppi<-c(1800,3048,2284,2568,1649,2267,1713,2018,270,449,477,1604,930,118,1935,852,1016,247,731,3089,2105,2702,1434,1672,223,420,2389,212,3084)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006406"
rlt[mytot,2]<-"YNL139C"
ori<-c(3134,2380,2401,2257,2873,2434,142,2750,1829,2801,840,3198,1459,3031,1593,667,2738,2900,2743,2564,3006,1941,746,2134,3094,1755,2162,899,958,3099,3127,597,713,475,1496,2396,2318,2395,3070,2452,2676,1458,1684,3105,1394)
ppi<-c(3184,2053,1783,2263,3165,1819,39,2786,2105,2715,1779,2405,2477,2815,835,2185,2480,2394,2638,2064,3106,1426,1123,1584,2972,1797,2534,2124,1761,2861,2401,1423,772,2313,527,2772,2711,2244,2978,2543,2305,1312,1374,2951,1822)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000398"
rlt[mytot,2]<-"YNL147W"
ori<-c(2107,568,527,724,837,1797,1502,2938,2703,1745,2405,2304,1401,1712,2843,373,868,1839,427,2565,1522,1306,2825,1358,3118,2906,2464,1118,2636,2905,3115,2263,2312,3139,2893,2722,2637,1316,391,1616,3145,1826,296,3082,1941,1511,3187,1922,3076,2916,1720)
ppi<-c(1603,252,2862,290,926,2781,2592,2464,2602,2700,1539,1732,1309,2615,2917,69,434,1135,153,2471,1408,2129,2686,2387,2945,2213,2012,1663,2181,3158,3077,2134,1579,3183,2151,2717,2277,1326,887,1638,3046,1403,1946,3033,2515,2223,2669,1084,3134,2977,2627)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006402"
rlt[mytot,2]<-"YNL147W"
ori<-c(2392,1235,3084,1797,2703,1745,676,1425,2343,1605,3193,2499,2161,3161,3101,1050,2460,1163,1194,1283,2064)
ppi<-c(2719,2454,3177,2781,2602,2700,2581,2076,2687,2450,2953,2777,2043,2543,2930,1383,1627,2445,447,2460,1438)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YNL154C"
ori<-c(1031,761,385,767,666,1287,2699,2738,371,3073,1477,2996,287,3052,3064,3098,1266,1899,718,2067,3183,733,816,2895,1081,3104,2266,1971,1645,1275,135,1942,326,3011,2334,1448,1609,1554,469,2470,977,1151,618,791,309,1735,924,926,276,241,2087,1655,2352,1786,2037,2333,1028,3007,1355,603,1892,2899,792,60,722,2648)
ppi<-c(480,2234,199,66,2445,841,2118,2155,526,3132,1342,2148,2459,2719,2406,3050,702,1481,1463,1543,2760,1318,2317,2706,1076,2991,2395,2702,1822,3137,1520,1107,1779,2976,1630,1400,1948,1599,372,2263,787,753,1423,1378,167,2400,1034,1455,2094,1644,1180,1623,2103,839,2666,2842,2394,3121,705,1850,2227,2571,1402,1155,1438,2064)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006897"
rlt[mytot,2]<-"YNL154C"
ori<-c(1195,1639,315,1611,1873,2814,1315,840,515,1518,1662,2348,1925,2255,472,612,69,1275,946,535,198,1221,2531,224,2188,2888,316,900,1905,2871,491,878,2515,672,2670,1135,427,2782,2184,1113,1025,1254,2187,1863,2269,1460)
ppi<-c(2233,2067,402,932,1584,3063,1273,474,3062,2273,1909,2438,941,2494,2376,1923,2145,3137,1959,1617,32,2116,1951,758,2028,2963,1162,2095,1717,2501,178,354,2647,2349,3145,1448,1017,2717,1569,660,2128,1096,2495,2020,2250,2226)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000070"
rlt[mytot,2]<-"YNL172W"
ori<-c(1234,1906,2955,397,2432,431,2873,231,2962,3171,2301,2821,398,2630,321,3169,2424,2507,685,852,3187,3142,2260,3030,355,2773,1182)
ppi<-c(2147,3201,3052,384,3198,2811,2369,3189,3152,3164,2095,3186,665,3199,132,2836,2812,3192,3191,545,3160,3184,2404,2521,622,2879,3197)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0016567"
rlt[mytot,2]<-"YNL172W"
ori<-c(1906,2682,256,2432,257,117,2605,231,2962,2821,1235,398,1553,2630,2936,386,2507,685,1105,2284,1374,1182)
ppi<-c(3200,2524,1975,3198,479,2077,2087,3189,3152,3186,2429,665,2190,3199,3072,674,3192,3191,258,1512,2042,3197)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0045944"
rlt[mytot,2]<-"YNL199C"
ori<-c(1137,510,2662,1550,176,1237,1312,2098,1904,2827,3068,1840,1688,902,676,1359,1500,2327,2957,1403,3202,2959,3115,774,1787,1767,217,3181)
ppi<-c(1070,271,1657,641,117,713,777,1578,1461,2422,2609,1088,1513,969,245,2235,1197,2251,2825,1408,2864,2943,2777,420,953,1190,111,2903)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030490"
rlt[mytot,2]<-"YNL207W"
ori<-c(1863,3103,2743,3042,3136,3195,2759,3029,3063,2113,3180,1921,2924,1683,3037,3078,3045,3083,2981,2587,1668,3203,3104)
ppi<-c(2294,2668,3034,3019,3142,3148,2885,3031,3186,1601,3120,1602,2946,1366,2851,2934,2988,3074,3113,2726,2982,3203,3127)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006348"
rlt[mytot,2]<-"YNL216W"
ori<-c(2500,2734,1899,2292,1252,1088,1155,2401,2872,784,445,2228,1785,1855,2971,2282,1740,1643,1975,1741,2387,1027,928,3057,2893,611,3067,2287,695)
ppi<-c(2067,2903,2861,1976,3187,527,2985,2562,2838,416,215,2348,860,897,2667,1845,2687,1124,1495,1965,2323,2257,586,2136,3051,367,2949,1081,746)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006623"
rlt[mytot,2]<-"YNL223W"
ori<-c(3093,2808,942,2525,2583,3085,360,431,3073,3163,2348,2458,1862,3202,3091,2310,959,1025,1619,985,3143,2371,1335,807,386,2833,2393,217,2787,1342,2100,449,390,497,2029,2064,3079,2570)
ppi<-c(3203,3121,985,2874,2040,2699,1442,1049,2985,2545,2349,1470,2190,3195,2745,2423,1122,309,1622,287,3136,2789,2269,248,543,2914,1919,476,3189,2158,2230,1020,1166,1528,1501,3048,2994,2729)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006897"
rlt[mytot,2]<-"YNL227C"
ori<-c(1121,571,1423,1238,1409,2856,1696,296,435,283,1193,517,1433,1412,175,399,60,762,293,403,831,462,1995,195,997,766,36,327,752,1062,2037,1135,2307,292,2464,419,1309,2414,908,581,405,199,798,613,1647,253)
ppi<-c(2153,1971,674,680,1636,3101,1533,164,2311,2238,2805,2279,1644,1801,1060,1722,2147,1403,1435,1516,211,2420,1423,643,943,363,1028,2421,1245,1810,1250,603,2799,2485,2546,1404,1315,1972,1568,326,2230,625,1753,1837,1583,2354)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006623"
rlt[mytot,2]<-"YNL242W"
ori<-c(1243,1018,1469,3085,1454,2247,10,268,1925,2732,1720,731,909,2374,3010,941,748,1150,2360,846,3008,2906,2178,1423,120,2785,2743,736,870,1609,2228,769,1340,621,713,3147,3157,2145)
ppi<-c(2315,655,1403,2597,1406,2091,1033,1205,1680,2414,1149,1223,2014,2604,3003,742,1125,488,2222,236,2800,3032,2305,466,355,2675,2714,484,2051,1984,2426,1796,2076,2017,619,2741,3127,2304)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006897"
rlt[mytot,2]<-"YNL243W"
ori<-c(3098,2956,2561,1813,508,1125,667,1479,2822,1924,2329,2214,1377,1738,3013,1932,2873,3162,2225,2989,1682,2410,528,2714,2993,3031,3138,2526,2399,2314,2263,2096,738,150,481,2342,2462,319,1901,3113,2004,3096,2143,2828,2825,2614)
ppi<-c(2769,2800,1844,1222,1496,704,1003,817,2486,2813,2838,2102,2369,1716,2179,2017,2851,2890,2055,2297,917,2691,236,2072,2937,3140,2974,2682,2059,2200,1633,1778,2870,1194,167,2771,2003,1282,2399,3150,2540,2934,1827,2513,2818,2585)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007015"
rlt[mytot,2]<-"YNL243W"
ori<-c(3192,3098,3107,2356,1813,1184,2896,1479,1394,1003,704,2873,1565,1798,275,1598,2383,2728,2555,1682,1329,2604,1318,2993,1749,2914,2425,3138,2661,2399,1989,2314,2581,2089,2715,319,930,2004,2828,2197,2614)
ppi<-c(3084,2769,2716,2191,1222,1098,2531,817,1185,1263,360,2851,2564,1348,1550,914,2576,2577,2819,917,2410,2403,1626,2937,2416,2665,2038,2974,2852,2059,1415,2200,2436,1904,2825,1282,2575,2540,2513,2078,2585)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YNL243W"
ori<-c(1486,3098,3008,3107,1819,1157,412,3187,1361,1984,2700,1282,2198,1082,845,2243,1711,2877,2214,3075,159,956,195,704,1448,219,1895,893,2847,1510,2487,3037,1746,2011,2275,2410,2391,1829,2692,947,3126,3102,399,3031,3138,2491,778,2903,500,2526,1928,2096,842,776,2799,2342,3113,1083,2012,2375,2614)
ppi<-c(1536,2769,3072,2716,1112,1456,205,2719,1288,2233,2239,506,2373,670,1149,2441,1595,2649,2102,3048,1406,285,853,360,1472,316,1813,1937,3097,703,1744,2840,1719,1659,2549,2691,1879,1264,2993,1099,3158,2281,1409,3140,2974,1767,2105,3009,237,2682,1207,1778,401,1484,2940,2771,3150,1441,1255,2637,2585)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006413"
rlt[mytot,2]<-"YNL244C"
ori<-c(2634,1581,1724,2474,2208,2851,1245,2847,1649,1872,847,2346,1263,3077,2389,2791,3081,2218,1250,3198,2822,3000,1361,302,2809)
ppi<-c(3193,1324,1381,3164,1285,2719,1062,2948,1009,1261,2891,2688,513,2526,2694,2345,3195,3202,3123,3078,2997,2328,420,136,2470)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006623"
rlt[mytot,2]<-"YNL246W"
ori<-c(2646,775,1990,268,2301,1458,2918,2771,8,538,877,2783,217,711,502,1950,2906,786,735,2675,908,2439,2818,2635,2589,2437,68,788,1839,3080,2874,2834,609,1605,913,385,802,652)
ppi<-c(2836,302,2209,2341,2215,1665,2344,2174,240,1896,871,2097,1956,1859,1079,2124,2073,225,953,2594,840,1908,3015,2514,2551,2816,710,392,2587,2441,2362,1893,1296,1932,963,762,874,2275)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006406"
rlt[mytot,2]<-"YNL253W"
ori<-c(1413,2695,663,633,1692,917,1645,16,2053,1426,969,2735,2555,2002,534,250,694,1711,1128,977,965,1530,618,124,2385,1526,351,1935,2536,1043,265,220,784,151,715,1790,2620,240,521,2704,324,1491,1476,1616,45)
ppi<-c(601,2845,1342,1560,899,1870,1019,1195,1206,2046,2192,2161,2289,2186,141,2077,137,2505,2372,558,414,898,624,311,2038,1338,2079,2440,2637,1748,2378,1271,811,1698,156,1680,2295,2333,886,2569,2510,732,1302,1832,1845)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006367"
rlt[mytot,2]<-"YNL257C"
ori<-c(2615,2643,1542,177,1001,1709,1222,950,540,2066,1575,1516,1396,388,609,1884,3016,2062,814,1048,1850,1609,1968,2016,2236,1149,1029,3057,2057)
ppi<-c(1524,1958,920,1339,1872,2120,2356,438,897,1997,1503,2136,1641,653,931,1425,2260,1112,1830,1741,1202,988,2438,1800,1519,1107,1579,3165,2390)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006979"
rlt[mytot,2]<-"YNL259C"
ori<-c(535,2900,1811,1770,2603,2522,2643,732,1834,958,3120,1134,1860,973,3073,2986,3039,2151,673,3001,2940,3043)
ppi<-c(564,3003,1134,1060,2738,2790,2655,1569,1686,669,2616,799,1471,1017,3029,2388,3064,1646,1367,2757,2667,3130)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006888"
rlt[mytot,2]<-"YNL263C"
ori<-c(2803,2487,1099,2233,2593,1565,1249,2756,1785,2484,1855,56,1012,2276,3110,1250,404,3182,256,1094,2999,1053,2984,2911,1196,2181,1983,2347,2157,2781,436,1417,2193,3070,433,3158,2021,1553,3174,2861,2162,3133,3105)
ppi<-c(2816,1968,2059,2073,2434,2751,1787,2878,1068,2042,2087,235,1007,2673,3118,879,254,3145,2398,1886,2917,1022,2951,3044,595,1982,2989,1721,1312,2044,2261,2009,2405,3000,2618,3191,2048,1293,3115,2093,1252,3016,2918)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030437"
rlt[mytot,2]<-"YNL267W"
ori<-c(1713,91,85,330,715,1326,1633,22,1215,659,1253,1233,105,861,921,1370,2462,2420,1632,1349,2161,2758,3041,355,1154,1788,3199,1581,2834,2588)
ppi<-c(1184,597,203,1972,2216,754,1610,32,2914,920,1406,2740,328,2011,2533,1266,2223,2038,1002,1439,2130,2869,3003,586,670,1257,3198,2347,2313,2602)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006970"
rlt[mytot,2]<-"YNL271C"
ori<-c(1424,1060,1069,1648,1149,401,2442,2728,2051,1720,2842,2875,3144,2676,958,2150,3184,2431,735,2241,2678,3118,258,1890)
ppi<-c(2027,1325,1064,1421,2584,333,2839,2492,2193,1329,2780,2979,3021,2902,1264,2632,2991,1809,1519,3075,2690,2765,1702,2664)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007015"
rlt[mytot,2]<-"YNL271C"
ori<-c(2387,2001,1922,2054,855,2558,1869,1648,2693,509,2579,2140,2500,3031,1157,355,2875,858,1990,2486,345,3060,3085,1636,2231,2676,1888,3128,1634,2937,226,993,2799,976,2170,1613,2650,2678,3038,1890,2533)
ppi<-c(2829,2559,2783,2013,502,2149,3061,1421,2841,1268,2926,2495,2554,3102,2802,292,2979,1227,2649,1776,2982,2935,2988,1422,2903,2902,1526,2917,1731,2930,75,2374,2553,3157,2358,1654,2696,2690,2500,2664,2871)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006457"
rlt[mytot,2]<-"YNL281W"
ori<-c(2578,2880,2074,2288,2313,1972,1677,2203,1604,3092,3136,1369,2987,1201,1234,430,2790,2849,1646,2751,2761,2791,2653,3175,3128,2910,588,3048,2562,21,3186,3200,2950,1615,3130)
ppi<-c(2905,3081,2377,2700,1678,2931,719,2320,1396,3018,3153,2276,2769,826,857,82,1859,3063,2167,2504,2363,3009,2462,2820,2979,3109,278,3135,2642,16,3199,2605,3150,1669,3025)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006888"
rlt[mytot,2]<-"YNL287W"
ori<-c(3039,2958,343,2148,2964,2259,1091,2911,1654,1266,2235,729,2643,2209,3047,1959,2112,3145,1360,2161,2750,248,3159,2323,1147,2054,2141,1760,2237,2804,1210,1910,1100,2603,2475,3134,2530,2579,3199,2845,1208,3100,3098)
ppi<-c(3118,3053,1896,2343,3063,2528,2230,2665,1139,2264,2501,593,2839,2340,3104,951,1753,3136,2200,2513,2364,456,3087,2358,628,1824,3011,1092,1888,2518,2019,2079,1089,2802,2711,3172,2602,2968,2718,2489,527,3055,2999)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007015"
rlt[mytot,2]<-"YNL293W"
ori<-c(953,2873,1727,3089,2867,1455,1089,1949,2869,1923,3003,3076,857,1750,2807,1878,519,1156,1553,2764,3020,1172,715,1024,257,1000,1361,2189,1181,724,2266,2532,2048,1075,2709,882,2590,2003,3095,2999,2087)
ppi<-c(1229,2293,2606,2986,2912,1163,1973,1452,2841,1956,3111,2226,2216,918,3002,1361,2732,1717,1896,2671,2893,3197,1522,942,2772,3012,1144,1651,1764,2588,2980,2668,2825,3189,3184,1496,2444,2408,2459,2814,2645)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000070"
rlt[mytot,2]<-"YNL307C"
ori<-c(2023,1125,1872,1396,630,964,3139,256,2881,2803,3118,2191,726,842,1249,2997,2879,2485,88,1493,3109,2596,2801,3036,79,2368,507)
ppi<-c(2140,2714,1174,2548,2512,2405,3042,2481,2981,2774,3129,2770,858,2623,856,2443,2698,2785,2068,1549,3076,1554,2683,2832,403,1410,2427)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YNL307C"
ori<-c(2726,3030,2734,3023,2055,354,1918,82,1342,794,649,1997,3068,1547,1136,167,2753,2278,1434,332,104,1953,2359,399,2905,152,899,1329,1224,2807,1390,2666,3008,677,1365,1029,1112,570,1782,2050,1237,2195,2976,612,1430,2092,970,3172,2737,276,2874,151,2541,1776,1683,851,1681,1344,1731,1943,1723,549,2211,2798,2690,1427)
ppi<-c(2823,2518,2914,3171,2332,182,1405,1419,833,968,1920,2135,2414,2542,2468,884,2821,1664,1712,202,1547,1792,1823,802,2955,579,2407,1658,1350,2853,1975,2465,1708,208,577,1135,1892,720,859,2856,456,1140,2811,1279,799,2521,708,2882,2904,2691,2739,1407,2365,976,2398,1659,1699,736,985,2053,1887,1632,1644,2175,2330,624)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030437"
rlt[mytot,2]<-"YNL307C"
ori<-c(1341,732,2505,1277,815,1480,2364,1060,329,23,393,2350,1594,119,552,1798,2146,40,1511,2414,563,2638,3194,1500,3032,2644,2623,2737,2640,1134)
ppi<-c(1339,1004,2281,3138,2062,894,1581,400,1142,317,1295,2123,984,1824,2233,1149,3033,76,885,2724,2277,2551,3147,1233,3084,2669,2421,2904,2050,1610)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000082"
rlt[mytot,2]<-"YNL309W"
ori<-c(1121,2639,1169,2983,44,2523,2670,2613,448,3190,1205,1790,2735,3158,2845,416,2708,693,2902,216,2932,2188,3174)
ppi<-c(2610,3045,605,2121,2273,2616,2371,2096,168,3165,2395,1319,2614,3180,2666,33,2503,1273,3129,1372,2548,2625,3127)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006367"
rlt[mytot,2]<-"YNL314W"
ori<-c(1799,2106,179,2794,1210,384,2523,2838,208,1228,185,1262,1652,95,163,764,2726,187,1144,1764,1906,2706,244,2880,1951,1368,1770,2333,2642)
ppi<-c(1278,2310,119,2703,2390,2442,2551,2845,880,2802,1161,2440,2612,463,448,1838,2798,87,1916,2128,1251,2009,1452,2865,1458,1181,2592,1560,2322)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YNL322C"
ori<-c(475,505,324,52,399,1380,644,1479,2282,2539,2155,1409,1945,2513,2418,2963,2951,536,1774,2924,2314,362,2019,881,1504,2596,1885,1193,2384,2476,570,1155,848,2729,1051,689,377,265,1345,3197,1643,734,2993,2738,1677,1679,2730,947,3149,2493,2878,635,773,2148,1551,3028,2178,2935,1617,3054,2047)
ppi<-c(1061,2235,187,2817,188,1315,339,2239,2007,2568,1942,998,1762,2463,2011,3046,2735,2376,2745,2862,2596,104,2867,527,1649,2542,2529,1861,2615,2871,774,1167,792,2688,2333,2017,205,133,876,3149,1013,2258,2805,3057,2702,1063,2391,493,3172,2216,2944,347,2049,1869,3087,2778,1551,2029,809,3188,2749)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006457"
rlt[mytot,2]<-"YNL328C"
ori<-c(2351,1196,2882,744,2037,542,1225,159,821,1229,1111,2703,85,2667,2020,2700,301,225,2187,549,648,1234,1922,151,1531,1019,1223,1727,1872,15,75,362,1866,2253,1366)
ppi<-c(1515,552,2553,1401,1328,3102,588,2054,1593,860,1190,2253,225,1755,1891,1629,782,104,2270,1173,1165,953,1580,2299,1089,565,624,574,2136,1250,5,2025,927,2095,1365)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006623"
rlt[mytot,2]<-"YNR007C"
ori<-c(3188,2601,2434,1222,1775,3172,2000,1656,2498,2528,1296,3024,3059,2890,2346,2838,2227,2153,1552,1246,2363,2257,2679,2429,2396,1595,2937,957,1877,3031,2632,2483,145,1895,3167,2571,2975,2309)
ppi<-c(3203,2379,2121,3152,1571,2923,2055,2815,2310,2577,492,2905,2573,3201,1657,2896,2631,1249,2781,503,1971,1668,2267,2281,1754,758,3194,499,1488,2669,2415,1589,731,1824,3055,2102,2861,2427)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000070"
rlt[mytot,2]<-"YNR010W"
ori<-c(2061,1214,2738,1016,3090,2511,64,2800,876,370,16,1436,2217,436,1860,399,435,1880,1449,980,96,1927,764,303,54,916,2875)
ppi<-c(2275,2445,2947,2230,2626,2104,2293,2527,299,377,15,2576,2032,1944,1420,1730,1401,2599,2557,2447,457,865,1084,1842,947,687,2624)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006606"
rlt[mytot,2]<-"YNR016C"
ori<-c(2181,1609,2939,2453,1964,3022,333,2846,2320,2150,2384,1863,2693,1113,1462,2548,3140,2895,2575,1236,2982,1343,2052)
ppi<-c(2535,1493,2964,2536,2807,2942,1962,2719,2228,2441,1835,2639,2469,1086,1997,2360,2762,2371,2370,502,2410,1501,1386)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000282"
rlt[mytot,2]<-"YNR027W"
ori<-c(283,583,8,3084,1359,2576,2697,850,3106,2489,1304,333,3184,1472,1157,2945,156,2868)
ppi<-c(650,807,1325,3169,698,2681,2814,72,2695,2659,2316,141,3200,2141,1901,2997,103,2439)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YNR031C"
ori<-c(3188,3175,3092,2803,1223,604,2749,769,2467,1190,321,1990,3126,3133,1222,2824,1866,2088,1740,2127,1742,640,1363,1611,1639,2278,854,2737,1105,2391,2093,2223,2493,1119,1860,2918,2180,2653,2078,2591,1301,928,2864,91,1283,1086,1432,2568,3116,2149,3077,1165,3176,407,2334,3198,317,1056,1904,2455,557,541,2340,2052,1676,239)
ppi<-c(3193,2660,3172,3087,1894,293,3202,1954,3089,1099,1637,2279,2692,2726,2329,2797,1307,1455,1332,1477,2868,934,2053,1748,1382,1896,2191,2079,1564,2039,2948,1683,2328,1106,830,2864,2225,2753,1379,2949,682,256,2083,610,737,2588,1003,2283,2585,2431,2139,1983,3129,150,2882,2982,1652,499,1515,2799,1337,1947,2775,1793,1774,59)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006970"
rlt[mytot,2]<-"YNR031C"
ori<-c(1599,1538,1739,2922,1581,191,1278,2937,2657,1329,361,630,2298,3181,476,1248,3148,2344,940,2866,3066,1847,465,887)
ppi<-c(2048,1315,3201,3003,2138,227,2224,2583,3095,1036,96,2373,2235,2894,819,1986,2238,2597,1249,2600,2204,2333,1627,1499)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006897"
rlt[mytot,2]<-"YNR075W"
ori<-c(623,1232,453,189,2418,1452,1147,1649,56,1834,687,2373,1001,1088,920,527,711,267,650,93,401,642,1599,1731,1063,1799,688,455,1352,2615,1898,437,2738,2747,396,2920,899,904,2108,889,377,1538,2668,1634,973,1081)
ppi<-c(2177,2487,637,123,2075,796,1229,1024,2294,2482,2174,2470,1169,1673,2068,2232,2236,1529,2591,2763,174,2196,683,1416,1212,1208,1927,2263,1500,2727,1028,228,3025,2758,2329,2987,1075,2451,1380,461,2574,1855,2219,2507,1230,2730)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006348"
rlt[mytot,2]<-"YOL004W"
ori<-c(1245,2834,30,1996,2697,1335,656,2427,3178,1534,654,538,1932,2673,3189,2444,1416,1169,1053,1194,2249,1395,1657,3143,2909,155,1735,820,1064)
ppi<-c(1922,2936,1957,2191,2864,714,1571,2247,3187,912,321,1794,1099,1698,3037,1132,1915,634,728,901,2601,3043,681,2766,3096,140,1109,200,795)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007005"
rlt[mytot,2]<-"YOL009C"
ori<-c(3152,1671,1441,307,1033,3186,1456,111,811,1128)
ppi<-c(3175,976,840,1006,529,2956,1440,161,1542,1263)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YOL016C"
ori<-c(1881,493,1360,149,505,2848,763,2647,2141,1872,851,412,926,1485,448,2718,1357,275,2721,2924,1796,2634,377,1660,1134,1952,541,3030,708,916,1734,912,162,989,1701,1785,2253,2814,3054,2232,1188,1771,1150,2666,2719,1509,1674,36,2931,1666,204,1281,736,1760,2320,1526,1295,2323,1112,1430,1659,1425,3137,629,316,1074)
ppi<-c(1231,2084,761,2,2193,2853,719,2013,1549,1342,1835,1771,2108,1950,1998,2249,706,327,2441,2961,1814,2432,1795,1487,1040,1403,2466,2580,1284,1322,1602,410,1586,330,619,1562,2083,2613,3148,1933,970,1385,2086,1680,2835,2285,933,554,2641,1948,949,541,898,1138,1980,1559,1590,1968,496,2228,1443,1988,3039,1567,1078,385)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006365"
rlt[mytot,2]<-"YOL021C"
ori<-c(2094,2400,1067,3035,2778,3046,2273,2241,2467,2844,581,2818,2714,1987,2354,2546,2305,2615,2906,2525,2650,2988,3075,3076,2805,2994,2550,2942,2772,2699,3010,2897,3181,3142,2951,3117,2902,2207,1848,2795)
ppi<-c(1610,2314,3200,3025,2957,3175,3202,1712,3193,2837,2424,2881,2777,2300,1727,3106,3201,2336,3116,3203,2988,2895,3079,3021,3087,3094,1786,3121,2069,2694,2993,3102,3076,3149,3113,3163,2991,2900,1897,2754)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006402"
rlt[mytot,2]<-"YOL021C"
ori<-c(1067,2273,2467,1387,386,948,1987,538,1265,2546,2305,2525,3106,983,2486,970,3033,971,2951,278,3117)
ppi<-c(3200,3202,3193,2047,2388,2167,2300,1807,1530,3106,3201,3203,2919,2414,3001,709,3003,2017,3113,2233,3163)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0045944"
rlt[mytot,2]<-"YOL028C"
ori<-c(1801,571,1876,2078,809,1700,1957,2326,2237,1927,2788,3101,2036,1424,1560,1046,818,1733,1510,2862,1996,2741,2677,1403,1948,1783,2347,2502)
ppi<-c(1074,306,1234,2445,467,1105,1754,1757,1555,1520,2568,3181,2675,1562,978,1491,612,2117,2032,2732,1833,2687,2447,723,1034,1371,1831,1655)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006414"
rlt[mytot,2]<-"YOL039W"
ori<-c(3056,3142,3153,3179,3175,1094,3180,3193,3173,3181,3081,3200)
ppi<-c(3200,3198,2819,3121,3189,112,3201,3191,3109,3183,3041,3203)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006367"
rlt[mytot,2]<-"YOL067C"
ori<-c(2387,3071,3133,2310,1926,1987,2071,2609,1084,2334,136,2023,2070,2052,2777,3044,1623,3156,2322,505,1410,2392,976,1586,1205,3192,1334,2339,3020)
ppi<-c(3203,1844,3113,1688,1861,1735,2128,1946,1231,1281,604,1732,2776,1334,2712,3131,1323,3194,1911,1269,776,2164,1106,1263,973,3127,1597,2941,2680)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000282"
rlt[mytot,2]<-"YOL072W"
ori<-c(2728,2840,3191,1962,2642,2362,991,527,234,2621,2605,2375,1929,686,1555,2480,140,874)
ppi<-c(2755,2670,2701,1486,2581,2374,318,21,1699,2842,2416,2571,1180,1910,1726,2410,75,2697)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000027"
rlt[mytot,2]<-"YOL077C"
ori<-c(3111,3120,2923,2876,1752,3183,3068,3125,3175,3091,3060,3143,3014,3177,2998,483,3190,3148,1439,3003,3049,2980,2584,996,2194,2782)
ppi<-c(3176,3185,3005,2912,815,3171,2993,3189,3201,3063,3075,3140,3181,3202,3145,2022,3142,3188,2733,3085,3114,3018,2612,578,3041,2819)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006623"
rlt[mytot,2]<-"YOL082W"
ori<-c(3103,2569,1870,892,2339,2348,2871,2181,279,2187,2380,3148,1825,1566,702,2689,3042,2498,549,1872,2069,2165,2645,2102,3002,2648,1387,1612,2851,2820,3049,3051,85,2803,1733,2081,1698,2176)
ppi<-c(2830,1880,1741,2367,2076,2359,2325,2494,670,2492,2539,2954,2508,2347,1672,2952,2688,1687,799,2577,1444,2256,2595,1616,2923,2547,1639,905,2520,2698,2692,2521,818,2551,2378,1490,1258,2583)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006457"
rlt[mytot,2]<-"YOL088C"
ori<-c(779,2011,398,2086,1016,1893,805,2324,687,2134,2088,1378,3002,466,1536,581,2409,2974,1265,3132,2653,2294,1432,3115,2528,2374,1658,2092,1943,3154,128,3047,2550,972,2870)
ppi<-c(1544,1631,1713,1777,452,3137,354,2553,648,1227,1946,2007,2578,768,1510,102,2749,3082,2060,2949,2404,2189,1893,2406,1810,2588,931,2328,2231,2995,101,2501,2660,1057,1983)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YOL105C"
ori<-c(1230,2683,1732,2028,3169,2972,2417,1215,1549,1945,112,2578,2814,2056,1684,2235,2694,465,2788,77,2442,2412,2646,3049,458,2392,888,2522,2978,2131,445,722,1798,999,2203,2346,855,498,189,1330,784,50,1982,634,2291,83,1545,735,2266,2492,660,1866,714,2135,28,1952,3012,1160,2937,1683,1756)
ppi<-c(1283,2478,1339,2636,3176,2759,2172,2437,1427,2638,383,2878,2365,1487,1599,1956,2557,1943,2053,255,2157,1597,2184,3081,679,2382,2205,2261,2708,1632,372,361,1493,1673,2541,2260,402,234,390,1225,363,1735,2422,272,1824,342,1755,348,1905,2223,274,1212,1882,1446,58,1658,3062,2470,3109,589,2104)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0045944"
rlt[mytot,2]<-"YOL108C"
ori<-c(356,168,2343,1557,1318,2968,1157,3115,2603,930,687,2300,1659,513,300,2849,270,2664,2964,491,2003,2930,2659,951,989,2381,978,3016)
ppi<-c(228,93,2034,725,876,3078,565,2997,2076,691,1595,1821,1458,411,129,1925,196,2833,2642,662,1985,2464,2673,431,559,2213,374,2955)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YOL109W"
ori<-c(1828,1754,2685,1488,55,904,906,2168,1764,2926,2761,1790,287,602,156,2144,1768,2776,1491,2817,221,113,995,1419,1848,176,1630,1579,2062,2405,2573,2590,1520,949,1806,2114,2081,2323,3103,767,3132,2682,329,1476,1526,2476,1186,386,390,793,1561,1700,2870,1645,21,437,1318,1390,1329,138,2350)
ppi<-c(2737,2323,2817,2046,35,963,475,2330,1649,2409,1939,1309,960,390,765,2206,2017,2383,2249,2922,1645,83,923,767,2034,298,2074,2355,1794,3046,2675,2486,1218,1241,2033,2489,1388,1957,3138,985,3142,2343,3202,721,3197,2467,2438,223,149,2395,1111,1071,2291,915,778,2524,761,2000,381,16,2794)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007015"
rlt[mytot,2]<-"YOL112W"
ori<-c(2585,2422,2593,1913,2083,269,1667,77,786,1863,1336,1008,1048,3090,3014,2825,1765,2132,1918,1907,2362,2703,510,1579,652,1472,492,2944,1744,2473,273,722,2691,2079,2697,2296,444,1885,2912,3151,2744)
ppi<-c(1899,2395,2717,1632,1428,479,2558,66,1030,1717,759,2250,2322,3136,2213,2955,2293,2048,2456,828,2307,3201,1474,1411,2821,2906,595,2570,2734,1663,64,2143,2427,2704,3153,2913,2412,2389,2613,3010,2596)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YOL113W"
ori<-c(2701,3124,1677,3063,2918,948,2952,324,1426,3013,1307,1205,1568,2895,2478,2344,2192,2635,1671,369,1806,2590,2965,1121,1727,2449,2363,2645,582,3142,1794,2570,2964,2088,910,3073,2650,2096,2173,3010,398,639,2825,1370,2492,831,861,3054,2584,2392,2637,3131,629,253,2669,938,1277,380,2228,723,887,2261,1767,569,3082,685)
ppi<-c(2819,2777,654,3189,2230,518,3023,1336,1435,3121,2129,2066,2681,2863,2937,2661,1667,2631,1844,241,1693,2888,2578,2293,1466,2150,2698,2307,1377,3074,1648,2623,2775,1121,523,3010,2442,1527,1620,3016,189,417,2086,701,2246,2310,1278,2860,2282,2344,1934,3180,1991,191,2068,1356,2104,185,1975,2567,1917,2485,1745,1420,2900,279)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000027"
rlt[mytot,2]<-"YOL127W"
ori<-c(3137,2547,2761,3195,2499,2918,3176,3162,3132,2928,2785,2981,2682,3129,3193,260,3130,2771,2778,3068,3183,2919,2933,1871,2100,2795)
ppi<-c(3164,2957,2607,3193,1943,3010,3100,3189,3166,3036,2859,3168,3021,3165,3199,383,3074,3062,2996,3065,3178,2946,3003,1281,2718,2821)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YOL128C"
ori<-c(1625,684,2469,1278,2267,1517,3063,2959,456,1070,1998,2851,2164,323,2417,241,3131,2491,1424,1484,98,1961,268,2276,2510,453,2665,377,2854,1139,65,1810,419,2303,2881,1718,1497,274,1438,2075,2457,1420,120,2527,697,2423,937,546,144,1812,1736,547,1795,279,839,911,1270,3161,2516,473,2320,3065,976,2130,1616,2974)
ppi<-c(803,1846,2085,219,2305,991,2952,2467,457,876,2001,2721,2434,1843,2243,821,3153,2437,1049,940,1905,1830,1714,2018,2245,828,2312,2209,2465,1325,1317,1344,1780,2846,2896,1572,2187,423,706,1521,1948,694,806,1916,313,2689,1628,1266,1582,1893,1847,238,2207,420,2565,2495,2377,3173,2181,2188,2038,2583,2332,1710,1822,2926)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006623"
rlt[mytot,2]<-"YOL129W"
ori<-c(3027,2945,1604,627,3089,2611,560,1708,665,2202,1994,3020,382,2044,977,2094,2980,1631,606,971,1906,2401,2572,2090,2327,2389,2079,1973,2643,2421,3056,1289,254,689,677,1355,2451,1421)
ppi<-c(2311,2877,898,1846,2928,1954,1583,1787,912,2792,1089,2595,2428,1923,1721,2615,2458,1320,674,1061,2023,2228,2471,1180,2129,1629,2639,1279,2660,2249,2759,896,769,1358,522,1369,2153,1600)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000082"
rlt[mytot,2]<-"YOL133W"
ori<-c(2757,1639,41,1971,3190,312,1923,1908,2339,555,3019,1618,18,887,1993,2674,1228,1864,2012,191,1249,519,684)
ppi<-c(2481,2559,28,978,2888,573,2984,2433,2272,495,3189,605,1409,388,2698,2873,2105,1424,1618,329,2602,1713,940)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0016567"
rlt[mytot,2]<-"YOL133W"
ori<-c(1741,3190,1923,1271,2602,1908,3019,1701,2745,1446,518,410,1228,1348,2323,2854,2660,229,759,2225,1832,214)
ppi<-c(1849,2888,2984,1686,2540,2433,3189,1842,2815,1974,2551,630,2105,1735,1809,2952,1984,1350,159,1863,1433,1138)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006413"
rlt[mytot,2]<-"YOL139C"
ori<-c(3004,1914,3062,3128,2811,2170,2527,2251,2544,2705,1701,2500,2387,3144,2468,3092,3194,2835,2798,3176,2520,2694,1608,59,3146)
ppi<-c(3074,1472,3104,3070,2936,1516,1856,3188,1779,2817,3191,3087,1930,2757,3117,2518,3140,3063,2972,3148,2652,2899,561,51,2625)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006365"
rlt[mytot,2]<-"YOL142W"
ori<-c(1197,2093,2952,2814,3006,2022,2082,3172,2744,3085,156,1194,2800,695,2223,1063,1718,2292,2483,1925,2518,3019,3056,2823,2354,2494,2597,3018,2447,2480,2463,3104,2481,2926,3043,2577,2884,2991,1291,2652)
ppi<-c(781,1041,2213,2114,3002,2107,2153,3199,2645,3110,1757,586,2887,2524,1637,2245,2241,2494,3009,2060,1795,2799,3148,2852,3000,2813,3029,3103,1893,2737,3027,3142,2168,2854,2292,2509,2955,2998,415,1962)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006402"
rlt[mytot,2]<-"YOL142W"
ori<-c(2952,2082,2744,1607,962,2368,695,1553,2690,1063,1718,1925,2231,1185,2712,864,2345,949,3043,3134,2577)
ppi<-c(2213,2153,2645,2403,2313,2899,2524,2150,1645,2245,2241,2060,2079,2457,2905,650,2818,2214,2292,2489,2509)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000027"
rlt[mytot,2]<-"YOL144W"
ori<-c(2932,2925,2465,1799,764,3008,2812,3181,3185,3109,2937,2919,3176,3163,1986,211,3110,3143,271,2353,3093,2832,349,2011,257,3074)
ppi<-c(3094,3139,2674,1132,295,3069,2831,3188,3195,3019,3003,2761,3198,3192,2037,627,3121,3153,1905,1669,3182,2879,215,1465,874,3107)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006402"
rlt[mytot,2]<-"YOL149W"
ori<-c(2269,2252,836,2071,3039,3063,405,2909,2784,2045,800,2069,1619,686,1645,1149,271,1198,296,3090,688)
ppi<-c(2020,2005,371,2632,2668,2678,2635,2008,2155,2510,1457,1887,1826,2762,1364,1025,1598,2714,1058,3129,351)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006365"
rlt[mytot,2]<-"YOR001W"
ori<-c(3056,3109,2747,3093,3104,3171,3102,2775,2714,3075,2296,3105,3195,1449,3072,2912,2910,3173,3146,2964,3050,3091,3153,3135,3176,3166,3115,3141,3154,3149,3106,3147,2824,3165,2985,2488,3169,2947,2874,3041)
ppi<-c(3095,3144,2987,2954,3165,3199,3042,2570,2981,3013,2727,3134,3185,2431,3090,2791,3016,2990,3162,3065,3179,3052,3160,3079,3202,3145,3107,3191,2790,3083,3173,3201,2760,3156,3034,2883,3167,3159,3001,3125)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006402"
rlt[mytot,2]<-"YOR001W"
ori<-c(2747,3102,2714,1240,2236,1796,1449,1822,2837,2912,2910,2964,2816,2251,3089,1621,2648,2207,2985,2488,729)
ppi<-c(2987,3042,2981,2288,2391,2475,2431,2383,2796,2791,3016,3065,2897,2587,3141,1235,3026,2255,3034,2883,2412)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006897"
rlt[mytot,2]<-"YOR008C"
ori<-c(993,1009,1460,1073,2516,486,1572,2194,195,2115,3068,2253,1724,308,2428,1894,2512,2152,2121,2622,1919,536,252,2551,1234,2544,3026,1958,1200,2064,2178,1315,1112,186,2415,2946,2621,1531,1925,2226,1984,2913,3016,2134,2355,2401)
ppi<-c(2184,1819,1426,507,1871,482,1419,1645,2280,2182,2914,2476,1432,690,2062,2154,2256,2616,2173,2546,1875,1734,153,2690,1329,2722,3202,1972,1647,2726,1369,681,1663,866,2584,3106,2730,1678,2861,1692,2203,2204,2802,2110,2037,3034)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006970"
rlt[mytot,2]<-"YOR008C"
ori<-c(678,2516,220,2194,2115,2017,2253,2679,10,793,3172,1786,536,2065,2672,2231,1958,854,1041,1645,1984,861,2562,319)
ppi<-c(1916,1871,317,1645,2182,1435,2476,2731,1222,748,3184,1951,1734,2303,3200,2199,1972,2278,462,2059,2203,1733,2403,1345)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YOR008C"
ori<-c(1455,993,702,285,825,2977,1371,3150,875,50,1679,512,1664,2315,2504,3001,666,1823,2253,2865,1704,1497,1832,542,2929,1769,2312,1012,3129,511,2387,1459,2055,2853,1458,536,2172,1389,858,2596,1105,2639,2672,2544,3026,2610,1521,2682,2219,1958,3176,1315,2415,3084,2054,405,2226,1653,2912,3089,2401)
ppi<-c(1165,2184,376,2514,373,3097,798,2519,1080,1640,1664,324,1386,1597,2185,3120,1248,2300,2476,2587,2139,1356,2586,254,2786,1242,1878,1725,2981,501,1691,1268,1666,2668,2697,1734,1700,775,576,2641,648,2687,3200,2722,3202,2810,2078,2678,1525,1972,3176,681,2584,3138,2323,2053,1692,1822,3019,3122,3034)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006457"
rlt[mytot,2]<-"YOR020C"
ori<-c(2657,3059,1699,1940,2598,2350,1350,2521,2164,3060,3118,2933,2569,96,485,1116,2508,2593,1213,2514,3107,3140,3084,3004,3134,3201,1549,3031,3158,3152,590,2949,3175,1678,3188)
ppi<-c(3065,3155,2135,2683,2375,3030,932,2188,1967,3125,3109,2923,2798,555,1144,420,1888,2979,1966,2273,2978,3142,2650,2712,3083,3204,808,3186,2847,3041,308,3121,3196,630,3092)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006348"
rlt[mytot,2]<-"YOR025W"
ori<-c(106,2998,1148,2641,77,97,127,1789,3079,1225,146,1068,2681,785,2524,2771,1955,33,2076,429,1374,498,842,2944,2823,680,1112,1567,802)
ppi<-c(1112,3021,2194,2439,285,38,1072,2987,3106,742,67,1972,1588,2047,2298,3069,1453,14,1615,321,2294,1389,421,2832,2679,429,2367,1001,764)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006457"
rlt[mytot,2]<-"YOR027W"
ori<-c(3169,3189,3025,2330,3187,2806,2242,2402,2254,3193,3198,3162,1335,632,91,1164,2804,2667,1796,2167,3174,3191,3196,2814,3199,3194,1972,3182,3201,2920,1899,2668,3172,2378,3202)
ppi<-c(3196,3195,2647,3135,3186,2990,1606,2389,1424,3157,3185,2978,891,836,702,400,1904,2999,2167,1750,3061,3200,3116,2531,3193,3197,1473,3192,3037,3004,1257,2812,3005,1564,3202)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000723"
rlt[mytot,2]<-"YOR033C"
ori<-c(3173,2830,614,1721,2680,2186,2091,2147,1078,996,3145,230,134)
ppi<-c(2929,2967,2265,1467,2586,1264,2249,1272,713,893,3110,194,416)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006897"
rlt[mytot,2]<-"YOR034C"
ori<-c(2427,1248,2591,1293,1576,2650,1577,152,2057,553,3198,2235,537,2318,344,2886,1452,3107,721,3093,1690,1326,1864,476,2055,2958,2744,2690,972,63,2066,1826,538,1245,2367,967,2412,1718,233,3030,2478,3078,1296,3110,2715,2027)
ppi<-c(2442,2339,1629,728,1510,2790,1367,107,2041,2405,2524,2629,766,2662,1787,2375,2312,2333,1985,2641,616,2594,1888,1034,1544,3049,2681,2600,2184,1976,1517,1182,1603,1172,1900,402,2451,1868,647,3094,2476,2849,1936,2701,2761,2481)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000082"
rlt[mytot,2]<-"YOR039W"
ori<-c(1220,1292,1094,2950,1168,1769,2894,2832,101,3101,1102,2729,2046,3003,2793,1469,1538,1628,2438,3034,1210,1838,3116)
ppi<-c(2101,2732,535,2591,2168,1723,2167,1981,40,3075,1819,2932,3194,3070,3200,459,2240,1813,2880,3117,2289,3199,2940)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YOR039W"
ori<-c(2272,809,335,1899,1292,3118,826,1992,2950,3106,22,728,523,741,2873,2255,428,572,814,2065,2046,445,275,1828,2800,776,619,2151,114,1454,2793,2157,565,1282,2037,261,2297,343,2179,3182,1086,360,3150,589,2403,1676,872,621,2932,2027,1648,2210,2321,2548,976,1838,1663,1023,2459,2972,949,632,3046,1714,685,1152)
ppi<-c(1712,2719,186,739,2732,3143,848,1998,2591,3019,1387,1790,2217,2268,2612,2059,232,613,1996,1348,3194,659,1504,1688,2890,963,2379,2435,844,2410,3200,1445,1778,461,1471,633,2700,566,1437,3066,484,135,2931,1039,2116,2347,1225,1175,2245,2684,1455,1520,2494,2720,530,3199,2004,471,2263,2642,1370,1709,2496,2172,1350,419)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006897"
rlt[mytot,2]<-"YOR043W"
ori<-c(326,1038,70,1809,507,1453,490,1445,759,474,1347,22,2813,136,2011,2281,5,2396,1961,81,673,2284,1121,877,2347,1047,1154,1107,2052,634,385,360,2572,2433,359,1017,1506,1694,2562,113,2506,1610,2102,810,2980,397)
ppi<-c(1994,1487,312,1147,1035,1316,752,973,2944,2200,2597,2056,1909,639,2440,2689,2080,2591,2061,1394,258,1829,634,1604,2149,502,1015,1796,2095,1901,157,170,2696,2246,2524,605,1125,2163,1950,89,2140,1557,1654,1769,2892,1764)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007015"
rlt[mytot,2]<-"YOR043W"
ori<-c(1795,326,2132,258,1809,961,1245,1445,921,3127,696,5,2912,2265,2261,2862,689,2038,2126,673,1739,1514,648,2347,692,1417,1753,1154,2657,2052,683,634,359,1534,959,2133,186,2506,810,1066,397)
ppi<-c(1939,1994,2164,617,1147,985,1483,973,927,2998,384,2080,2257,1847,2682,2986,1959,2838,1627,258,1729,1922,1372,2149,1775,1929,1535,1015,2613,2095,768,1901,2524,2090,844,1408,1794,2140,1769,2304,1764)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006406"
rlt[mytot,2]<-"YOR046C"
ori<-c(1352,2421,2486,2957,1092,2516,1589,2160,2811,263,1541,985,3003,1073,2853,2423,1987,2943,661,508,2611,1485,1350,1772,1458,1263,1163,607,2384,2262,2613,826,2554,1862,712,96,1507,2072,2895,2764,2401,1715,1449,2313,1446)
ppi<-c(732,1981,2491,2168,587,2971,1098,2332,2908,1781,2441,2645,2807,2462,2966,2647,980,2521,2157,252,2598,953,1262,1293,2249,884,2451,2003,2219,2444,2544,1668,2309,2508,189,578,1201,2579,3106,2753,2222,1088,657,2373,2340)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006006"
rlt[mytot,2]<-"YOR047C"
ori<-c(694,652,1552,2780,1088,1303,485,1834,1760)
ppi<-c(1682,239,2125,2391,544,740,283,1783,2948)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0016567"
rlt[mytot,2]<-"YOR057W"
ori<-c(2987,1609,2543,525,948,461,1628,3043,2338,1055,3013,450,464,3157,2590,2761,323,2977,2760,1221,1912,2641)
ppi<-c(2948,2848,2910,2725,1046,3156,2843,2904,2534,2829,2903,634,2787,2941,2683,2762,2639,2891,2943,2902,1883,2940)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000082"
rlt[mytot,2]<-"YOR061W"
ori<-c(356,1104,3165,2676,67,2713,2911,2597,1082,1709,144,3087,3036,213,2844,1910,2572,252,783,2048,496,1763,633)
ppi<-c(1601,2327,3171,2980,2161,2734,2481,2615,547,1357,1711,3154,3201,128,3203,932,2670,975,817,1221,2282,3190,1166)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YOR061W"
ori<-c(491,2145,829,2758,1104,1014,1115,2723,2676,1120,778,805,1999,1632,350,2817,649,1016,2674,2553,3036,21,849,2222,2644,2259,804,2605,422,2577,2844,2199,2395,1346,3008,2385,1513,1011,4,857,2806,389,2134,1,2289,199,2984,2084,939,2132,884,3013,1514,1106,1042,1763,2729,2344,1502,2626,1548,540,1605,1688,2277,1369)
ppi<-c(291,2116,1168,3020,2327,601,1337,2739,2980,1095,1630,1885,2376,2321,1785,2503,352,1242,2386,2704,3201,194,1691,1739,2798,2646,2018,1967,1157,2258,3203,1586,1740,636,3148,2380,1591,1270,6,908,2913,129,1807,336,2010,1955,3100,2003,2212,2233,1309,3089,1675,685,920,3190,2135,1935,930,2611,1665,1619,1843,2361,2065,1185)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000027"
rlt[mytot,2]<-"YOR063W"
ori<-c(3122,2234,2915,3174,3009,2108,3144,1379,2440,2247,1174,2825,1679,2832,3199,2177,2226,1976,3038,3167,2852,2989,254,2223,3202,584)
ppi<-c(3093,1408,2914,3171,3073,1647,3041,1098,1751,2867,1471,3156,839,2459,3200,1333,1977,1215,2929,3170,2513,3130,116,1645,3199,245)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000070"
rlt[mytot,2]<-"YOR073W"
ori<-c(1501,1510,3013,3189,1557,1393,3084,1440,1408,764,2900,2525,911,2933,3117,2443,1807,1151,2066,2527,2796,3160,3168,2759,2337,918,2254)
ppi<-c(2991,1970,3099,3182,2034,2819,2765,2131,1087,958,3179,2128,1066,2067,3162,2739,2834,2228,2087,2575,2476,3177,3148,2066,2200,1109,2061)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006623"
rlt[mytot,2]<-"YOR089C"
ori<-c(2872,540,2322,732,844,378,2367,2500,149,920,1537,2325,2207,477,1220,1867,3092,3023,1178,1845,1164,2068,2195,1533,3117,2162,341,989,2600,2270,3069,1262,951,2924,1359,1885,301,1295)
ppi<-c(2820,156,2702,2041,1445,2191,2381,2701,635,2060,1016,1405,1991,1842,2053,1297,2910,3140,1193,1252,947,2321,2270,1048,3044,1471,802,526,2024,2581,2519,1817,1476,2401,855,1434,566,2729)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006897"
rlt[mytot,2]<-"YOR089C"
ori<-c(377,2797,534,2592,1736,517,510,3055,1019,3030,483,431,3041,55,3198,1496,1439,2497,3108,443,1710,2568,428,3092,2946,931,1305,753,1763,2821,2162,1098,2039,914,1801,1966,1824,213,2534,1369,2717,1153,2981,1600,1831,2932)
ppi<-c(2337,2537,623,2708,1796,186,772,3129,2096,2412,1704,2742,2838,1226,3040,2790,2510,2198,2978,2009,857,2512,188,2910,2942,489,1771,2367,2208,2263,1471,485,1663,1457,2144,764,1989,836,2152,834,2567,1875,2901,2197,1943,2470)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006406"
rlt[mytot,2]<-"YOR098C"
ori<-c(2054,1806,1282,1136,3006,3110,670,2960,2375,2839,1308,2742,1805,3144,618,118,1512,2662,2281,1418,3152,1318,1292,1057,2489,689,882,228,1383,1782,2440,399,219,1244,190,2549,1409,345,2835,3066,3090,3121,1572,2213,284)
ppi<-c(3203,1015,1085,2246,3081,2870,172,2997,3117,2673,2556,2040,2770,2871,297,2644,845,2668,2580,905,3180,1019,1078,952,3142,591,2834,2301,2510,2671,2722,2905,475,3059,126,2823,782,2248,2973,2393,2621,3151,579,2439,2010)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006606"
rlt[mytot,2]<-"YOR098C"
ori<-c(2781,383,1550,1595,1308,3151,1805,2419,3144,118,1760,2662,882,2607,1766,2877,2071,345,1943,820,3031,2762,966)
ppi<-c(2983,691,813,796,2556,3146,2770,3185,2871,2644,1400,2668,2834,2903,3143,2767,1794,2248,1820,228,2971,3181,896)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006611"
rlt[mytot,2]<-"YOR098C"
ori<-c(2054,1282,1136,3006,3110,2435,2839,1308,1805,3144,618,118,2662,2281,3152,292,882,228,1782,2440,1244,2549,345,2835,3066)
ppi<-c(3203,1085,2246,3081,2870,2493,2673,2556,2770,2871,297,2644,2668,2580,3180,1704,2834,2301,2671,2722,3059,2823,2248,2973,2393)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006897"
rlt[mytot,2]<-"YOR109W"
ori<-c(2841,2861,2890,267,2331,2396,2635,828,3020,1252,2432,2997,45,2029,1637,1610,3048,2360,1864,3192,2208,2340,1609,2001,748,3050,3106,3195,2410,1315,2133,2403,1125,456,3133,946,2183,3093,94,1302,1214,3058,2608,3198,1733,2603)
ppi<-c(2537,2863,2123,137,2397,3073,2593,385,2555,2450,2907,2261,282,1342,1725,1904,2502,1785,1663,2213,2467,2618,1419,1699,768,3114,2490,2640,2690,2036,1586,1729,2643,994,2768,252,1975,3058,1692,2457,2600,3113,1993,2607,1713,2453)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YOR109W"
ori<-c(2320,2841,1427,1908,1660,1643,1215,3067,1164,1080,1223,1905,3009,2199,1887,2252,2756,2463,2997,2782,2099,851,1271,2753,1728,632,512,1759,2948,2112,658,2863,1985,1211,2734,2340,2203,1987,1460,1548,2944,2161,1229,3050,3106,1487,2155,2586,1156,3195,1116,2403,3133,2232,3039,1255,2183,205,2078,3125,2603)
ppi<-c(1463,2537,976,2723,1003,1649,616,2664,1016,1887,1147,728,2743,1493,1627,1860,2706,2496,2261,2576,2130,261,1048,2888,1905,411,1837,2009,3080,1132,422,3022,1942,1846,2575,2618,1677,1276,2341,1321,3030,2215,1235,3114,2490,1379,2711,2395,502,2640,549,1729,2768,1637,3077,648,1975,701,959,3133,2453)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006888"
rlt[mytot,2]<-"YOR115C"
ori<-c(1285,1913,1651,187,1020,1645,1978,2059,1962,2148,807,958,2007,1858,1483,2658,3059,2291,2888,1176,2575,595,1914,2268,3033,3178,1576,379,801,2213,1314,1056,770,1324,1013,2464,2181,658,2964,2917,3016,2095,893)
ppi<-c(845,1222,3197,663,626,2336,3199,1349,1463,3202,3198,558,1117,2458,1028,2494,3143,1738,2472,3196,2612,690,1692,2787,3092,3104,1815,218,578,3203,1746,2426,673,1937,1904,1911,3201,259,2489,2915,3113,1996,1589)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030490"
rlt[mytot,2]<-"YOR119C"
ori<-c(706,3109,2966,2832,3198,3018,2976,3116,3155,2691,3062,2714,2692,719,2989,3124,3164,3161,3100,2528,2851,3034,3203)
ppi<-c(858,2961,3118,2979,3190,3165,2973,3066,3200,2722,3104,2848,2474,1320,2999,3024,3055,3111,3107,2510,3113,3168,3196)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006970"
rlt[mytot,2]<-"YOR122C"
ori<-c(1309,2941,1714,3114,2905,1383,3141,606,2005,2152,528,355,2371,1048,1899,2389,2780,2104,2651,1686,2310,3097,2425,1327)
ppi<-c(1509,2657,1761,3179,2645,892,2983,2229,2029,1688,202,2980,2822,2748,911,2988,2785,2942,2168,1217,2555,2631,2365,2583)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007015"
rlt[mytot,2]<-"YOR127W"
ori<-c(756,2961,2835,3103,757,1830,691,1276,3189,148,3162,3062,865,2261,901,189,3030,1503,2141,1677,2029,1652,1478,282,1807,2042,1005,1397,919,1586,1141,1640,938,2436,2623,490,164,763,2583,2923,774)
ppi<-c(1468,2316,2573,3000,337,1330,2082,689,3157,568,3178,2542,2252,1653,2310,89,2603,2586,2196,934,2766,2367,1586,559,2119,2472,717,2059,2072,2206,474,2575,2478,2686,2494,163,1099,2284,2366,3001,2807)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007124"
rlt[mytot,2]<-"YOR127W"
ori<-c(1790,1737,2320,2892,1546,2599,3189,1183,1004,252,916,148,3038,2819,1873,1438,3141,485,2980,3145,668,1652,1069,1807,2434,2633,460,1267,2821,321,1924)
ppi<-c(2678,1998,2090,2548,1907,2513,3157,2676,1881,97,2411,568,2870,3042,2282,2713,3051,800,3046,3175,278,2367,2961,2119,2751,2388,1359,850,2962,1260,1518)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007264"
rlt[mytot,2]<-"YOR127W"
ori<-c(1790,1737,691,2455,3189,2740,332,2561,1180,3162,1000,901,2029,1397,2431,2821,774)
ppi<-c(2678,1998,2082,2760,3157,2792,699,2429,439,3178,2779,2310,2766,2059,2644,2962,2807)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006414"
rlt[mytot,2]<-"YOR133W"
ori<-c(3168,3090,3169,3143,3203,1048,3100,3199,3197,3184,2524,3185)
ppi<-c(3193,3192,2758,3087,3202,107,3186,3188,3128,3191,2778,3198)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007264"
rlt[mytot,2]<-"YOR134W"
ori<-c(1325,2255,2292,954,401,252,1852,1820,2055,2020,1268,208,1021,414,2626,2736,2446)
ppi<-c(2390,2818,2701,911,582,1472,1954,1503,1137,1299,2006,1744,2339,1322,2643,2561,2420)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000122"
rlt[mytot,2]<-"YOR140W"
ori<-c(679,3098,3084,137,2765,2599,853,2959,620,1663,2406,1142,836,2234,3135,2960,2062,399)
ppi<-c(2199,3129,2947,49,2569,2621,1329,3103,202,1683,2686,558,414,2687,2586,2777,2239,787)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006365"
rlt[mytot,2]<-"YOR145C"
ori<-c(2905,3094,3058,3096,3097,2974,3062,1759,2929,3171,2496,3103,3199,336,1984,2811,3080,3194,3129,3126,3182,3164,3179,3046,3120,3147,3026,3198,3138,3125,3145,3029,2195,3049,2636,2533,3088,2916,2764,3185)
ppi<-c(3008,3098,3055,2890,3152,3157,3083,588,3108,3077,2540,3119,3192,2455,1287,2853,3075,3064,3130,3115,3197,3111,3181,3052,3183,3132,3037,3202,2794,3061,3174,3173,1889,3116,3073,2808,3114,3144,2760,3186)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007005"
rlt[mytot,2]<-"YOR147W"
ori<-c(1699,2234,810,2317,3171,1085,2651,2114,649,3001)
ppi<-c(1021,1163,416,1531,3128,2108,2547,1614,382,2944)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000398"
rlt[mytot,2]<-"YOR148C"
ori<-c(1462,1725,3037,597,3057,2668,655,1228,3078,3097,599,1917,3150,624,1978,3149,2959,1205,2087,785,3034,3159,1491,2958,1602,400,1450,844,1976,361,2569,994,398,259,2165,3040,2159,1306,1518,2132,1172,1929,1977,2167,2981,995,2149,1055,1509,1360,1615)
ppi<-c(1321,1050,2486,183,2952,2327,2149,1869,2657,2480,349,829,3105,1238,2320,3191,3027,357,1384,2265,2960,2566,2254,2481,1636,2158,1531,1087,1667,71,2396,2404,748,92,2353,2535,2208,1310,1405,1367,1196,2545,1605,1971,2306,1561,1866,371,1464,2166,2260)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000027"
rlt[mytot,2]<-"YOR150W"
ori<-c(1155,29,627,1415,893,34,1395,1634,1789,855,79,41,829,687,1416,73,1393,688,216,1514,691,1992,2181,2257,938,269)
ppi<-c(2393,63,512,884,589,19,1395,1836,1605,1458,1220,288,411,873,2210,94,778,731,850,912,874,1848,1518,1665,973,184)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000398"
rlt[mytot,2]<-"YOR159C"
ori<-c(844,2309,2606,2774,1932,2232,2317,16,490,1614,672,230,1374,2104,1081,2439,2501,1479,2527,358,2539,1189,457,2155,119,21,1087,1196,1528,807,219,201,88,816,472,1743,1461,2121,2402,1499,207,131,1857,869,1627,2976,1784,2047,1655,1605,2443)
ppi<-c(854,1789,2710,2897,1385,2541,2650,1868,2213,2219,222,70,1686,2466,436,2336,2546,1219,1989,2592,2557,2159,2616,2409,915,1261,860,1445,1666,146,462,1907,477,298,2381,2791,1994,2428,2413,660,510,1965,1357,1035,2347,2882,1658,1262,1118,2122,3145)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006606"
rlt[mytot,2]<-"YOR160W"
ori<-c(2895,423,405,923,1284,2992,2652,2262,2891,54,1875,2116,1761,1243,2692,3185,679,1731,2007,1684,1313,2858,2323)
ppi<-c(2911,731,650,384,2366,3145,2708,3091,2884,2480,1194,2528,2932,2902,3175,2961,1157,2391,1444,946,1082,3190,1904)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0045944"
rlt[mytot,2]<-"YOR162C"
ori<-c(2969,2698,1156,671,2473,1089,2503,220,449,1239,2774,1506,2093,2022,2316,199,2310,1556,1235,2959,1459,1008,1461,972,2623,2305,2769,942)
ppi<-c(3057,2802,2053,303,2591,480,2313,549,495,663,2522,652,2066,1752,1712,1289,1616,2257,1624,2929,2372,1809,666,1754,2839,1693,2705,1804)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0045944"
rlt[mytot,2]<-"YOR172W"
ori<-c(2353,2496,992,1110,1320,1142,2776,299,1232,2830,2741,2305,2974,2810,2612,309,1207,338,947,2837,2690,1784,2007,904,2717,1151,3199,1930)
ppi<-c(1568,2327,1386,396,846,592,2827,473,1111,3069,2835,1397,2229,3109,2179,1078,519,1261,1806,2861,1991,2181,1410,1184,2903,567,3193,1822)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000122"
rlt[mytot,2]<-"YOR178C"
ori<-c(1801,2777,2445,463,610,2234,2085,2877,1484,1016,3049,303,931,2878,2373,2759,717,495)
ppi<-c(2512,2835,1576,123,632,1868,2168,3139,684,1583,2850,146,427,3119,2185,2671,1121,739)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006897"
rlt[mytot,2]<-"YOR181W"
ori<-c(1229,2052,383,2645,2281,400,794,2616,886,2638,1640,360,2738,234,3114,2982,1882,3186,3178,1708,2793,3148,1622,2560,3050,1711,2907,2418,1264,2136,1272,2445,1010,246,1893,432,1836,2458,2588,2850,1149,2218,2507,1656,1690,2999)
ppi<-c(2583,2545,1073,3183,2309,89,980,2831,2447,2573,2618,2489,2284,1469,2933,2915,2645,3071,2927,2975,3144,2602,736,2176,3054,1263,2699,2576,1603,2520,602,2367,1855,1216,1926,159,2150,2734,1914,2713,693,2252,2013,2265,1734,2511)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006970"
rlt[mytot,2]<-"YOR181W"
ori<-c(297,2281,2143,2616,2638,1533,360,404,1505,2562,2906,786,3148,1490,418,2205,2418,2336,2853,1836,2194,2006,831,762)
ppi<-c(1219,2309,2766,2831,2573,1174,2489,1884,2552,2988,3097,2303,2602,2478,1119,2121,2576,2505,2911,2150,2563,1876,1942,1732)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007015"
rlt[mytot,2]<-"YOR181W"
ori<-c(2559,1229,2649,1476,2645,1995,2452,2616,129,2995,1169,1882,2188,2593,677,1806,786,2620,2693,2793,933,837,2665,3050,521,1490,3100,2907,2398,1264,1681,2136,1893,2336,1938,1722,2588,685,1656,762,2999)
ppi<-c(2828,2583,2463,1311,3183,2559,2219,2831,415,2919,749,2645,2374,2678,2360,1412,2303,3088,2689,3144,2295,1940,2774,3054,2041,2478,3124,2699,2091,1603,1055,2520,1926,2505,1683,1051,1914,2070,2265,1732,2511)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006414"
rlt[mytot,2]<-"YOR187W"
ori<-c(890,2079,1480,1570,1765,2865,2232,2053,1544,3027,2406,3190)
ppi<-c(1547,2190,1929,1343,2093,3061,1931,2818,1473,3129,1816,3100)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030437"
rlt[mytot,2]<-"YOR190W"
ori<-c(2644,660,1048,496,87,1342,1470,384,1274,2705,3146,2563,1221,3058,231,620,397,2964,1370,75,2868,2397,1616,479,737,113,2317,79,2294,1244)
ppi<-c(2932,1712,1126,2396,1871,666,1303,353,1244,2669,3120,2689,745,2591,1815,903,984,2950,788,862,2667,1813,1571,1078,345,96,2505,1544,2354,2041)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006367"
rlt[mytot,2]<-"YOR194C"
ori<-c(2171,2107,1934,1277,2799,2656,911,790,2383,2824,1314,1847,2441,1506,2049,2169,882,2591,2632,3006,1900,705,1284,2583,2009,1676,2414,1743,2663)
ppi<-c(1134,2155,1348,1729,2507,2378,2531,376,1636,3127,2779,2365,2543,2566,1744,1959,3202,2330,2527,2606,1135,428,485,1941,1539,1291,2394,1590,2442)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000154"
rlt[mytot,2]<-"YOR201C"
ori<-c(1110,757,1421,2249,2500,2312,2894,2267,1871)
ppi<-c(908,1234,1538,2223,2224,1646,2724,1359,1049)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006413"
rlt[mytot,2]<-"YOR204W"
ori<-c(3028,2649,2398,1657,1363,1084,2864,2839,3079,2254,2476,2067,2420,2182,2293,2517,3022,3104,2993,2671,2439,2980,1187,630,2973)
ppi<-c(3044,2659,2609,2818,363,887,2584,2677,3125,1896,2484,2066,1932,2414,1922,2588,3007,3001,3037,2964,2692,2591,611,283,2450)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006348"
rlt[mytot,2]<-"YOR209C"
ori<-c(1109,355,2306,1209,1361,1446,3061,1694,349,1851,2590,901,1197,1940,58,1648,2363,2545,2358,1126,316,1145,859,610,286,783,2682,2016,916)
ppi<-c(2039,170,2101,1737,1153,1149,2220,1938,110,1203,2586,1580,405,974,1063,1383,2110,2590,1764,779,2511,2345,385,1480,1567,309,2069,939,606)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006348"
rlt[mytot,2]<-"YOR213C"
ori<-c(1940,2758,2029,675,1675,1072,2090,2886,1235,1868,1722,2869,2098,1151,1620,1354,2462,2022,2517,2417,2140,1823,2047,3151,1606,1171,2764,3175,2498)
ppi<-c(1635,2872,2167,1547,1652,520,1809,2089,650,1240,1053,2588,3023,716,1618,2612,1834,1551,2551,2517,1880,1898,1025,2100,2406,423,2876,3181,1531)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0009060"
rlt[mytot,2]<-"YOR221C"
ori<-c(1257,1874,2385,694,917,2272,1679,1839,2415,2550,1120,2469,1430,2787,2322,2014,3056,2435,3130,622,1661,2715,1774,2975,957,2018,3119,2258,1852,1544,1246,2742,2771,2842,1849,3202,465)
ppi<-c(689,1377,2828,2130,449,1797,1105,1503,2792,2570,564,2273,873,2935,1616,1027,3118,3135,3043,948,766,3115,1172,2473,456,1448,3159,1819,1540,1017,1649,3052,2258,2773,1918,3188,1670)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YOR231W"
ori<-c(363,1043,937,2355,823,418,266,2884,775,668,1960,91,1912,100,379,1737,994,1209,2427,1402,1922,858,572,1422,3047,624,1051,1968,280,3100,1671,2211,2324,1686,3079,2426,2383,208,50,368,2626,1086,1948,863,2804,374,2648,2372,621,963,1518,457,1189,1237,1198,1539,2904,3150,463,2458,785,2172,1705,2664,2946,777)
ppi<-c(242,2203,395,1906,2549,264,475,2886,1634,899,1662,1574,2200,1249,1829,1367,662,878,2595,839,1712,670,1950,1301,3031,902,2133,3040,843,2847,1699,1876,2364,679,3158,2541,2480,413,36,553,2771,480,2453,905,2933,2748,3074,2673,2272,1523,1665,215,1632,836,793,1841,1784,3172,238,1893,1012,3178,1630,2772,2755,490)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000070"
rlt[mytot,2]<-"YOR249C"
ori<-c(796,2631,2725,1794,1853,874,963,1256,1892,862,548,448,2833,1341,3130,585,857,25,2935,2576,1273,1627,1643,1008,355,2949,2327)
ppi<-c(1962,3204,2852,1440,3202,1978,1483,3197,1003,796,122,3193,2787,3200,3151,1922,1569,3195,3198,2745,1168,636,1508,3199,1395,2948,2701)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0016567"
rlt[mytot,2]<-"YOR249C"
ori<-c(2631,63,1705,1853,245,345,350,1256,1892,448,1835,2833,2310,1341,2959,483,25,2935,1818,1008,50,2480)
ppi<-c(3203,1896,2284,3202,505,1991,1487,3197,1003,3193,2231,2787,2149,3200,3076,674,3195,3198,908,3199,1079,2528)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006413"
rlt[mytot,2]<-"YOR260W"
ori<-c(2625,2653,1740,1880,1995,1499,1552,2349,2856,1946,1849,1762,1913,2812,2163,2787,2833,2304,2602,3032,2769,3100,797,244,2132)
ppi<-c(2657,2779,3203,2530,1067,1248,1307,2573,2831,1296,2549,1638,1131,2576,1611,2210,2751,2612,2877,2859,2802,3164,270,119,1816)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006457"
rlt[mytot,2]<-"YOR288C"
ori<-c(2904,2057,2644,2134,2990,3077,1665,2442,2161,2602,2758,2599,1786,690,1800,2341,1959,1244,535,109,2235,1362,2637,1289,2454,2589,371,2964,2331,1755,2355,824,1707,2585,2777)
ppi<-c(2853,1400,2323,2247,3100,3092,1014,2239,2270,2848,2141,2098,2543,1012,1475,2682,1281,470,1712,844,2173,1249,2331,2404,1934,2208,201,3112,1906,1683,1926,124,2483,2320,2195)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000282"
rlt[mytot,2]<-"YOR299W"
ori<-c(2252,2435,460,2674,1347,1946,1947,789,1541,2138,1098,2393,3107,3137,2525,2709,2936,860)
ppi<-c(2118,2012,1781,2730,743,1759,1068,72,1553,2028,1917,2085,3157,2420,2531,2846,3009,440)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006888"
rlt[mytot,2]<-"YOR307C"
ori<-c(1635,2287,2434,2619,1486,1348,929,2902,482,2535,2005,706,966,1834,1224,265,2268,1507,844,187,1355,631,835,2213,1657,2926,2487,654,1476,1699,701,55,2755,1568,154,1452,30,190,2258,1043,3152,672,1673)
ppi<-c(1065,1810,2852,2409,869,2185,2611,3006,327,2881,2862,751,538,2482,689,552,2334,1528,2527,2094,2628,735,1332,2599,938,2913,2139,344,801,2875,2324,1748,2798,1793,2003,853,1462,81,2453,1273,2864,1361,2346)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000398"
rlt[mytot,2]<-"YOR308C"
ori<-c(2413,1462,1179,54,1893,240,2196,2608,2958,2440,972,2681,1394,1143,1946,560,787,2519,1914,2459,1798,1809,2924,786,2780,2299,2847,1376,1884,1656,2789,2341,1068,2667,2801,2933,2580,590,792,2056,3159,3196,2264,719,2533,1739,3034,448,3005,2883,1319)
ppi<-c(2132,791,2469,22,1056,2089,2711,2902,2567,2356,288,2899,1735,2324,997,151,441,1940,932,2470,1420,2125,1857,2652,2768,2219,2692,1171,1619,1387,2787,2177,1037,2732,3159,2439,2226,752,944,1858,3077,2832,2142,1703,2453,1562,2624,173,2593,3201,2149)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000154"
rlt[mytot,2]<-"YOR310C"
ori<-c(3138,2885,2952,3100,3194,3202,3087,2264,3009)
ppi<-c(3203,2796,2971,3086,2928,3201,3112,1896,3030)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006365"
rlt[mytot,2]<-"YOR310C"
ori<-c(2961,3189,2237,2748,3138,2917,2491,2011,2418,2885,2522,2913,3183,1339,1589,2291,2960,3149,2905,2676,3054,2952,2619,2386,2839,3100,2644,3090,3194,3202,3084,2542,2111,3087,2280,2891,3041,3123,2508,3009)
ppi<-c(3060,3176,2515,2509,3203,3144,2542,958,2419,2796,2657,3009,3177,2550,910,2560,2543,2869,2862,2573,3155,2971,2583,2946,2919,3086,2352,3183,2928,3201,3157,2807,1914,3112,2514,3043,3081,3127,2870,3030)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030490"
rlt[mytot,2]<-"YOR310C"
ori<-c(2130,2748,3138,3042,3022,3175,2909,2952,2900,2428,3100,2750,3064,2679,3202,3171,3182,2928,3087,1722,2981,1656,2870)
ppi<-c(2924,2509,3203,2890,3069,3179,3075,2971,3085,1775,3086,2858,2940,2795,3201,3054,2936,2972,3112,556,3125,1501,2933)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000398"
rlt[mytot,2]<-"YOR319W"
ori<-c(1613,2683,2352,115,2708,2359,1319,2686,3198,2538,1039,3054,2857,3056,2609,2903,2167,3129,1900,1766,2528,2957,3068,1721,3020,2613,2019,2459,2879,1081,2047,1983,2733,589,3166,3142,1731,2469,1581,1558,2729,2051,3048,1567,2498,2100,1330,1074,2744,2388,262)
ppi<-c(1336,2861,2386,46,2847,2614,2112,2377,2677,2430,489,3116,3039,2715,2841,3062,1508,3163,1277,2341,2062,2436,2417,2821,2615,2729,1839,1961,2003,629,1995,2238,1869,267,2985,2765,2637,2437,1346,763,2599,2608,3174,1935,2548,1824,1504,357,2406,2604,2451)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006487"
rlt[mytot,2]<-"YOR320C"
ori<-c(811,3180,2353,2953,3171,3202,1967,2383,3024,275,2262,2075,916,3143,3179,3055,2893)
ppi<-c(2237,3193,3087,3008,3146,3009,1346,1829,3131,359,1871,1382,1072,2954,2976,3125,2628)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006897"
rlt[mytot,2]<-"YOR326W"
ori<-c(1657,2129,2141,940,400,995,243,462,2402,532,2695,2280,747,1184,2099,2545,1044,3160,944,2837,1333,1221,1019,1908,1599,3190,3109,2572,3002,651,741,1598,1357,134,2986,1619,2698,2995,1714,1173,2924,2294,3013,1868,3173,2975)
ppi<-c(2190,3189,1987,474,938,617,698,217,2470,2203,2599,2166,3203,1172,1632,2024,2131,2996,1616,2126,611,2617,325,2587,1464,3194,2877,2757,2830,2602,518,791,1718,911,2480,1509,2758,2809,2068,1587,2968,2396,2677,2227,3037,2627)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006897"
rlt[mytot,2]<-"YOR327C"
ori<-c(671,2953,424,1499,2758,341,587,2679,1504,1556,1720,2438,692,252,2832,1026,1767,1760,1998,829,2689,1142,1467,2983,872,3053,2904,2482,2768,2763,2699,823,2224,524,2173,2720,3021,1168,2331,3157,2713,2744,3167,2686,3152,3023)
ppi<-c(2380,2861,450,919,2326,126,817,2778,2400,2343,2784,2577,847,835,2668,2264,2247,1714,2815,2050,2996,2282,533,3008,1147,3138,3032,2405,2221,2813,2742,413,1782,1165,1969,3160,2886,1231,1729,2994,2769,2291,3040,2414,2908,2688)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006897"
rlt[mytot,2]<-"YOR329C"
ori<-c(3162,2420,2478,1335,3114,2718,2649,1433,2776,1933,3099,3125,37,2913,949,2513,3130,1628,1295,3043,2161,3085,2491,1863,1881,1966,3051,3025,1280,1999,3135,1190,1823,482,2849,1625,2037,3131,755,1606,3197,1729,1825,2557,828,2184)
ppi<-c(2619,1838,1564,737,3007,3084,2545,847,2435,2674,2729,2349,98,2682,1844,2553,2610,1723,2247,2799,2106,2492,2920,1246,1464,1704,2342,2484,2611,2144,3151,523,2370,922,2684,887,2211,2912,1494,1746,3196,2543,2391,2389,1045,2208)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007015"
rlt[mytot,2]<-"YOR329C"
ori<-c(2988,3162,3014,3005,1335,1369,1690,1433,2898,892,3072,3130,2834,2978,2411,997,2899,1852,1318,2161,1573,1889,966,1881,490,1409,1145,3051,1216,1280,932,1999,2849,2916,3076,2985,755,2564,1729,3007,2184)
ppi<-c(2771,2619,2780,2905,737,1015,1523,847,2819,1001,3149,2610,2571,3014,2283,519,2519,2362,1658,2106,1791,2618,1427,1464,1705,2110,891,2342,1617,2611,358,2144,2684,2536,2998,3037,1494,2214,2543,2632,2208)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006261"
rlt[mytot,2]<-"YOR346W"
ori<-c(2420,56,523,2952,853,1615,22,1118,1007,3171,491)
ppi<-c(2041,83,3029,2668,817,745,410,1981,1640,3077,686)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YOR351C"
ori<-c(493,405,762,822,387,1057,1444,3201,166,687,2337,2634,1374,1067,557,1131,2371,2503,2758,1798,1222,1045,3,2850,2330,959,1160,1143,1171,2190,106,2244,346,1886,3199,2787,1462,273,804,1146,2610,1149,310,1145,1547,1030,2108,149,68,3059,1130,1043,2422,351,3160,789,2687,3189,2218,979,1498,3106,2023,2009,1788,2879)
ppi<-c(223,2158,392,85,2355,501,1079,2945,792,596,1969,2855,2461,1820,1705,1355,2062,2642,2014,1177,2419,867,1357,2235,2242,1004,2511,2608,1391,2468,1157,2099,1889,1411,3186,2685,1887,419,330,1597,2348,560,947,2363,860,2333,3066,807,2040,2859,1649,374,2125,319,3190,2417,2623,2871,1748,2162,1358,2792,1891,2249,1971,2787)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007131"
rlt[mytot,2]<-"YOR354C"
ori<-c(2009,2291,781,258,2285,483,268,1789,3163,2253,1859,3036,324,2549,1302,2335,2231)
ppi<-c(1730,1598,2397,1606,2225,2223,124,2054,3078,1835,1601,2910,316,2960,2623,2538,2060)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0009060"
rlt[mytot,2]<-"YOR355W"
ori<-c(276,1385,1741,1811,1098,1842,507,2260,528,3171,1584,1854,540,945,2921,3027,1736,1952,1333,2721,2113,130,143,3136,2647,644,2036,2450,631,2555,739,3168,2092,671,2062,1453,554)
ppi<-c(107,670,1327,2410,526,1167,282,2100,488,3197,965,1185,293,643,2971,3172,1060,1541,1267,2360,1933,43,91,2886,2730,361,1359,2073,243,2233,901,3194,2695,880,1114,1684,1859)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006623"
rlt[mytot,2]<-"YOR359W"
ori<-c(14,899,651,1978,1331,377,1544,2625,1994,1542,1370,250,1951,295,1165,587,221,2363,2975,1662,203,477,357,1937,131,614,301,1339,752,259,68,124,903,1631,2435,2067,709,258)
ppi<-c(1019,737,443,2697,1629,1347,1650,2698,1624,2235,541,247,2650,1913,1608,1001,834,1787,2897,1558,954,949,1888,1257,233,176,932,795,702,2405,2523,1285,1098,1802,2050,2946,845,2183)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007131"
rlt[mytot,2]<-"YOR368W"
ori<-c(2979,1787,936,2538,757,1006,1810,961,737,3043,2260,2496,1585,32,595,2071,2179)
ppi<-c(2933,1093,2514,2178,1020,2655,1114,271,906,2895,2085,1576,1050,1531,1680,1575,2786)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006348"
rlt[mytot,2]<-"YPL001W"
ori<-c(925,1987,2711,585,1449,1844,1062,2236,336,1715,2465,2132,1447,1712,462,995,1695,1961,1474,2827,1792,329,905,2412,787,1672,2182,3188,2165)
ppi<-c(1441,1716,2595,2044,1274,1166,1724,2126,146,1098,2303,1837,3203,841,1123,1392,1321,1393,807,2653,2248,1667,297,2497,1847,844,1650,3113,2069)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006623"
rlt[mytot,2]<-"YPL002C"
ori<-c(1814,187,2744,750,588,600,3021,2329,123,1333,2176,2230,2175,265,949,1371,2894,2859,1475,2599,1083,1162,1530,1795,2582,1450,458,877,1601,1796,2815,596,2937,1613,2049,2561,47,1324)
ppi<-c(1877,81,3042,1729,1103,1782,2201,2428,548,2081,1752,2590,1713,990,3202,1138,2727,3141,1320,2237,1766,3203,1968,874,2723,687,724,503,896,1932,2339,1764,2970,1275,1245,2200,433,2597)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006367"
rlt[mytot,2]<-"YPL011C"
ori<-c(1761,3029,1324,464,2440,1223,853,1309,2062,3107,539,884,2388,873,525,2963,1711,2241,3097,1475,1962,2653,1748,2761,3075,1379,1337,3085,3202)
ppi<-c(636,2866,1260,1551,2910,3003,2296,672,2672,2859,1479,2846,2802,1710,805,2677,2382,2411,2774,2541,1338,2804,631,2268,3059,1037,1785,3183,2414)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YPL026C"
ori<-c(1180,2903,1355,1904,678,2879,2450,1550,3104,1170,631,1152,2866,42,1722,303,3030,2931,2681,2987,184,1013,1891,533,1033,985,2743,1944,1758,832,1888,3138,2578,489,914,2828,2845,536,1285,2082,2088,1336,605,1034,2349,2771,3005,987,2283,1272,1715,1989,850,2437,2747,2831,1464,209,2454,797,2439,2018,730,2509,2917,3100)
ppi<-c(568,2314,597,752,2240,2920,2634,2426,3079,768,1581,2045,2927,2825,1905,1390,3107,2891,2521,3067,1287,1605,1889,895,911,1117,2315,1915,2052,1254,1759,3177,1834,374,793,2812,2791,602,757,2745,1549,554,1663,833,1960,2746,2808,1092,2254,1380,1600,1695,1833,2347,2801,1970,1653,1437,2450,2631,2896,2025,1392,2629,2594,3168)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0045944"
rlt[mytot,2]<-"YPL026C"
ori<-c(2195,2184,2634,2101,2934,1398,953,3168,2808,532,963,2039,1296,451,1079,605,1078,2555,2016,728,2423,1920,2005,2916,2742,933,1189,2158)
ppi<-c(1362,1601,2142,1145,3015,818,458,3142,2362,1280,1723,912,1837,392,488,1663,508,2609,2301,657,2601,2082,1226,2946,2885,956,698,1686)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YPL031C"
ori<-c(1911,2276,1701,816,760,202,217,1256,2884,329,405,7,2625,540,100,1059,166,213,1464,1007,2126,403,1137,196,1869,819,348,2032,765,2507,3090,1677,3064,150,2690,460,1279,1252,1629,427,2648,198,3138,1356,2984,1688,2550,2767,2652,552,1792,2260,1323,708,478,3018,2892,2499,1006,957,2346,461,3095,1946,2277,1471)
ppi<-c(1478,2376,632,69,2199,177,554,2101,2393,532,2665,1556,2086,1654,1813,1187,102,409,1256,574,2664,472,1692,936,1637,976,1989,2776,1150,2743,2795,873,1753,36,2881,761,2004,967,1039,513,2676,58,2768,631,3077,2561,2810,3018,2374,2083,2380,2417,1687,688,205,2642,2775,2587,391,423,1878,1923,2550,1616,2053,1104)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006897"
rlt[mytot,2]<-"YPL032C"
ori<-c(221,1323,613,1359,361,767,116,297,1110,79,2400,859,1422,144,2359,2374,106,3108,416,1462,759,634,394,1244,1943,3153,2390,1312,3045,396,1229,701,2109,1651,2673,1095,2122,2623,3010,1843,1671,1744,3180,3021,922,2273)
ppi<-c(2201,2434,607,787,990,213,492,191,2561,2267,2039,2425,2831,720,2295,2559,2249,2938,1743,1894,396,2501,251,1926,1759,3175,2562,2578,2572,2520,897,336,2231,1467,2606,1064,2154,2583,2190,2133,1043,2371,3033,1940,1881,2454)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000122"
rlt[mytot,2]<-"YPL042C"
ori<-c(2967,2204,2629,1619,2617,2984,1149,2947,1742,2413,908,2665,1222,150,1976,2273,192,1835)
ppi<-c(2736,1443,2948,698,2854,2947,645,2971,735,2295,1669,2691,690,400,3203,2550,1212,1564)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YPL042C"
ori<-c(57,2915,664,838,3101,1884,2218,1670,2271,2441,959,2053,1804,1785,2461,2193,2996,2970,1604,2679,1434,1482,2402,2037,233,1534,2023,1768,3005,2560,1607,1381,910,2420,197,1124,2322,298,238,822,2666,1353,1624,1146,644,2052,1975,1972,666,2056,1759,437,1737,736,2522,613,1576,561,1603,2443,2709,965,796,1103,3073,1873)
ppi<-c(41,2341,231,78,1596,1048,2737,1864,1659,2223,1583,1997,2923,3194,2421,3105,3024,2869,1311,2622,1773,2974,2296,2046,393,1261,1932,1744,2760,2252,1607,767,1972,1926,126,1142,1807,513,150,1061,2858,635,1554,1270,288,2225,2888,1749,1608,2628,2795,370,2089,945,2122,1745,1588,1652,819,2437,1941,1559,2140,1518,2814,1546)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006623"
rlt[mytot,2]<-"YPL045W"
ori<-c(2717,2824,810,2215,1472,3130,1741,2960,3013,2397,638,1608,3147,2941,2235,283,712,2573,2134,2726,796,717,157,766,595,531,2121,688,861,3167,1655,302,1195,2646,2231,2860,1844,1128)
ppi<-c(2848,2921,906,2542,1846,2919,2221,2784,3045,2419,208,840,1996,2854,1752,696,937,2773,1987,2706,1337,1101,2082,414,570,215,2818,432,929,2805,2170,1688,1347,2160,1814,2301,1506,2015)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006487"
rlt[mytot,2]<-"YPL050C"
ori<-c(504,2673,2292,1679,2585,3198,1763,1659,3110,297,615,2681,1081,2793,3122,2996,2606)
ppi<-c(2177,2653,2518,3202,2864,2991,1076,895,3053,143,856,1997,3201,2557,2889,3102,2643)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006970"
rlt[mytot,2]<-"YPL059W"
ori<-c(730,1988,985,2966,2593,1616,2739,630,2075,2246,829,836,3014,1976,461,2896,3013,2879,1837,1089,3043,2083,1486,1949)
ppi<-c(1380,1881,1284,3047,2441,1073,2564,2486,2000,2388,229,2484,2704,2625,1192,2693,2694,2520,1016,2005,2683,2415,2033,2387)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006979"
rlt[mytot,2]<-"YPL059W"
ori<-c(1798,1578,2305,2283,1319,1100,3174,2514,2332,2238,1196,2852,2381,645,2885,2429,3185,3161,2740,1930,2822,1922)
ppi<-c(1052,920,1827,2140,1495,342,3179,1395,1903,1676,2364,2695,1889,891,2885,2582,3144,3156,2844,2236,3011,1288)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0045944"
rlt[mytot,2]<-"YPL075W"
ori<-c(2823,2896,336,424,2870,2781,2662,1440,2026,1619,1747,2419,3171,2600,3153,771,965,278,758,3013,770,401,2367,894,2752,3183,1284,1398)
ppi<-c(2708,2970,777,338,3016,2877,2688,1200,2756,1805,1934,1709,2967,2782,3164,1388,462,1136,1558,2884,2515,1546,1696,922,2866,3180,717,1792)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YPL089C"
ori<-c(669,238,1844,1097,1512,1204,642,1463,1662,2153,2956,601,2150,1273,142,858,1062,1003,225,1585,641,2703,743,245,1588,2041,3203,837,1527,2167,666,476,1006,2704,1230,2476,350,759,2036,2941,401,1702,2356,1743,2094,747,2884,1880,2795,848,2602,1004,1046,2775,1215,1322,1608,190,2111,1935,1848)
ppi<-c(1142,2115,1446,1934,881,1048,336,2338,1412,1728,2666,356,2336,724,746,1207,1660,2360,1910,1264,1425,2619,966,144,1679,1519,3167,2403,1096,1755,762,823,969,2634,1686,1819,226,405,1829,2880,250,1785,1618,994,1635,830,2600,1280,2947,1792,2806,423,2587,2953,1701,1194,1466,153,967,2101,2174)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0045944"
rlt[mytot,2]<-"YPL089C"
ori<-c(2289,511,2419,2383,332,2663,982,2729,1630,2051,1185,2823,2625,154,981,1994,80,3132,2287,2482,2449,3131,2503,3091,799,1873,1864,1453)
ppi<-c(3203,269,1757,2224,247,2779,524,2665,1119,1129,1703,3138,1877,271,454,1464,77,2977,2148,2630,2034,2830,2677,2544,397,1059,1257,882)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007124"
rlt[mytot,2]<-"YPL115C"
ori<-c(572,498,1477,2989,622,2110,2149,2069,1484,1782,3028,575,895,512,2536,1103,658,491,1357,701,1030,3160,1610,3140,436,231,2710,2686,2884,152,1764)
ppi<-c(2892,1403,830,2710,1951,2612,3008,2053,2631,966,2424,1451,2979,27,2352,1834,823,1457,659,365,454,2633,3045,2643,2047,2293,2938,2358,2983,847,1905)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007264"
rlt[mytot,2]<-"YPL115C"
ori<-c(572,498,1735,744,2149,1910,1684,1601,2666,2079,3137,204,103,1878,2884,2659,379)
ppi<-c(2892,1403,2887,1026,3008,2328,2785,1402,2865,1536,2995,1850,2570,2766,2983,2363,2790)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006413"
rlt[mytot,2]<-"YPL118W"
ori<-c(2405,51,2462,2126,3201,792,972,2511,1439,2694,380,230,618,1633,277,1869,2296,896,355,1481,1667,1227,904,898,2179)
ppi<-c(1908,973,2135,2158,3201,545,1068,2403,428,2723,1863,594,323,2451,168,2357,2021,1606,1055,1349,2148,569,1326,441,2381)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006413"
rlt[mytot,2]<-"YPL119C"
ori<-c(99,830,234,36,262,1471,603,512,913,92,2046,994,2122,548,1167,1124,51,877,1202,437,88,589,425,884,501)
ppi<-c(820,1659,102,2399,14,941,1059,1765,245,57,2409,977,1479,2684,572,2476,1581,2685,1946,876,1524,267,1098,202,1609)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006623"
rlt[mytot,2]<-"YPL120W"
ori<-c(2553,962,1813,2589,1083,2655,667,2345,2206,3108,2047,1475,2782,2216,2834,501,1032,3075,2179,133,2512,2432,243,296,507,2164,2275,3114,253,2686,2283,1178,2053,2331,2909,2939,3017,1738)
ppi<-c(2683,3193,1370,2540,1900,2282,2109,2664,1937,2692,1545,1076,2362,2340,2637,764,979,3190,1942,16,3202,2731,1881,71,602,1953,2849,3151,327,2544,2169,1987,1003,2072,2798,3065,3022,2246)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006606"
rlt[mytot,2]<-"YPL125W"
ori<-c(888,2484,1470,1452,2002,2662,1894,2364,2197,2833,2557,1142,2882,1731,2857,583,2045,3013,567,2666,1913,964,2086)
ppi<-c(2282,2370,1135,1045,2518,2592,2653,2172,1892,2458,2681,2408,2547,1284,2489,2349,1734,2526,362,2732,1709,2043,2344)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030490"
rlt[mytot,2]<-"YPL126W"
ori<-c(844,3193,2978,3052,3194,3154,2473,2946,3024,2705,3161,2446,2050,802,3057,3056,2906,3200,3067,3203,3062,1581,3195)
ppi<-c(801,2921,3021,3071,3186,3142,1867,3014,3165,2877,3123,2666,2071,1120,2862,2884,2833,3164,3134,3202,3143,2966,3191)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006367"
rlt[mytot,2]<-"YPL129W"
ori<-c(1648,2312,624,42,1524,1784,1567,15,503,2936,552,1406,2823,1411,1381,2850,2954,2840,1776,1115,2117,1848,1415,2064,3019,2415,20,2540,2608)
ppi<-c(579,2794,587,1598,2822,3058,2775,42,1551,2802,1003,2785,2539,2169,1299,2996,2606,3080,2762,2402,1454,1277,394,2176,2918,2079,2578,3111,2386)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000027"
rlt[mytot,2]<-"YPL131W"
ori<-c(3145,2902,2990,3138,3042,2182,3079,1155,1740,2192,1643,2768,1726,2616,3187,3024,2064,2225,3115,3166,2386,2157,254,3202,1011,602)
ppi<-c(3027,2885,2953,3155,3092,1798,3007,857,1219,2753,1805,3119,864,1862,3185,3018,1638,1403,3006,3177,1640,2472,138,3198,533,245)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006348"
rlt[mytot,2]<-"YPL138C"
ori<-c(562,3019,1924,1200,569,1857,582,3051,1821,1901,1476,2616,2911,1185,2223,608,296,1027,1529,2493,2674,3124,3077,697,1196,975,959,2510,2113)
ppi<-c(1487,3048,2567,1888,824,1315,1204,2305,1133,1304,682,2166,2872,441,2095,715,958,500,1080,2600,2413,2932,3099,2247,2386,273,554,1850,2133)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YPL140C"
ori<-c(2202,882,2042,406,1509,806,2464,2583,63,1178,3145,2230,1751,1518,1875,536,3112,2839,945,713,857,2998,551,2163,989,1552,3087,910,3036,1631,69,1402,1250,2477,3064,2212,2703,2117,1698,1702,2014,1767,109,2507,367,1362,1230,1776,125,2810,558,814,1437,2203,2933,654,470,2253,3009,1869,571,1176,719,1457,2184,2887)
ppi<-c(1438,1876,1343,12,1780,453,2286,2446,274,814,2967,2237,2316,1959,2144,966,3159,3082,894,398,2593,2866,1953,2760,1098,1362,2335,3085,2890,1667,1506,679,1935,2129,3042,2081,2888,2102,997,893,1300,963,1348,1779,185,2959,2209,1693,1547,2694,1349,420,2184,1552,2930,2632,2159,3167,3060,1012,1920,1113,1267,1919,2041,2833)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000398"
rlt[mytot,2]<-"YPL151C"
ori<-c(1860,2860,1038,1516,1702,416,2087,1506,149,225,1043,2015,1150,2992,2116,1501,2065,1864,1428,2114,1728,1273,2804,1845,1411,937,3057,3201,2969,3052,1410,1920,2586,1002,2352,2667,1889,1966,1149,1256,2994,1409,805,3065,1639,2094,2171,3033,2984,2698,1320)
ppi<-c(2748,2990,2245,623,1063,1905,2880,1787,2366,1959,284,1210,726,2749,1101,649,1800,1295,2175,2023,1105,2391,2621,2094,2084,1708,3011,2989,2581,3165,1180,2636,2895,395,1773,2375,2053,1866,1279,579,2984,2202,456,2887,1703,2055,1788,3070,3133,2164,2458)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006970"
rlt[mytot,2]<-"YPL152W"
ori<-c(2926,2993,1721,2015,2330,2972,2630,919,187,2130,1697,1234,330,522,2132,1725,1477,313,519,2709,2703,744,1382,144)
ppi<-c(3036,2813,1162,1261,2475,2971,2053,2741,1942,1594,1038,2514,2088,2112,1562,1916,2313,2224,160,2526,2214,2382,1751,1327)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007131"
rlt[mytot,2]<-"YPL164C"
ori<-c(2536,2335,765,3203,2305,910,2507,2942,1264,1584,2165,2065,2963,2797,535,2090,2313)
ppi<-c(2414,2990,2107,2878,2126,2604,2100,3013,1115,1689,1483,1594,3049,3203,2076,1388,2680)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006406"
rlt[mytot,2]<-"YPL169C"
ori<-c(1869,538,2721,2795,186,940,726,2194,865,1943,2635,425,849,581,3035,2982,2161,2225,1531,2073,1268,2080,2723,2417,1135,2143,2766,2732,1698,2572,2319,1448,3020,2591,2791,2072,1951,3179,1923,1358,1159,1378,58,1423,278)
ppi<-c(1258,153,2762,1786,104,2259,281,1675,293,2061,2819,1947,2009,1915,3145,2520,1424,2333,2416,3204,700,1234,2277,2016,1499,1753,2357,2359,2500,2299,2851,2785,2915,2493,3051,1456,1444,2550,1364,2192,2390,764,19,1516,1633)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000398"
rlt[mytot,2]<-"YPL178W"
ori<-c(1635,202,206,640,310,2242,1358,2355,2487,1777,2413,1534,1426,1276,2797,120,541,1140,480,2843,1925,215,2310,1864,2817,2270,2000,1651,2135,3067,3094,631,1233,3120,2835,2662,2919,1378,556,1511,2927,3201,2073,1789,2872,1457,2074,2373,3131,2898,2514)
ppi<-c(1810,105,2758,240,507,2135,2153,2659,2385,2382,1769,597,913,1660,3023,20,227,660,139,2489,1871,2098,2319,2205,2563,1799,1302,1937,1761,3185,3052,1646,1046,3168,2464,2375,2273,1228,971,3204,2791,2498,1309,2671,2901,1896,2097,1576,3169,2761,2535)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000027"
rlt[mytot,2]<-"YPL193W"
ori<-c(2584,2799,1721,1699,550,2911,2476,3060,3175,3030,3005,2958,2995,3066,1518,850,3070,3098,326,1957,2907,2679,3114,688,448,637)
ppi<-c(2801,3087,2491,1085,265,3048,2590,3098,3182,2977,2995,2741,3157,3160,1349,1043,3060,3141,1829,952,3131,2656,3122,278,210,838)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006979"
rlt[mytot,2]<-"YPL196W"
ori<-c(2233,315,2033,2545,2016,1299,2834,1867,2262,1261,2469,2972,2649,1943,2944,3042,2506,3059,2743,2681,3060,1909)
ppi<-c(2399,100,1263,2783,1871,454,2955,1238,2280,752,2532,3026,2076,1903,2886,2773,2083,3107,3200,2170,3166,1606)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YPL203W"
ori<-c(3103,1571,2307,1016,388,1341,120,380,1945,533,329,335,1884,1541,319,1990,1115,221,2794,1520,1759,2525,1174,659,1248,501,386,2451,556,2392,2174,1841,2245,38,1631,1297,1463,2756,3108,1819,324,1793,3127,2045,3117,2254,1605,1876,3178,944,2131,2137,3031,1752,1140,2895,1660,1798,1966,1129,2908,1145,808,2113,1168,1607)
ppi<-c(3126,2135,1361,125,1845,720,294,2174,1447,643,1196,1713,2230,2079,1500,1878,595,317,2272,743,1784,2060,1685,1182,1191,577,1952,2725,1013,2422,1628,1346,1561,9,640,1364,2050,2943,3196,1148,923,1769,2466,1369,3149,2391,1077,2223,2566,2522,1635,1350,2777,1442,825,2143,1601,2065,1230,495,2529,1365,1921,2215,1300,559)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007124"
rlt[mytot,2]<-"YPL203W"
ori<-c(2128,1919,1833,1434,2704,2508,1118,2226,2682,1349,327,2395,386,2694,1002,2918,1421,1834,3108,2815,324,567,2010,379,1049,2254,2417,1708,418,363,1460)
ppi<-c(2261,2385,1032,999,2559,1948,921,1827,1467,647,2279,2249,1952,2916,1079,3184,837,1710,3196,2917,923,1832,2162,1773,1860,2391,1768,1216,2012,1900,1688)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006888"
rlt[mytot,2]<-"YPL218W"
ori<-c(3047,649,2821,1927,2934,977,1876,412,1889,1746,2268,411,2101,490,3136,3003,178,3166,2062,2150,2970,2098,3122,1462,1091,1448,2774,1837,2952,3106,1356,509,710,2671,1972,3181,2285,2379,3186,3096,2167,904,3161)
ppi<-c(3094,259,2102,1731,3003,2836,2174,503,807,2041,2048,1429,1096,2455,3158,2953,183,3203,2341,2145,2582,1717,3150,2131,582,1394,3195,1136,2964,2051,2816,2682,1227,2872,3178,3202,1943,3051,2753,3008,2119,537,3188)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006487"
rlt[mytot,2]<-"YPL227C"
ori<-c(2227,3109,1502,3157,3145,3174,663,2902,3028,129,1934,1821,2036,1920,2783,2885,2586)
ppi<-c(2479,3152,1810,3053,2868,2932,286,2933,3045,83,1771,1141,2081,1742,2658,2880,2715)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006365"
rlt[mytot,2]<-"YPL235W"
ori<-c(2840,2979,3020,3023,3157,3176,3171,1242,2516,2778,2458,3177,3128,1318,2473,2492,2724,3049,2916,3135,2945,2074,2571,3040,2940,3139,2539,3140,3106,3073,3058,3099,1859,2935,1895,1307,3050,3079,2557,3115)
ppi<-c(2944,2988,3002,2744,3142,3198,3065,431,2891,2814,2367,3176,3146,2322,2442,2767,3014,3012,3039,3083,3156,2521,1652,3023,3158,3013,2041,3180,2401,3049,3177,3174,1659,3033,3036,645,3091,3105,3120,3151)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006457"
rlt[mytot,2]<-"YPL240C"
ori<-c(3189,3175,3065,1751,3185,2800,2309,2470,1842,3197,3203,3180,1360,856,6,439,2663,2650,1386,2279,3173,3176,3198,3063,3200,3191,1319,3193,3201,3095,1446,2947,3190,3202,2587)
ppi<-c(3199,3192,2717,3140,3184,3057,1628,2407,1115,3164,3193,2978,827,988,474,72,1490,2948,2055,1923,3078,3202,3128,2583,3198,3191,784,3196,3082,3049,794,3104,2977,3204,1726)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006970"
rlt[mytot,2]<-"YPL242C"
ori<-c(993,1669,1811,14,1020,55,2621,1367,3202,600,718,1589,2273,1724,1223,1084,1999,1873,1145,493,1374,882,1989,378)
ppi<-c(1621,1661,937,44,2464,117,3057,2584,3074,834,192,2473,2301,2649,1443,2466,2328,2801,467,1108,2730,2429,2342,1638)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007015"
rlt[mytot,2]<-"YPL242C"
ori<-c(2363,2754,3115,2536,2294,257,567,14,2866,942,2661,1569,988,2408,2701,2726,1589,2190,1069,1770,3132,1529,151,1002,170,1724,120,1534,1397,2205,1542,989,2191,1873,2905,3158,1131,2829,882,2919,1833)
ppi<-c(1732,2299,2629,2257,1785,546,2288,44,3127,1199,2790,2221,2142,1826,2286,3075,2473,2807,1615,751,2655,2843,1178,1452,1961,2649,354,1927,1678,1809,692,2346,2390,2801,2929,3179,2010,2890,2429,2660,2672)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000154"
rlt[mytot,2]<-"YPL266W"
ori<-c(3081,3048,3037,3199,3166,3153,3053,1774,2694)
ppi<-c(3145,3042,3072,3161,2799,3047,3146,1093,3132)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006365"
rlt[mytot,2]<-"YPL266W"
ori<-c(2613,3152,2988,3080,3081,3005,2899,1644,3110,3048,2682,3091,3186,616,1380,2642,3194,3190,3144,3088,3104,3037,3028,2549,2989,3199,2679,3178,3166,3153,3203,2835,1446,3053,2451,2287,2889,3179,2694,2729)
ppi<-c(2733,3147,3052,2876,3145,3162,3086,644,3186,3042,2325,3124,3188,2259,764,2809,3107,3079,3135,3113,3185,3072,3123,2946,3103,3161,2529,3201,2799,3047,3200,3087,1241,3146,3074,2080,2978,3178,3132,2919)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007124"
rlt[mytot,2]<-"YPL268W"
ori<-c(1295,908,2441,2594,95,794,1949,1879,313,1856,1689,1507,2886,1759,303,534,1964,1461,1284,640,1456,2029,1335,1834,817,2225,1988,1954,1972,1708,1383)
ppi<-c(1879,1656,1958,3202,996,264,1388,2187,3198,1064,2576,1359,2183,582,882,1682,1602,1112,664,350,806,2499,2036,2526,1509,2568,1978,1513,2144,1992,2962)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006367"
rlt[mytot,2]<-"YPR008W"
ori<-c(1245,2578,3171,1074,1252,2482,3059,1272,1652,1882,607,490,2790,2694,2808,1696,856,3169,767,114,1063,1408,3195,1604,1359,2601,1724,485,948)
ppi<-c(2738,2413,3180,1361,2503,2396,2575,455,1146,2017,1616,2217,2601,2414,2797,2989,1417,3176,2521,1420,475,738,3198,2011,1813,2623,1427,154,2668)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006367"
rlt[mytot,2]<-"YPR025C"
ori<-c(2070,1904,2238,3197,2464,896,1444,3080,3002,442,2129,2633,617,1569,1067,391,72,1079,1377,3172,1101,1784,1558,2520,1423,12,1766,1896,919)
ppi<-c(741,2470,1746,3201,2471,2450,2366,3204,2969,1870,2736,2583,2186,1526,1180,1197,1279,707,2577,2799,509,1199,523,2740,1345,394,1444,1272,2403)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YPR030W"
ori<-c(2308,2814,3117,1104,2023,3058,3035,1380,1766,266,1145,2824,2344,2208,897,1459,1591,1785,3133,480,2699,2524,3050,2623,1362,2770,1223,2474,2197,104,1504,617,2605,767,1800,1950,1781,2003,615,1000,1147,377,2278,1212,1674,833,596,1299,1695,1634,2106,1202,2016,1661,2887,1306,2752,2046,2219,2142,2513)
ppi<-c(2166,2463,3138,2171,1408,2958,3084,2408,1479,1326,800,2562,2225,1669,1205,1941,1821,2135,2471,836,2061,2881,2608,2670,1499,2886,2325,1989,1566,61,1257,758,2597,862,2222,2103,1115,1377,688,967,591,1698,1367,571,1671,802,1519,674,921,2120,1713,457,2590,978,2572,666,2378,1473,2235,1144,2139)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006623"
rlt[mytot,2]<-"YPR049C"
ori<-c(2402,3033,1143,2471,2270,3009,416,107,3097,2916,692,2069,957,3141,2993,2288,261,297,584,102,3110,2206,1145,1333,488,1806,3154,3064,978,2951,1723,2629,274,731,14,1908,2873,2686)
ppi<-c(2912,3183,1130,2591,1830,2820,1359,1266,3014,2463,325,1887,1727,2838,2939,1752,918,150,783,25,3182,2953,2048,442,608,1036,3009,3101,899,2821,2299,2408,1317,1623,1159,1733,3126,2812)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YPR054W"
ori<-c(2968,2035,3125,2650,1206,1766,2157,1990,975,264,2464,1817,2885,701,1197,461,2208,2565,2022,2094,197,1467,984,2593,3078,611,1505,752,2586,869,1333,2351,1482,1073,2661,1742,2643,1926,1788,871,520,2665,1536,266,962,2483,496,1593,1147,41,3016,2031,449,499,2149,1678,1740,2907,2078,2334,2113,1138,1388,2306,920,2510)
ppi<-c(2996,2179,3164,2771,2626,1181,1647,1590,618,270,2764,1699,2602,1772,2530,958,1585,2606,3203,1644,1193,1365,1728,2598,3042,888,2095,2446,2503,1765,1609,1500,1756,338,2758,1634,2431,1970,1071,1243,211,3082,2876,677,483,2190,945,1534,1835,1284,2844,1214,1572,438,1046,2104,1755,2339,1645,2015,2352,1501,1984,2568,1748,1499)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006367"
rlt[mytot,2]<-"YPR056W"
ori<-c(2851,2848,842,1602,2796,1341,1917,1575,1339,3147,318,2931,2414,1744,2069,2828,1969,2015,3051,2303,2874,2051,2281,1676,2969,2472,644,1806,3201)
ppi<-c(2950,2570,504,1370,2615,2489,2623,690,1562,2122,1012,2482,2017,1713,2123,2371,1980,1759,2776,2653,2978,1525,2713,2184,2923,2608,941,1238,2574)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000122"
rlt[mytot,2]<-"YPR065W"
ori<-c(2825,519,1905,2194,879,12,642,1387,2470,1598,2548,890,112,996,2084,270,156,1712)
ppi<-c(2228,230,1185,1687,1184,165,607,471,1658,1780,1956,448,58,886,2231,925,1114,1735)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006414"
rlt[mytot,2]<-"YPR080W"
ori<-c(2336,2855,2755,2797,3140,1867,3126,3177,2760,3200,3185,3188)
ppi<-c(3203,3201,2051,2915,3189,673,3200,3202,2761,3198,3186,3144)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000398"
rlt[mytot,2]<-"YPR082C"
ori<-c(715,756,1689,1710,967,2836,987,1398,804,227,2613,2912,464,2896,2901,1154,1775,285,181,691,2724,1156,2735,2648,2989,2822,1815,3070,2523,2930,1711,1245,1167,1830,2032,2415,493,1313,306,185,2520,1970,822,2102,358,984,3058,2554,3053,1899,2752)
ppi<-c(3203,342,2616,925,1193,2287,2070,1918,2076,1939,2861,2853,869,2383,2877,413,1103,93,128,1965,2776,2148,1807,2128,2825,2570,2644,3006,2680,3171,1518,2294,2507,1132,1915,2268,2376,1469,595,88,2297,2205,298,2413,1095,1431,2336,2843,3161,2451,2387)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007005"
rlt[mytot,2]<-"YPR083W"
ori<-c(1916,1051,810,994,2101,2357,1120,785,1101,2975)
ppi<-c(1520,605,452,754,1165,2742,1104,476,454,2697)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006367"
rlt[mytot,2]<-"YPR086W"
ori<-c(1770,2631,1282,1080,2745,2244,1417,1356,1554,3203,7,1996,2935,1482,1930,3088,2135,2468,3195,1804,1809,2073,2673,2458,3151,2343,1210,1036,3153)
ppi<-c(1299,2459,778,1618,2567,2387,2462,622,1500,2633,969,2377,2584,1768,1731,2928,2496,2925,2767,2500,1125,1642,2022,2653,3048,1802,1082,1223,3204)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000398"
rlt[mytot,2]<-"YPR101W"
ori<-c(1770,1732,1399,1148,438,1737,1302,2651,2567,1266,1673,2519,1890,3032,3092,1531,2249,1928,1127,2149,2344,1569,3095,1773,3164,3060,2347,2131,3046,2904,2961,1309,2256,2774,2986,2442,2991,1991,650,365,3166,3138,1442,1607,2745,2470,2727,3093,2789,2113,1022)
ppi<-c(2252,1067,2360,622,917,2488,2617,2485,2287,2332,985,2709,1542,2770,3156,637,1917,901,488,2045,1765,2032,2618,2300,2932,2312,2742,1668,2870,3203,2884,2093,1516,2915,2230,2195,2546,1888,818,288,3097,2387,1189,2563,2702,1932,2127,2903,2759,2613,1939)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YPR111W"
ori<-c(862,2944,743,2283,1958,12,2043,480,1144,401,1796,286,3019,400,506,512,2733,2743,2450,1089,1199,1591,2817,302,1470,519,1649,2149,829,3193,2504,2584,3188,389,1883,2797,1971,359,271,276,2894,468,1919,1047,2757,214,3022,3199,1583,863,2480,1596,384,2866,1537,772,2286,2808,1703,2380,2146,2626,2011,1105,1114,897)
ppi<-c(483,2415,232,1644,2937,23,1712,1706,947,1097,1747,1942,2324,2106,2660,1128,2828,2868,2720,563,1788,1493,2997,784,1260,713,2584,2014,1256,3090,1930,2521,3192,94,2000,2729,1786,605,147,1281,3001,212,1539,786,2833,2133,2550,3121,1894,2730,2649,879,1233,3073,1140,1854,1917,2470,892,2453,2725,2412,2238,1273,2204,870)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000082"
rlt[mytot,2]<-"YPR120C"
ori<-c(1562,2696,765,2673,931,1477,675,1720,1357,3133,2877,1537,2160,3201,1257,331,1750,2193,2918,3158,658,3001,619)
ppi<-c(2882,3174,407,1321,2857,2067,2513,2378,535,3111,2803,596,2547,3201,2101,24,2304,1601,3203,3128,1502,2419,1788)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006261"
rlt[mytot,2]<-"YPR135W"
ori<-c(1130,3013,2993,1716,1910,2533,3096,3060,3097,7,596)
ppi<-c(1410,3134,3075,1316,1720,1956,3111,2748,3200,587,331)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0030490"
rlt[mytot,2]<-"YPR144C"
ori<-c(1544,3166,3105,3027,3202,3123,2770,3116,3081,2932,3140,2209,2341,436,3052,3137,3049,3176,3101,2961,3199,2634,3139)
ppi<-c(1922,2981,3121,3055,3195,3161,2770,3081,3185,2948,3129,2099,2212,1010,3016,3050,3030,3126,3128,3113,3196,3106,3192)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0009060"
rlt[mytot,2]<-"YPR155C"
ori<-c(1337,2110,787,637,682,2513,1111,764,1788,2118,248,1186,456,1273,1311,1541,2168,1551,3158,1473,1913,2916,1668,2007,2180,2921,2826,1819,1276,2252,2733,2142,2846,1470,3201,1370,1653)
ppi<-c(655,1631,1199,1594,298,2539,611,948,1292,1561,148,621,258,950,1226,439,1581,2069,3070,1567,1281,3110,1023,1825,1610,3081,2948,1346,508,1336,2587,1724,2746,1279,3198,1963,2016)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YPR159W"
ori<-c(2794,1701,1641,1610,1909,421,2115,2824,2363,2209,1438,361,2887,1890,2146,1821,1847,678,2581,3171,2337,1382,1259,600,2355,1904,2867,2661,2730,1286,1857,3044,152,2890,2998,783,121,127,178,3012,2702,2795,3015,3200,2947,1477,2876,3122,2958,2786,2954,1321,2370,2941,1790,266,2920,3032,2057,2166,2914)
ppi<-c(2843,2209,900,2992,1213,600,1511,2235,2277,2959,942,155,2381,1142,1999,2875,2418,2554,2464,3125,2708,581,1361,312,1881,1325,2846,2680,2568,560,1261,2941,370,2935,2989,2652,95,86,480,2955,2798,2947,3023,3200,2988,1310,2707,3159,3045,2731,3056,607,2493,3058,1968,688,2926,3079,2195,861,2734)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006468"
rlt[mytot,2]<-"YPR161C"
ori<-c(2343,531,2147,858,1479,1543,2733,2599,1010,306,1958,2730,733,1828,1550,244,2379,2541,795,2260,611,583,725,1585,645,1355,3027,552,2908,513,128,2666,1530,1980,2949,1908,1189,1501,1594,1372,2120,2009,241,2355,612,2352,454,472,192,2738,1260,354,936,647,2987,983,1254,726,2865,2961,1527,1705,3034,1481,2447,659)
ppi<-c(1707,1910,1464,100,1761,1097,2628,2427,985,420,2519,2739,2269,1989,2276,740,2109,2938,960,1986,2216,625,2346,1519,799,1380,2249,2008,2829,1477,1326,2782,2110,2399,3049,1836,1795,1268,733,1451,1164,1198,973,1780,311,2505,1195,970,1474,3030,1213,150,1859,745,3066,2440,2592,2133,2983,3039,2129,1444,2552,2391,2473,1175)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006413"
rlt[mytot,2]<-"YPR163C"
ori<-c(3107,2874,3074,2954,1105,2908,3101,2192,2249,3084,2922,3102,3045,2840,3072,2678,3125,3068,3048,2848,3183,3062,2269,2314,327)
ppi<-c(3080,2844,3101,2950,219,2831,2832,2796,1189,3098,3074,3091,3079,2766,3156,2609,3059,3023,2970,2989,3011,3118,2910,2598,177)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006897"
rlt[mytot,2]<-"YPR165W"
ori<-c(2086,3098,1988,2118,2667,390,1089,1722,1999,2711,2953,2970,2055,1798,2993,2261,2505,3085,1873,2821,2974,2257,1849,2884,2036,2935,2622,2587,1326,1905,1743,1995,1533,107,2570,1180,2258,2073,325,3057,2518,3000,3065,2875,2173,2357)
ppi<-c(2279,2818,1204,1636,2822,176,1166,1100,2527,2472,2551,2226,2747,1811,1896,2014,2347,2854,2486,2657,3145,2644,1014,2545,1762,3095,3088,2629,1714,2387,937,1282,2849,905,2301,309,3056,1401,1238,2305,2344,2394,2897,2967,2443,1956)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007015"
rlt[mytot,2]<-"YPR165W"
ori<-c(2501,2086,1245,2398,2118,2706,2764,1722,122,1254,1233,2505,1232,1929,1631,1704,466,2413,410,2974,1101,1341,3046,2036,781,164,2950,2622,1918,1326,2680,1905,2570,2260,2091,2739,325,742,3000,2173,1779)
ppi<-c(2541,2279,2759,2396,1636,2939,3090,1100,605,1321,608,2347,2452,1193,1837,1074,2402,1665,1457,3145,2922,2417,2936,1762,2275,2250,3028,3088,1852,1714,3132,2387,2301,2676,2233,2766,1238,2692,2394,2443,2380)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007047"
rlt[mytot,2]<-"YPR165W"
ori<-c(2859,2086,1892,1245,220,676,561,2454,2305,3099,951,2428,999,2249,29,2836,1450,711,2970,2239,112,1181,879,1233,1564,161,2471,271,3131,2237,1048,3165,178,3031,2156,2257,252,95,2460,1468,3181,3062,1987,2935,2622,2402,1487,1922,2068,2587,2607,1995,2570,2060,1796,2201,2258,2518,1925,2509,2957)
ppi<-c(2895,2279,1090,2759,100,1224,252,2139,2109,2892,653,1456,1154,2063,584,2966,1485,2557,2226,1875,1612,367,1179,608,1945,216,2611,1624,3140,2039,1495,3141,400,2916,2753,2644,131,73,2137,1596,3191,2798,2701,3095,3088,1664,2524,1184,1534,2629,2998,1282,2301,1637,1540,1405,3056,2344,1629,2351,2918)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0007264"
rlt[mytot,2]<-"YPR165W"
ori<-c(1833,628,2764,1249,122,1206,2990,261,1229,1233,455,1631,1101,2622,742,2221,488)
ppi<-c(2508,1549,3090,3092,605,2867,2888,622,432,608,1999,1837,2922,3088,2692,1420,2640)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000398"
rlt[mytot,2]<-"YPR178W"
ori<-c(2489,1949,155,166,641,519,2022,1383,217,126,1925,1866,749,1810,1695,404,701,1369,1717,2108,684,371,2424,1514,2425,2043,3200,1134,2303,2833,2529,2164,1441,3134,2347,2352,1194,210,1919,2701,2711,3184,1200,1576,2931,2452,2772,3088,2000,2389,3083)
ppi<-c(2209,1348,2590,38,392,2054,2752,1856,2331,2350,1149,1353,544,2417,1164,80,363,694,822,2314,573,2345,2310,2533,2573,2098,3161,1063,2663,2905,2579,2336,1186,3171,2877,2571,2351,434,1887,2988,2732,2917,484,2785,3204,2596,2631,2792,1465,2591,2720)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006888"
rlt[mytot,2]<-"YPR181C"
ori<-c(3148,2791,931,2936,3179,1677,424,2750,848,2509,2385,49,1916,2191,3198,1260,32,2915,354,2551,2972,695,3163,2806,649,1117,2897,2137,2942,2705,1196,1579,1297,3178,1145,3074,1635,2994,3145,3056,1007,1650,3131)
ppi<-c(3148,2873,2283,3131,3175,2586,1830,2967,703,2424,2416,230,1235,2378,3203,667,32,3200,2311,2472,2392,643,3197,3067,294,1259,3198,1550,3021,2430,2762,2460,1646,3146,3115,3191,2447,3204,2738,3034,2101,896,3181)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0000398"
rlt[mytot,2]<-"YPR182W"
ori<-c(1284,159,1231,2275,401,1874,995,435,1132,2346,349,948,469,2167,1101,2,498,862,304,1226,61,38,419,2183,1438,404,679,586,550,2280,719,1,320,2387,859,844,894,416,1104,1801,129,1799,1570,2727,1282,278,1409,2826,2863,843,3102)
ppi<-c(1802,71,2156,1829,329,2786,2569,1881,2654,2587,252,555,735,2002,781,1,206,397,131,2085,534,2463,2024,2699,1722,2275,1053,1743,1436,1637,845,1792,975,2018,2338,3147,2495,859,1029,1445,471,2424,2682,3170,1530,2076,1470,2849,2858,681,2453)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006487"
rlt[mytot,2]<-"YPR183W"
ori<-c(3069,3052,2782,2689,3159,3099,1239,2293,3070,673,589,839,3066,2208,2629,2559,2624)
ppi<-c(2339,3132,3072,2113,3131,2829,608,1524,3136,310,893,261,2968,2943,2130,2563,2789)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0006623"
rlt[mytot,2]<-"YPR185W"
ori<-c(2207,792,1941,1835,285,2599,1606,394,1533,2639,2520,2552,1180,2048,1808,2213,1630,862,782,1458,2457,2431,1266,2660,1615,1388,2786,2134,786,2395,2427,1463,1353,214,1426,1369,1823,2781)
ppi<-c(2088,277,1530,1870,960,1816,2741,990,1427,2529,2546,2989,2198,1774,2131,1523,1300,442,786,912,1572,1926,2162,2072,1015,571,2256,1392,634,1919,2799,2028,2940,820,1721,787,1431,2589)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1
rlt[mytot,1]<-"GO:0009060"
rlt[mytot,2]<-"YPR191W"
ori<-c(2914,2598,1221,2857,3101,1666,2163,2672,3103,1629,982,1268,206,2568,1345,2997,1822,1738,1613,2810,830,1537,3140,349,1094,2836,1747,1777,3175,937,2991,366,498,2648,661,871,1742)
ppi<-c(2979,2625,1346,2616,3151,990,1660,2460,3125,1026,450,626,111,2796,1258,3157,1126,527,1323,3083,454,639,3154,1920,457,2930,1302,1224,3193,355,2953,78,1130,2641,173,2397,1877)
restori<-setdiff(all,ori)
restppi<-setdiff(all,ppi)
h<-wilcox.test(ori,restori,alternative="g")
rlt[mytot,3]<-h$p.value
h<-wilcox.test(ppi,restppi,alternative="g")
rlt[mytot,4]<-h$p.value
rlt[mytot,5]<-length(ori)
mytot<-mytot+1

write.table(rlt,"E:/Network/CGI_webpage/out//cellcycleoutput.txt.R_rltlist.txt",row.names=F,col.names=T,quote=F,sep='\t')
summary<-matrix(nrow=2,ncol=2)
summary[1,1]<-"MCC"
summary[2,1]<-"CGI"
summary[1,2]<-integrate(ecdf(as.numeric(rlt[,3])),0,1,10000)$value
summary[2,2]<-integrate(ecdf(as.numeric(rlt[,4])),0,1,10000)$value
write.table(summary,"E:/Network/CGI_webpage/out//cellcycleoutput.txt.R_rlt.txt",row.names=F,col.names=F,quote=F,sep='\t')