A METHOD FOR THE IDENTIFICATION OF GENE TRANSCRIPTS WITH IMPROVED EFFICIENCY IN THE TREATMENT OF ERRORS

Abstract: A method for identification of gene transcripts comprises the steps of: generating a set of raw sequences by sequencing of biological material; isolating ditags from the set of raw sequences; isolating tags from the ditags; determining abundance of the tags; and identifying the tags, the method providing a step of reducing the amount of sequencing errors by using a statistical model for sequencing errors.

Description: A METHOD FOR THE IDENTIFICATION OF GENE TRANSCRIPTS WITH IMPROVED EFFICIENCY IN THE TREATMENT OF ERRORS DESCRIPTION This invention relates to a method for identification of gene transcripts such as RNAs or their corresponding cDNAs with an improved efficiency in the treatment of errors. The method can be applied to collect information from several cell types, for example with reference to DGE (Differential Gene Expression) studies. In particular, a method is disclosed which applies a SAGE method for sequencing data. The results thus obtained are then used in a comparative way in order to provide a gene identification. According to US patent 5 695 937 assigned to the Johns Hopkins University (see also Velculescu et al . , Serial Analysis of Gene Expression, Science, 270: 484- 487, 1995 and Velculescu Tantalizing Transcriptomes, SAGE and its use in global gene expression analysis, Science 286: 1491-14 ' 92, 1999), tags are obtained and after that dimerized before determination of the nucleotide sequence thereof. The dimerized tags are known with the term of "ditags". In more detail, US Pat. 5 695 937 describes a method for serial analysis of gene expression, which comprises the steps of: 1) Producing cDNA oligonucleotides; 2) Isolating a first defined nucleotide sequence tag from a first cDNA oligonucleotide and a second defined nucleotide sequence tag from a second cDNA oligonucleotide; 3) Linking the first tag to a first oligonucleotide linker, wherein the first oligonucleotide linker comprises a first sequence for hybridization of an amplification primer and linking the second tag to a second oligonucleotide linker, wherein the second oligonucleotide linker comprises a second sequence for hybridization of an amplification primer; and 4) Determining the nucleotide sequence of the tag(s), wherein the tag(s) correspond to an expressed gene. The main disadvantage associated with the procedure set forth above lies in the elevated percentage of error associated thereto. Differential genetic expression methods are for example known from Kal et al . , Dynamics of gene expression revealed by comparison of serial analysis of gene expression transcript profile from yeast grown on two different carbon sources, Mol. Biol. of the cell, 10: 1859-1872, 1999 and from WO 95/20681, in the name of Incyte Pharmaceuticals, Inc. A method is therein described, which compares the gene transcript image analysis from two or more biological specimens and identifies one or more genes which are differentially expressed between the two specimens. A first object of the method according to the present invention is that of providing a method which greatly reduces the error rate of the tags obtained for example through a method like the SAGE method, by estimating the error rate and consequently rejecting dangerous tags . A second object of the present invention is that of providing an easy way of consulting the identified tags, by use of an improved graphical interface. Access to the full set of information (full identification story and abundance in other libraries) concerning a tag is given. The present invention solves the aforementioned problems by providing a method for identification of gene transcripts comprising the steps of : a) generating at least a first set of raw sequences by sequencing at least a first type of biological material; b) isolating first ditags from said at least first set of raw sequences; c) isolating first tags from said isolated at least first ditags; d) determining abundance of said first tags; and e) identifying said first tags, further comprising a step of f) reducing the amount of sequencing errors by using a statistical model for sequencing errors to be applied to said isolated first tags . Advantageous embodiments of the invention will be disclosed in the attached dependent claims. The term "biological material" will relate to material directly or indirectly derived from an eucariotic or procariotic cell, including at least part of the ribonucleic acids anyhow present in such cell . The terms "raw sequence" and "raw data" will relate to sequences of nucleotides derived from the biological material through techniques known in the art . With the term "tag" a partial, defined sequence of transcripts corresponding to a gene segment is intended. Therefore, a tag is a marker for genes which are expressed in a cell, a tissue, or an extract for example. A tag is generally a short nucleotide sequence of 9 to 10 base-pairs, which contains an information content to uniquely identify a transcript, provided it is isolated from a defined position within the transcript. Tags of different measures can also be obtained. The main advantage of the method according the present invention is that of greatly reducing the problem of sequencing errors. This goal is reached by applying a statistical model for sequencing errors. A second advantage of the method is that it provides a measure of the correctness of the identification by also allowing the user to confirm this identification through use of more than one database. For example, an EST database can be firstly used and then the positive matches can be confirmed through a search in a protein database like SWISS-PROT. A further advantage lies in the way the results are presented. The method provides not only a text form which is richer than other interfaces for similar data (e.g. SAGE data) in terms of information about identified tags, but also an improved graphical interface which allows an easy interpretation of the results and an easy access to e.g. the KEGG pathway. Other advantages and features will be readily apparent to the person skilled in the art upon reading of the following detailed description. Reference will be made to preferred non-limiting exemplary embodiments of the present invention with reference to the annexed figures, wherein: Figure 1 shows a flow chart representing a general overview of the method according to the present invention; Figure 2 shows a flow chart representing the step of extracting tags from biological material; Figure 3 shows a flow chart representing the step of reducing sequencing errors; Figures 4A and 4B show graphs referring to the number of detected tags; Figure 5 shows a flow chart representing the step of comparing two sets of tags; Figure 6 shows a flow chart representing the step of identifying the tags; Figures 7 to 12 show visualization displays of the identified data; Figures 13 and 14 show different operational modes for providing a global and/or particular view of the data; and Figures 15 to 18 show results relating to a specific example processed according to the present invention. With reference now to figure 1, a general overview of the method according to the present invention is shown. The method comprises four steps. In a first step 1 raw data are processed starting from biological material. In particular, starting from the biological material of a cell, RNA is isolated, its corresponding cDNA constructed and tags and subsequently ditags are chained together, therefore following the SAGE method . In the preferred embodiment, this step 1 is applied to two distinct libraries of raw data, each library of raw data relating to a particular cell type. For example, the "minus" library of figure 1 can relate to a neutral cell type while the "plus" library of figure 1 can relate to an ill cell type. In this way a particular biological state, disease or condition which is correlated to the relative abundance of gene transcripts in a cell or population of cells can be determined. Of course this step could also be applied to a single library of data, the relative abundance being in this case computed between transcripts of the same cell. Subsequently to this, tags are extracted from the ditags and counted. This generates a file containing the list of each detected tag with the corresponding abundance, i.e. the number of times the tag is present within the library. In a second step 2 comparison between the data of the minus and of the plus library is effected. In this step the tags detected in each cell type are organized, their abundance is compared (e.g. by computing a ratio therebetween) and useful information about up-regulation and down-regulation is produced as a result. In a third step 3 tag identification is performed. It has to be noted that the tags are a kind of "fingerprint" for expressed mRNA sequences which, in turn, correspond to expressed genes. Therefore, in this step the genes that correspond to the detected tags are identified. The identification step requires a comparison between each detected tag and a database of nucleotide sequences, such as Unigene and/or EMBL. A further aim of this step is also that of providing references with other databases such as SWISS-PROT (a protein database) , KEGG, PROSITE, Pir and Pf m. Background material on these databases can be found for example in: Stoesser et al . , The EMBL Nucleotide Sequence Database, Nucleic Acids Res., 27:18-24, 1999; Ogata et al . , KEGG: Kyoto Encyclopedia of Genes and Genomes, Nucleic Acids Res., 27:29-34, 1999; Bateman et al . , Pfam 3.1: 1313 Multiple Alignments and Profile HMMs Match the Majority of Protein, Nucleic Acids Res., 27:260-262, 1999; Barker et al . , The PIR-International Protein Sequence Database, Nucleic Acids Res., 27:39-43, 1999; Hoffmann et al . , The SWISS-PROT Protein Sequence Data Bank and its Supplement TrEMBK in 1999, Nucleic Acids Res., 27:49-54, 1999, Bairoch et al . , The SWISS-PROT Protein Sequence Data Bank and its Supplement TrEMBK in 1999, Nucleic Acids Res., 27:49-54, 1999, Welle et al . , Inventory of High-Abundance mRNAs in skeletal muscle of normal men, Gen. Res., 5:506- 513, 1999, Yermolaeva et al . , Data management and analysis for gene expression arrays, Nat. Gen., 20: 19- 23, 1998, Chen et al . , Ratio-based decision and the quantitative analysis of cDNA Micro-array images, J. Of Biomedical Optics, 2: 364, 1997, Schuler et al . , A gene map of the human genome, Science 274: 540-546, 1996. Therefore, after performing step 3, a database containing information about the ' identified tags, their abundance, their corresponding gene description is obtained, with links to different protein and nucleotide databases . In a fourth step 4 the results are displayed. A visualization software provides both a text and a graphical mode for the presentation of the resulting data on a web-based user interface. This allows the user to access all the desired information in an easy way. In the following, the method will be explained in more detail with reference to figures 2 to 14. Figure 2 shows the various substeps contained in step 1 of figure 1. A first step 11 is that of applying a method like the SAGE method to the biological material 10. In a subsequent step 12, a base-calling method performed through a base-calling software, for example an ABI ® software or a Phred ® software, sequences the chains of tags obtained with the SAGE method, by producing raw sequences 13. These raw sequences are a series of bases one after the other, which still need to be properly identified. For a detailed description of the cited softwares, reference can be made to the following papers: ABI PRISM. DNA Sequencing Analysis Software, User's Manual, PE Applied Biosystems, 1996, Ewing et al . , Base- Calling of Automated Sequencer Traces Using Phred, Gen. Res., 8: 175-185, 1998, Connell et al . , Automated DNA Sequence Analysis, Biotechniques, 5: 342-248. In a step 14, the raw sequences 13 are transferred to a second computer system and transformed in raw sequences 15 of a type which can be used by the second computer system, for example through formatting operations. A further procedure 16 operates by isolating ditags from each raw sequence 15 by cleavage when encountering for example the subsequence CATG. As an example, procedures operating in accordance with type IIS enzymes like BsmFI, Mmel and Fokl can be used. After having performed isolation of the ditags, the method according to the present invention advantageously performs a procedure 17, which checks the isolated (extracted) ditags for removing inappropriate or wrong material. In particular a ditag is rejected on the basis of the following four rules : Rule based on the particular base-calling software used: The ABI software puts an "N" each time a bad quality signal is detected. Therefore, each time an N is encountered, the corresponding ditag is rejected. The Phred software gives an estimation of the confidence level of each base-pair. Therefore, each time a ditag has a confidence level which is lower than a predetermined threshold, the ditag is rejected; Rule based on the length of the ditags : if the ditag is too small, i.e. smaller than 20 base-pairs it is rejected, because it does not contain two entire tags; Rule based on the length of the ditags: If the ditag is too large, i.e. larger than 24 base-pairs it is rejected, because the cleaving BsmFI enzyme, which is normally used in a SAGE method, should not produce such large tags; or If the ditag occurs twice it is rejected, because there is a risk of over PCR amplification. In fact, if it is assumed that the tags are randomly paired to form ditags, then the probability to have twice the same ditag is very low. Once this selection has been done, a procedure 18 extracts tags from the isolated and selected ditags. Each 20 base-pairs long ditag contains two 10 base-pairs long tags: one starting from its 5' end and the other, complementary reverse coded, from its 3' end. It has to be noted that a 20 base-pair long ditag could also contain a first 11 base-pair long tag and a second 9 base-pair long tag. Nevertheless, this situation is neglected in the preferred embodiment because, when for example adopting the BsmFI enzyme, it is very rare to have tags of this size. For what concerns cases of polymorphism (i.e. different sequences for the same gene) one exemplary approach which could be taken into consideration is that of choosing one determined sequence (and therefore one determined tag) to represent that gene, if the gene is known. If the gene is not known and it is polymorphic, there is of course the possibility of detecting two different tags which in fact relate to the same gene. The extracted tags are also counted. In a preferred embodiment of the present invention, a procedure 19 tries to predict an extra base-pair for each different tag during the counting operation. This prediction is for example possible when adopting a SAGE method by using a BsmFI enzyme. This enzyme generally gives tags with a length of more than 10 base-pairs. The prediction step 19 comprises the following substeps : It is assumed that the different occurrences of each tag are equally distributed at 5 ' ends and 3 ' ends of the ditag. This means that the possible extra base-pair located in the middle of a ditag can be symmetrically assigned to the tag; Each time a ditag is encountered, if its length is at least a predetermined number of base-pairs (22 base- pairs in the present embodiment) , then one extra base- pair is assigned to each of its two tags. Having in mind the above assumption, the extra-base pair assignment is straightforward; Once all the tags have been extracted from the ditags, each of them is successively considered, in order to decide whether there is a reasonable possibility to predict an extra base pair. First of all, it is imposed that the tag must be at least as much abundant as a certain threshold, in order for the statistics of the 11th base-pair to have a meaning. For those tags which satisfy such a criterion, the most dominant 11th base- pair is chosen and it is imposed that such most dominant 11th base-pair for that tag must represent at least a certain percentage of the number of occurrences of the tag. If this is the case, the extra base-pair is considered as acceptable. According to a preferred embodiment of the present invention the prediction step 19 is performed applying an improved method for di-tags processing that no longer relies on fixed thresholds on tags and 11th base abundance. Instead, hypothesis testing techniques are used for estimating the relevance of the predicted 11th bases. It is the possible to choose a minimum relevance, like 95% for instance, and only accept the corresponding predictions . The procedure is the following: assuming that each base has the same probability to be sequenced (null hypothesis) , the method can be performed applying the following algorithm. Algorithm Let c(t) be a counter associated with a tag t. Let A(t) , C(t), G(t), T(t) be counters associated with each possible extra base of the tag t . Let s be a sequence and R(s) the operation to take the complementary reverse of s (read s in reverse order and exchange letters λ A' with T' and λ C with λ G' . a) For each di-tag d of length k: Take 10 bases at each end of d in oder to obtain the two tags tl and t2 (tl=d[1..10] and t2=R(d[k-10..1] ) ) ; Increment the counters c(tl) and c(t2); If k>=22, extract one extra base for each tag: bl=d[ll] and b2=R(d[k-ll] ) ; Increment the respective base counters, for example if bl='A' then increment A(tl), etc. The same for b2 ; b) Select the extra bases that have a degree of relevance greater than a given threshold, for example of 95% or 99% according with data in the following Table I: Table I In this table statistics about tag abundance for each relevance degree are given both as the average and median counts. Statistics for a specific relevance degree only are in parentheses; and c) For each different tag which has at least one of its extra base counter different from 0, test whether each of the selected extra bases is relevant (is possible that more than one extra base is relevant) . The step c) can be performed comparing the observed frequencies with the hypothetical situation of equiprobabilit . In particular: Let D be the counter of the extra base to test and let Q the sum of the others counter and N=D+Q. If N is not a multiple of 4 then add 1, 2 or 3 to N in order to have N a multiple of 4 and: if D > N/4 then the tested extra base can be considered relevant; if D <= N/4 then the tested extra base can be considered non-relevant . The relevance for each predicted extra-base is computed by using a contingency table and applying chi- squared statistics with one degree of freedom or by computing Fisher's exact test, as disclosed in: "Everitt BS : The analysis of contingency tables. London: Chapman and Hall, 1977". Chi-squared statistics allow for estimating the significance of the departure from the null hypothesis. A possible contingency table is the following Table II: Table II In the above disclosed algorithm are only considered di-tags of length at least 22-bases. 21-bases long ditags are not considered because the distribution of ditags lengths shows that there are enough 22-bases long di-tags, and because 21-bases long di-tags would generate too many wrong 11th base counts, hence making the application of the hypothesis testing more difficult. This is shown in the following Table III: Table I I I Checking of consistence of this possible extra base- pair will be explained later in this description. The tag extraction step up to now described can be repeated for one or more sets of raw data and terminate with respective generations of lists of tags containing also information on their abundance. Having in mind what already set forth in figure 1, the preferred embodiment of the present invention provides two distinct tag extraction steps with reference to two respective distinct raw data collections. Subsequent figure 3 shows a step of reduction of the sequencing errors, to be preferably performed between steps 1 and 2 of figure 1. The aim of this step is that of eliminating or rejecting tags which have not been sequenced correctly, in order to avoid generation of wrong information. In the preferred embodiment this step is performed two times, one for each library. As a matter of fact, each tag that is not sequenced correctly generates a wrong piece of information. Either it generates a non-existing tag, which is called a ghost tag, or it increases the number of occurrences of another tag, which is really present. In the first case, the ghost tag can be either identified, so that the user wrongly thinks the corresponding gene is present, or it is not identified, so that the user might wrongly imagine there is a potential finding for a new gene. In the second case, the expression level of the really present tag is modified incorrectly. A first approach for reducing the influence of sequencing errors could be that of using ABI software for base-calling and simply rejecting tags/ditags that have at least one unidentified base-pair. A similar approach could be that of using Phred or any base-calling method which assigns a confidence level to each predicted base-pair, and rejecting tags/ditags that have at least one base-pair with a confidence level below a given threshold. However, according to the present invention, a better throughput has been obtained by defining a sequencing error statistical model and by advantageously combining this method with the base-calling methods or software like ABI and Phred. In a first embodiment the application of the statistical model will be performed without or after use of a base-calling method. In a second embodiment, even the application of the statistical model per se will be mixed with a base-calling software like Phred. In particular, this last combination has been made possible by converting a confidence level into a probability that a base-pair is not correct, and therefore by treating the confidence level of a base-calling software like Phred as a particular statistical model. The two embodiments shall be disclosed in detail after a definition of statistical model and after the presentation of an example. By statistical model, a function of the type F: ST x ST → [0, 1] is intended, where ST is the set of every possible tag to be considered, with ∑ (α,δ) = l,Vα e £ J . . ie Sr The function F is intended to modelize the probability that a given tag a, i.e. the corresponding cDNA sequence, can be sequenced as b. This probability is given by the function F(a, b) . A simple example of a possible function F will follow hereinafter. Example of a possible function F Since the average probability that a base-pair is not correctly sequenced, i.e. the average sequencing error rate, is generally estimated around 1%, the probability of having one error in a 10 base-pairs tag (BsmFI enzyme) can be estimated as follows: 1 - P(no error) - 1 - w ° Ϋ (0,99) 10 = 0,096 (= 9,6%) The influence of multiple errors will be here neglected, and only cases where one error is possible for each tag shall be considered. The possible errors to be considered shall be: base exchange: one base-pair is sequenced as another (e.g. A for G or T for A, etc.); insertion: one random base-pair is inserted between two base-pairs or at the beginning of the tag. This means that one base-pair is lost at the end of the tag; suppression: one base-pair is deleted and a random base-pair is added at the end of the tag. For every tag a e ST, the value of F(a,b), V be S τ , shall be defined as follows: i) b = a F(a,a) = ii) b ≠ a Let V a c S_ be the set of every "neighbour" tag b e S τ which can be "reached" from a by one of the three types of errors above considered. Let N a = # V a , i.e. the number of elements in the set V a . Then F(a,b) is defined as follows: l-(0,99)'° F(a,b) Vb e N. E(α,b) = 0, \/b £ V a A possible choice for S τ is the set of observed tags . Now the two distinct embodiments above introduced for estimating the real abundance of each tag will be discussed in detail. First embodiment According to this embodiment, preferably in a first step a base-calling software like ABI or Phred will be firstly applied to the ditags or to the tags, and only after that the subsequent procedure shall be followed. Let y € 5R n be the list (seen as a vector) of every corrected tag abundance. After having assumed an average sequencing error rate and after having assumed a statistical model for the representation of sequencing errors, a linear system can be written, of the type Ax = y, x e 5R n , A e SR 11 ™ , where x is an estimation of the real abundance, not influenced by sequencing errors, to be found as a solution of the linear system. Let ai be a matrix element of A, being i its row index and j its column index. The line j of the matrix A represents the contribution of every tag (before sequencing errors) to what has been observed (after sequencing errors) . Matrix A is filled by applying the following procedure: For each tagi, 1 < i < n (procedure 21 of figure 3) , aii = F (tagι , tagi) aki = F(tagι, tag k ) , tag k e V tag i. With tagi a tag has been intended, which abundance is stored at position i in vectors y and x. It has to be noted that, when the function F of the previous example is applied, it follows that F(a,a) » ∑F(a,b), b e V a and therefore that A is sparse and diagonal dominant. This means that AX = y (procedure 22 of figure 3) can be efficiently solved by Lanczos-type methods like BiCGSTAB for instance. After solution of the system, a decision procedure 23 could be performed in order to reject each tag for which the difference between the counted abundance and the above calculated estimated abundance is bigger than a given threshold. As an alternative, this last procedure could be performed by the visualization interface, and the estimated abundance value could be simply added to the file where the tags and their counted abundance are stored, in order to give to the user this information as well . Second embodiment In this embodiment, the confidence level provided by Phred (or by similar software producing a confidence level) is transformed into a probability that the base- pair is not correct, with the formula Confidence level = -lOlogio (probability) . After this, the probabilities thus obtained can be directly used in the statistical model definition in order to define a different function F and best fit the real data. Prior to the application of such statistical model, the above mentioned base-calling software can be advantageously applied. In an embodiment where the raw sequences are not trimmed as usual but, instead, a SAGE specific quality check procedure is applied, it could be not clear whether the usual 1% average sequencing error rate is correct. In order to solve this problem, an advantageous procedure will be now described, by which the average probability that a base pair is not correct can be calculated. It is assumed to make use of an enzyme that generates tags of a length n, with n large enough in order for tags of length m<n not to provide less information concerning the number of expressed genes in a given cell type. This means to assume that n-m extra base-pairs available in the longer tags are useless for identifying different mRNA sequences, as soon as the first m base-pairs are given. It is also assumed, as a sequencing error model, that there is an average sequencing error rate q and that each base-pair has the same probability to be wrong. Moreover, it is assumed that the probability that a wrongly sequenced tag is equal to another sequenced tag is negligible. Let N be the total number of sequenced tags and k n , k m be the numbers of different detected tags by successively considering tags of n and m base-pairs. By defining d to be the correct number of different tags, the following system is obtained: This system is easily solved by using a Grδbner basis and the solution not only gives d but also q, providing an estimation of the sequencing error rate. This method has been applied with success by the inventors for n=19 (Mmel enzyme) and m=14, 15, 16, 17. The resulting approximation was 0.003< q < 0.006 (therefore between 0.3 % and 0.6 %) , the exact value of q depending on the library. The step of reducing sequencing errors produces two separate lists in the preferred embodiment up to now described. One of those lists, indicated by numeral 24 in figure 3, contains the observed tags with their estimated abundance, and the other, indicated by numeral 25, contains the neighbour list for each tag. To avoid the problem of "oversequencing" the biological material, the method according to the present invention can be used to monitor how many different tags have been detected with respect to how many tags have been sequenced. In this connection, figure 4A shows an example of such a curve, plotted in a Cartesian system, where on the x-axis the number of sequenced tags and on the y-axis the number of detected tags are shown for each library. According to this curve the operator is provided with an objective information for deciding when to stop sequencing. A possible interesting application is, having assumed that the sequencing error contribution has been made negligible, to estimate the number of expressed genes in a given cell type. The curve can be computed by maintaining a kind of chronology, since the tags are essentially sequenced in a random order, by assigning a random "date" to each sequenced tag. Figure 4B shows a curve where on the x-axis the number of sequenced tags is shown and on the y-axis the reliable ratios are shown, i.e. the ratios between the sequenced and the detected tags. As in the case of the tag number curve, a chronology is obtained, either real or random, and therefore for each "date" a pair of libraries is obtained, each containing a certain number of different tags with their abundance . Consequently, for each "date" , a method presented in Claverie et al . can be applied, for several confidence levels, estimating the number of reliable ratios. The results can be plotted as curves and provide and efficient way (more information than the tag number curves) to monitor a project progress. The application of such method will be discussed at a further stage of the present description. Figures 5A and 5B show in detail step 2 of figure 1. In figure 5A, the two lists of tags, i.e. the minus library 24 " and the plus library 24 + , both generated by the preceding step of reducing sequencing errors, are merged together by a software procedure 32 which generates a new list also containing the abundance information for the two cell types. The number of occurrences of each tag is also normalized, because each library contains a different number of sequenced tags. This operation is performed by a software procedure 33 and can be done by simply applying a factor to the abundance of the tags in e.g. the second library. This factor is obtained by dividing the total number of tags sequenced for the first library by the total number of tags sequenced for the second library. A further normalization mode could be that of making use of housekeeping genes . Next, a procedure 34 checks each tag for the consistence of the 11th base-pair prediction previously made, by applying the following rules: if the tag is present only in one library, then the 11th base-pair prediction is conserved; if the tag is present in both libraries and the 11th base-pair prediction coincides, then it is conserved; if the tag is present in both libraries and the 11th base-pair prediction does not coincide, then the abundance of the tag in each library is considered. In particular, if the tag has been counted more times than a given threshold in the first library and less times than another threshold in the second library, the 11th base- pair prediction is conserved only for the tag coming from the first library. In any other situation the 11th base-pair prediction is rejected. After this checking operation, a procedure 35 computes statistics about the significance of the observed differences between the two cell types. For example, if a tag Ta has an abundance equal to 1 in the first library and an abundance equal to 2 in the second library, and a tag Tb has an abundance equal to 100 in the first library and equal to 200 in the second library, it is easily understood that the second tag Tb has a bigger difference significance than the first tag Ta. In order to estimate the probability that an observed difference is correct, the procedure 35 applies an improved method of that described in Claverie et al . , The Significance of Digi tal Gene Expression Profiles, Gen. Res., 7:986-995, 1997. These statistical results are stored in a new file with the list of tags and their abundance, as shown by the number 36 in the figure. By using a statistics similar to that of Claverie et al, a new set of curves is computed, as shown in figure 4B. These curves give the number of tags which have at least a certain confidence level, with respect to the total number of sequenced tags and therefore allow a better planning of the use of the sequencers . With reference now to figure 5B, the neighbourhood information coming from the respective minus list 25- and plus list 25+ (see also figure 3) , is also merged altogether in step 39, in order to form a new common neighbour list 40 that will be used by the subsequent visualization interface, as later described. Figure 6 shows in detail the tag identification step 3 of figure 1. The tag identification step is accomplished by extracting SAGE tags from each entry of a nucleotide sequence database (for example EMBL with reference to mRNA entries only, EGAD or Unigene) and by comparing the tags extracted from the database with the tags to identify. Several are the advantageous modes by which this procedure is effected. First of all, a tentative is made to provide an identification of the tags in terms of genes, i.e. in terms of a SWISS-PROT entry, by making use of a SWISS- PROT database. This is done by building a new database which includes all those EMBL entries that are pointed by at least one SWISS-PROT entry, in order to firstly compare the tags with this kind of entries. In this way the maximum number of links to SWISS-PROT from EMBL is obtained. Another advantageous embodiment consists in assigning a score to each identification. Independently from the kind of database, this score-assigning procedure is useful in order to reduce the redundant and/or partial information contained in the databases. For example, it is very common for such databases that several entries concern the same gene, giving partial sequences and both expressed and genomic material . Another reason for not taking the identifications for granted is that SAGE tags start at the last NIalll restriction site (CATG) before the poly-A. In a database it is not clear if the given sequence goes up to the poly-A. This means that if a database does not include information like "complete coding sequence" or "poly-A at...", there is a risk that the database entry tag is not the same as the real SAGE tag. The score assigning procedure depends on the particular database which is used. Figure 6 shows the procedures used in order to identify the tags present in the list 36 (see also Figure 5) , by using a Unigene database (step 42) and a EMBL database (step 41) . With reference to the Unigene database, tags are extracted from the database (both 3' end and 5' end tags) in order to build a new database. The SAGE tags are then matched against this new database, searching for occurrences . A typical entry of the new database looks like the following: UG Hs#S4384, 2532 DE Alcohol dehydrogenase 2 (class I) , beta polypeptide GENE ADH2 TAG CATGCAAATTATT, CATGACCCTCTTCCA SPTR P00325, ADHB_HUMAN DE ALCOHOL DEHYDROGENASE BETA CHAIN (EC 1.1.1.1) GN ADH2 KW OXIDOREDUCTASE; ZINC; NAD; MULTIGENE FAMILY; ACETYLATION; POLYMORPHISM; 3D-STRUCTURE SUBLOC CYTOPLASMIC PROSIT PROSITE; PS00059; ADH_ZINC; l.\ PFAM PFAM; PF00107; adh_zinc; l.\ A score is assigned to each identification, computed according to the following rules: the score is given an initial value of 0; 1 is added to the value if the Unigene sequence length is larger than a given threshold. This length is the second item on the UG line of the entry (2532 in the example above) . This criterion is used to measure the probability for the Unigene sequence to include the real SAGE tag; 1 ' is added to the value if the 11th predicted base- pair of the tag is available and matches with the Unigene entry tag; 1 is added to the value if the Unigene description (DE line) includes the word "ccds" indicating with this a complete coding sequence (this is not the case of the example above) ; 1 is added to the value if the tag has matched with the 3 ' end Unigene tag and the Unigene description contains "3'", or if the tag has matched with the 5' end Unigene tag and the Unigene description contains "5 1 "; 1 is subtracted from the value if the Unigene sequence length is smaller than a given threshold; 1 is subtracted from the value if the Unigene description includes the word "pcds" indicating a partial coding sequence (this is not the case of the example above) ; 1 is subtracted from the value if the tag has matched with the 3 ' end Unigene tag and the Unigene description contains "5 1 " or if the tag has matched with the 5' end Unigene tag and the 1 Unigene description contains "3 ' " ; and 1 is subtracted from the value if the SWISS-PROT description, if available, contains the word "FRAGMENT". The commercially available database EGAD could be used similarly. With reference now to the EMBL and SWISS-PROT databases, a SAGE new database is built and used for matching SAGE tags, as for Unigene. Also in this case an identification score is computed, according to the following rules: the score is given an initial value of 0; 1 is added to the value if the EMBL sequence length is larger than a given threshold; 1 is added to the value if the 11th predicted base- pair of the tag is available and matches with the EMBL entry tag; 1 is added to the value if the EMBL description (DE line) includes the word "ccds"; 1 is added to the value if the EMBL entry feature contains an indication that the sequence runs to the poly-A; 1 is subtracted from the value if the EMBL sequence length is smaller than a given threshold; 1 is subtracted from the value if the EMBL description includes the word "pcds"; 1 is subtracted from the value if the 11th predicted base-pair of the tag is available but does not match with the EMBL entry tag; and 1 is subtracted from the value if the SWISS-PROT description, if available, contains the word "FRAGMENT". In each case, it is simple to ascertain that the identification score goes from -4 to +4. A subsequent procedure 43 merges the results of the previous identification steps in a single new file and a procedure 44 looks if the identified tags, or their corresponding genes, are member of a biological pathway by using their SWISS-PROT accession number and the KEGG database. This new information is also added to the file. The identification procedure so far described does not exploit the information stored in EST databases, neither it exploits the genomic (DNA) material of EMBL. The inventors have tested with positive results the approach of looking for the tags in an EST database (e.g. dbEST) and, for each EST found, apply a Blast (see Altschul et al . , Basic Local Alignment Search Tool , J . Mol. Biol., 215: 403-410, 1990) or a Fasta (see Pearson, Improved Tools for Biological Sequences Comparison, Proc. Natl. Acad. Sci. USA, 85:2444-2448, 1988) against a protein database (e.g. SWISS-PROT). In this case, in order to avoid the inconvenient of a generation of false positives when treating small tags (14 or 15 base pairs, the initial CATG being included in the tag) , a Mmel restriction enzyme was advantageously used, which produces 19 base pairs tags. Once the tag identification step has been completed, the operator can access all the information by an user interface which comprises both a text web interface and a graphic web interface . The Text Web Interface is designed to give access to the information produced after the tag identifica ion and is shown in detail in next figures 7 to 12. Figure 7 shows a first input form the user can fill in order to set several parameters and then to select the subset of data he wants to consider. The richness of the parameters the user can select is possible thanks to the various steps of the present invention up to now described. The result of this selection can be displayed in several different modes through several different web pages that will be shown in subsequent figures 8 to 12. Figure 8 shows a web page on which the information for each tag is summarized in a single line with four fields. These fields represent: The Tag Number. This number is unique for each tag. The item is an hyperlink (underlined) which brings the user to the full set of information about the tag (Tag Full Story) . The asterisks following the number are an indication whether the tag is safe or not with reference to the sequencing errors; The Ratio, which is computed by considering the abundance, after normalization, of each tag in both the minus and the plus library. Let n be the abundance in the minus type and let m be the abundance in the plus type, then: Ratio = m/n if m>n Ratio = -n/m otherwise The Confidence Statistics (previously described in this description) ; and A short description (Identification and links to databases) complemented by hyperlinks to different databases (underlined items) . Figure 9 shows a web page on which the information for each tag is more detailed. In particular, the abundance of the tag in each library (see numerals 60 and 61) is shown and more than one identification for the same tag is displayed. These identifications are sorted with respect to the identification score 62 (from higher to lower) and marked with a label 63 which indicates the database of origin. The hyperlink labelled FULL brings again the user to the Tag Full Story, while the button labelled "Show" corresponds to the graphic display. Figure 10 shows a standard mode without description, where the descriptions of the tags are eliminated to make place to a possible second column of identifications. Figure 11 shows a tag full story, where every possible information about the selected tag is displayed. It includes every detail 70 of its identification, neighbourhood information 71, abundance 72 and abundance 73 in other libraries. Every abundance is normalized with respect to the current comparison so that each data can be easily compared. Figure 12 shows a page in which the user has access to statistical information concerning the current comparison. This page also contains hyperlinks to the already mentioned plots of figures 4A and 4B. Figures 13 and 14 show the graphic web interface. The identification of the tags comprises an assignment of a number to each identified tag, which identifies the tag in a unique manner. Starting from this number, a position on the screen is calculated for each tag, so that each tag is represented by a different pixel on the graphic interface, independently from the used database. This particular approach improves the "Virtual Chip" concept developed by Larson, 1999. Herebelow, the method for human cell types is described. The human being has about 100.000 genes. In order to display the tags on a square graphic display, a number which is a square is selected, for example 102.400, which equals to 320 times 320. Further to this, numbers between 0 and 102.399 are assigned to the tags as follows: at the beginning every number from 0 to 102.399 is set as available; and each time a new tag is detected, an available number is randomly chosen among the remaining available numbers. The Graphic Interface is intended to provide a global view of the data. It has two operational modes, shown in Figures 13 and 14. Figure 13 shows the principal mode . In this mode, the point associated to a tag depends on the unique tag number. The coordinates of this point, in a 320 by 320 matrix, is given by: line (y coordinate) , which equals to the result of the integer division of the tag number by 320; and column (x coordinate) , which equals to the remainder of the above integer division. A colour of the point is also chosen, which depends on the expression ratio. As the cursor passes over the points, this mode also gives extra information, like numerical value of the ratio, gene name for identified tags and tag number. By clicking on a point, the user puts the selected tag on the top of the text display. From this moment, complete information concerning the tag is accessible. Figure 14 shows a further mode of representing the data. Only identified tags are shown, possibly grouped according to a specific property, e.g. with respect to KEGG pathways . Figures 15 to 18 show an example of the method according to the present invention, called CIITA, where the promoter of a deficient gene has been restored. This gene controls immunology genes HLA. By the way, already discussed Figure 12 shows the statistics of this experiment, referred to the library sizes, to the linker contamination, to the identified tags, to the reliable ratios and to the confidence values. The minus cell is the cell with no promoter, while the plus cell is the cell with the restored promoter, the HLA cells being expressed in the plus cell. Figure 15 shows for this example a graph of the type already discussed with reference to figure 4A. Figure 16 shows for this example a graph of the type already discussed with reference to figure 4B . Figure 17 shows for this example a graph relating to false alarms; and Figure 18 shows an extract from the list of the most regulated genes for this example. Annexes 1 through 8 are enclosed to the present description and relate to exemplary program codes for performing the method according to the present invention. Annexes 1 through 3 relate to the ditag and tag processing and contain the procedures SageprocessExt.pl, Ubgene6.c and SagecompareExt.pl. respectively. Annexes 4 to 6 relate to an ad hoc database construction with reference to the EMBL case, and contain a procedure MakeDBIndex.pl (Annex 4) which gets the entries referenced by at least one SWISS-PROT entry, a procedure ExtractData.pl (Annex 5) and a procedure •IdentifyRna.pl (Annex 6) which uses the ad hoc library to identify the tags. Annexes 7 and 8 relate to the interface and contain procedures Displist.pl which creates the html page displaying data according to the selection criteria and SageChip . j ava which represents a graphic interface applet . The present invention has been up to now disclosed with reference to preferred embodiments. Other embodiments will be however apparent to the person skilled in the art, upon reading of the present description. For example, tags with different numbers of base- pairs could be treated with easy changes to what up to now described. It is also to be understood that other features can be added to the Graphic Web Interface in order to improve the accessibility to the tags data and to the KEGG pathways, without departing from the scope of the present invention. ANNEX # ! /usr/bin/perl # SageProcessExt.pl # slight modification where we try to get the 15th nucleotide when possible. # End of 1998, author: J. Colinge # We call a C a program which computes the neighbours of each tag and also estimates the # counters before the sequencing errors. # 21st of May 1999, author: J. Colinge require "getopts.pl"; $propmin = 66 ; $SignificantLimit = 6; $nbgene = "/hosts/ch7ux001/usr/people/jcolinge/O200/C/SAGE/nbgene6"; $seqerrpercent = 0.0035; if (@ARGV < 1) { die "Usage: SageTrim.pl [-s] <fastm file> seqerrprct\n" ; } do Getopts (" :s") ; $seqfile = $ARGV[0]; $seqerrpercent = $ARGV[1] if ($ARGV [1] ) ; open (SEQ, $seqfile) | | die "Could not open $seqfile\n" ; $base = $seqfile; $base =~ s/\.\w+//; open (STATLEN, ">$base-ext . statlen" ) ; $libname = "$base-ext .xls" ; $neighbname = "$base .neighb" ; open (STATXLS, " >$libname" ) ; open (TAG, " >$base-ext . tag" ) ; open (ERR, " >$base-ext . err" ) ; $rejected = $nditag = $nditag22 = 0; while (<SEQ>) $name = $_; $sequence = <SEQ>; chop $sequence; $orlength = length ($sequence) ; ©ditags = split (/CATG/ , $sequence) , ■ $n = 0; undef (@am) ; undef (@charA) ; undef (@charC) ; undef (@charG) ; undef (@charT) ; $good = $goodlen = 0 ; foreach $ditag (©ditags) { next if ($ditag eq " " ) ; $1 = length ($ditag) ; #print "$tag\t$l\n"; last if ($n + 1 == ©ditags && ($1 < 18 | | $1 > 24) ) ; $n++; if ($ditg{$ditag} == 1) { $rejected++; print ERR "$ditag\n"; next; } $ditg{$ditag} = 1; if ($1 < 25 && $1 > 19) { $goodlen++; $am[$l - 20]++; if ($ditag !~ /N/) { $good++; $nditag++; $ltag = substr ($ditag, 0, 10); $rtag = substr ($ditag, $1 - 10, 10); $rtag = &Reverse ($rtag) ; $tagcount{$ltag} += 1; $tagcount {$rtag} += 1; $nditag20++ if ($1 == 20) ; $nditag21++ if ($1 == 21) ; $nditag22++ if ($1 === 22) ; $nditag23++ if ($1 == 23) ; $nditag24++ if ($1 == 24) ; if ($1 >= 22) { # there is a possibility to extract one extra-letter for each tag $rchar = &Reverse (substr ($ditag, $1-11, 1) ) ; $lchar = substr ($ditag, 10, 1); $charA{$ltag}++ if ($lchar eq "A' $charC{$ltag}++ if ($lchar eq "C $charT{$ltag}++ if ($lchar eq "T' $charG{$ltag}++ if ($lchar eq "G' 1 $charA{$rtag}++ if ($rchar eq "A" $charC{$rtag}++ if ($rchar eq "C $charT{$rtag}++ if ($rchar eq "T r $charG{$rtag}++ if ($rchar eq "G' } } } else { $rejected++; } } chop ($name) ; ©names = split (/\,| /, $name) ; print STATLEN "$names [0] \t$n\t$goodlen\t$good\t$am[0] \t$am[l] \t$am[2] \t$am[3 ]\t$am[4]\t\n » ; } print STDERR "Number rejected = $rejected\n" ; while ( ($tag, $count) = each(%tagcount) ) { if ($count >= 4) { $tot22 = $charA{$tag}+$charC{$tag}+$charT{$tag}+$charG{$tag} ; if ($tot22 > 0) { $nlead = $charA{$tag} ; $nlead = $charC{$tag} if ($charC{$tag} > $nlead) $nlead = $charG{$tag} if ($charG{$tag) > $nlead) $nlead = $charT{$tag} if ($charT{$tag} > $nlead) $total_lead += $nlead; $total_oth += $tot22-$nlead; $total count += $count; $p = ($tot22-$nlead) /$tot22; $total_p += $p; $nb_p++; if ($count >= $SignificantLimit) { # we check if there is a possible 15th letter candidate $propA = $charA{$tag}/$count*100 $propC = $charC{$tag}/$count*100 $propT = $charT{$tag}/$count*100 $propG = $charG{$tag}/$count*100 $letterl5th = $letterl5th = .A" if ($propA >= $propmin) $letterl5th = .C" if ($propC >= $propmin) $letterl5th = π 11 if ($propT >= $propmin) $letterl5th = .G" if ($propG >= $propmin) $letter{$tag} = $letterl5th; print STATXLS "CATG$tag$letterl5th\t$count\n' if ($count >= 1 ) ; lse print STATXLS "CATG$tag \t$count\n" if ($count >= 1) ; } $n = 0; $total = 0; while ( ($tag, $count) = each(%tagcount) ) ' { if ($count >= 1) { print TAG ">tag$n" . "-" . "$count\n" ; print TAG "CATG$tag\n" ; $n++; $total += $count; } } print STDERR $n different tags, $total tags\n" ; print STDERR " $nditag accepted ditags, \n"; print STDERR ,! $nditag20 with length 20\n" print STDERR ' $nditag21 with length 21\n" print STDERR ' $nditag22 with length 22\n" print STDERR • ' $nditag23 with length 23\n" print STDERR $nditag24 with length 24\n" printf STDERR "$nb_p tags used for prob estimate with average %6.2f count and average %6.2f avg 15th\n" , $total_count/$nb_p, .($total_lead+$total_oth) /$nb_p; printf STDERR "%6.2f average for the leader and %6.2f average for the others\n" , $total_lead/$nb_p, $total_oth/$nb_p; printf STDERR "P(12|22) = %6.4f\n", $total_p/$nb_p; close (SEQ) ; close (STATLEN) ; close (STATXLS) ; close (TAG) ; close (ERR) ; # Computes the neighbours and "real" counters open (COUNT, "$nbgene $libname $seqerrpercent $neighbname |"); for ($i = 0; $i < $n; $i++) { $_ = <COUNT>; chop ; ($tag, $count, $sure) = split (/\t+/) ; $realcount {$tag} = $count; $sure{$tag} = $sure; } close (COUNT) ; # Saves the final result open (STATXLS , " >$1ibname" ) ; while ( ($tag, $count) = each(%tagcount) ) { print STATXLS "CATG$tag$letter{ $tag} \t$count\t$realcount { $tag} \t$sure { $tag} \ n" ; } close (STATXLS) ; exit; sub Reverse { local ($dna) = @_; local ($a) = ( " " ) ; ©bases = split (//, $dna) ; ©revbases = reverse (map ( {$_ = $rev{$_};} ©bases)); $a = join("", ©revbases); $a; ANNEX 2 /* nbgeneδ . c * * Tries to estimate the real tag counters (before sequencing errors) * * 21st of May 1999, author J. Colinge * */ #include <stdio.h> #include <stdlib.h> #include <string.h> #include <math.h> #define maxGene 40000 #define distMax 2 #define size 10 int nbGene, nbElem; char buffer [ll*maxGene] ; char *tag [maxGene] ; int nbTag [maxGene] ; int *neighbList, *neighblndice, *neighbNb, *neighbFreq, *contrNeighb, *giver, *receiver; double *A; int *irow, *jcol, nbElem; void readTags (char *fname) { FILE *f; int res, count, i, pos; char s [15] ; f = fopen(fname, "r"); nbGene = 0 ; pos = 0 ; do if ((res = fscanf(f, "%s%d", s, &count) ) != EOF) { tag [nbGene] = buffer+pos ; for (i = 4 ; i < 14 ; i++ , pos++) buffer [pos] = s [i] ; buf fer [pos++] = 0 ; nbTag [nbGene] = count ; nbGene++ ; } while (res != EOF) ; } /* readTags */ int partition (int 1, int r) { int i, j , tmpi; char *x, *tmpc; x = tag[(l+r)/2] ; i = 1-1; j = r+1; while (1) { do j--; while (strcmp (tag [j ] , x) > 0) ; do i++; while (strcmp (tag [i] , x) < 0) ,- if (i < j) { tmpc = tag [i] ; tag[i] = tag[j] ; tag[j] = tmpc; tmpi = nbTag[i]; nbTag [i] = nbTag [j] ; nbTag [j ] = tmpi ; } else return j ; } } /* partition */ void sort (int 1, int r) { int q; if (1 < r) { q = partition (1, r) ; if (q-1 < r-q) { sort (1, q) ; sort (q+1, r) ; } else { sort (q+1, r) ; sort (1, q) ; } } } /* sort */ int partitionRecGiv (int 1, int r) { int i, j , tmp, x; x = receiver [ (1+r) /2] ; i = 1-1; j = r+1; while (1) { do j--; while (receiver [j] > x) ; do i++; while (receiver [i] < x) ; if (i < j) { tmp = receiver [i] ; receiver [i] = receiver [j]; receiver [j] = tmp; tmp = giver [i] ; giver [i] = giver [j], • giver [j] = tmp; } else return j ; } } /* partitionRecGiv */ void sortRecGiv (int 1, int r) { int q; if (1 < r) { q = partitionRecGiv (1, r) ; if (q-1 < r-q) { sortRecGiv (1, q) ; sortRecGiv (q+1, r) ; } else { sortRecGiv (q+1, r) ; sortRecGiv (1, q) ; } } } /* sortRecGiv */ int search (char *key) { int left, right, m; left = 0; right = nbGene-1; while (left <= right) { m = (left+right) /2; if (strcmp (key, tag [m] ) >= 0) left = m+1; if (strcm (key, tag [m] ) <= 0) right = m-1; } if (left-right == 2) return m; else return -1; } /* search */ void addOneNeighbour (int template, int neighbour, int start, int *nb, int *indice) { int i ; if (template == neighbour) return; for (i = start; i < start+*nb; i++) if (neighbList [i] == neighbour) { neighbFreq[i] ++; return; } (*nb)++; neighbFreq [*indice] = 1; neighbList [ (*indice) ++] = neighbour; } /* addOneNeighbour */ void computeNeighbours (char *fname) { int i, j, k, 1, t, indice, nb, indicePos, start, neighbnb; int nblns, nbSubst, nbDel; char si [15] , s2 [15] , c; FILE *f; neighbNb = (int*) malloc (nbGene*sizeof (int) ) ; neighblndice = (int*) malloc (nbGene*sizeof (int) ) ; contrNeighb = (int*) malloc (nbGene*sizeof (int) ) ; if (nbGene > 100) { neighbList = (int*) malloc (nbGene*nbGene*sizeof (int) /20) ; neighbFreq = (int*) malloc (nbGene*nbGene*sizeof (int) /20) ; giver =.(int*) malloc (nbGene*nbGene*sizeof (int) /20) ; receiver = (int*) malloc (nbGene*nbGene*sizeof (int) /20) ; } else { neighbList = (int*) malloc (nbGene*nbGene*sizeof (int) ) ; neighbFreq = (int*) malloc (nbGene*nbGene*sizeof (int) ) ; giver = (int*) malloc (nbGene*nbGene*sizeof (int) ) ; receiver = (int*) malloc (nbGene*nbGene*sizeof (int) ) ; } if (IneighbNb | | Ineighblndice | | 'contrNeighb | | !neighbList | | !neighbFreq | | !giver | | ! receiver) { fprintf (stderr, "Memory allocation problem\n"); exit (1) ; } indicePos = 0 ; nblns = nbSubst = nbDel = 0 ; for (k = 0; k < nbGene; k++) { start = neighblndice [k] = indicePos; nb = 0; strcpy (sl , tag [k] ) ; /* Replaces one character */ for (i = 0; i < size; i++) { c = si [i] ; if (c != 'A') { Sl [i] = 'A'; if ( (1 = search(sl)) != -1) { nbSubst++; addOneNeighbour (k, 1, start, &nb, &indicePos) ; } Sl [i] = C; } if (c != 'C') { Sl [i] = ' C; if ((1 = search(sl)) != -1) { nbSubst++ ; addOneNeighbour (k, 1, start, &nb, &indicePos) ; } sl [i] = C; } if (c != 'G') { Sl [i] = 'G'; if ((1 = search(sl)) != -1) { nbSubst++; addOneNeighbour (k, 1, start, &nb, S ndicePos) ; } Sl [i] = C; } if (c != 'T') { Sl[i] = 'T'; if ( (1 = search(sl)) != -1) { nbSubst++; addOneNeighbour (k, 1, start, &nb, &indicePos) ; } sl [i] = C; } } /* Inserts one character */ s2 [size] = 0 ; S2[0] = 'G' ; for (i = 0; i < size-1; i++) s2 [i + 1] = sl [i] ; if ( (1 = search(s2)) != -1) { nblns ++; addOneNeighbour (k, 1, start, &nb, ScindicePos); } for (i = 0; i < size-1; i++) { /* Inserts right char. */ for (j = 0; j <= i; j++) S2[j] = sl[j] ; for (j = i; j < size-1; j++) s2[j+l] = sl[j] ; if ( (1 = search(s2)) != -1) { nblns++; addOneNeighbour (k, 1, start, &nb, ScindicePos); } } /* Suppresses one character */ for (i = 0; i < size; i++) { for (j = 0; j < i j++) S2[j] = sl[j] ; for (j = i; j < size-1; j++) S2[j] = sl[j+l] ; S2 [size-1] = 'A'; if ((1 = search(s2)) != -1) { nbDel++; addOneNeighbour (k, 1, start, &nb, ScindicePos) ; } s2 [size-1] = 'C; if ( (1 = search(s2)) != -1) { nbDel++; addOneNeighbour (k, 1, start, Scnb, ScindicePos) ; } s2 [size-1] = 'G'; if ((1 = search(s2)) != -1) { nbDel++; addOneNeighbour (k, 1, start, &nb, ScindicePos) ; } s2 [size-1] = 'T'; if ( (1 = search (s2 ) ) ! = - 1 ) { nbDel++ ; addOneNeighbour (k, 1 , start , &_nb , ScindicePos ) ; } } neighbNb [k] = nb; } nbElem = indicePos+nbGene; /* Computes the "contributing neighbours" */ memset (contrNeighb, 0, nbGene*sizeof (int) ) ; for (i = 0, k = 0; i < nbGene; i++) { neighbnb = neighbNb [i] ; start = neighblndice [i] ; for (j = start; j < start+neighbnb; j++, k++) { contrNeighb [neighbList [j ] ] += nbTag [i] ; receiver [k] = neighbList [j ] ; giver [k] = i; } } sortRecGiv (0, k-1) ; /* Prints the neighbourhood */ f = fopen(fname, "wb"); for (i = 0, j = 0; i < nbGene; i++) { nb = contrNeighb [i] ; fprintf (f, "TAG\tCATG%s\t%d\t%d\n", tag[i], nb, nbTag [i] ) ; if (nb > 0) for ( ; (j < k) ScSc (receiver [j] == i) ; j++) fprintf (f, "CATG%s\t%d\n", tag [giver [j ]] , nbTag [giver [j ] ] ) ; } fclose (f) ; } /* computeNeighbours */ void computeMatrix (double q) { int i, j, start, neighbnb, nb, tot; double prob, foreach, forme; A = (double*) malloc (nbElem*sizeof (double) ) ; irow = (int*) malloc ( (nbElem-nbGene) *sizeof (int) ) ; jcol = (int*) malloc ( (nbElem-nbGene) *sizeof (int) ) ; /* Probability to have sequencing error (s) in one tag */ prob = 10.0*q*exp (log(l.O-q) *9) ; nbElem = nbGene; for (i = 0; i < nbGene; i++) { neighbnb = neighbNb [i] ; nb = nbTag [i] ; if (neighbnb > 0) { /* Number of tags to "give" to each neighbour */ start = neighblndice [i] ; tot = 0 ; for (j = start; j < start+neighbnb; j++) tot += neighbFreq [j ] ; foreach = prob/tot; forme = 1.0-prob; for (j = start; j < start+neighbnb; j++) { /* Extra-diagonal elements */ A [nbElem] = foreach*neighbFreq [j ] ; jcol [nbElem-nbGene] = i; irow [nbElem-nbGene] = neighbList [j ] ; nbElem++; } } else forme = 1.0; /* Diagonal elements */ A[i] = forme; } } /* computeMatrix */ void prodMatrVect (int n, int nbElem, double *A, int *row, int *col, double *x, double *y) { int i, j ; /* Computes y=Ax, no supposed structure for A, except that diagonal elements are stored first */ for (i = 0; i < nbGene; i++) y[i] = A[i]*x[i] ; for (i = nbGene, j = 0; i < nbElem; i++, j++) y [row [j ] ] += A [i] *x [col [j ] ] ; } /* prodMatrVect */ double dotProduct (int n, double *a, double *b) { int i ; double sum; sum = 0.0; for (i = 0; i < n; i++) sum += a [i] *b [i] ; return sum; } /* dotProduct */ int BiCGSTAB (int n, int nbElem, double *A, int *row, int *col, double *x, double *b, int *iter, double *tol, int verbose) { int i, it; double resid, rhol, rho2 , alpha, beta, omega, normb; double *p, *phat, *s, *shat, *t, *v, *r, *rtilde, *dummy; /* Allocations */ p = (double*) malloc (n*sizeof (double) ) ; phat = (double*) malloc (n*sizeof (double) ) ; s = (double*) malloc (n*sizeof (double) ) ; shat = (double*) malloc (n*sizeof (double) ) ; t = (double*) malloc (n*sizeof (double) ) ; v = (double*) malloc (n*sizeof (double) ) ; rtilde = (double*) malloc (n*sizeof (double) ) ; r = (double*) malloc (n*sizeof (double) ) ; dummy = (double*) malloc (n*sizeof (double) ) ; /* Computations */ normb = 1.0; /*sqrt (dotProduct (n, b, b));*/ prodMatrVect (n, nbElem, A, row, col, x, dummy); for (i = 0; i < n; i++) rtilde [i] = r[i] = b [i] -dummy [i] ; if (normb == 0.0) normb = 1.0; resid = sqrt (dotProduct (n, r, r) ) /normb; if (resid <= *tol) { *tol = resid; *iter = 0; return 0 ; } r (it = 1; it <= *iter; it++) { rhol = dotProduct (n, rtilde, r) ; if (rhol == 0.0) { *tol = sqrt (dotProduct (n, r, r) ) /normb; *iter = it; return 2 ; } if (it == 1) memcpy(p, r, n*sizeof (double) ) ; else { beta = (rhol/rho2) * (alpha/omega) ; for (i = 0; i < n; i++) p[i] = r [i] +beta* (p [i] -omega*v[i] ) ; } /* Diagonal preconditioner */ for (i = 0; i < nbGene; i++) phat [i] = p[i]/A[i] ; prodMatrVect (n, nbElem, A, row, col, phat, v) ; alpha = rhol/dotProduct (n, rtilde, v) ; for (i = 0; i < n; i++) s[i] = r [i] -alpha*v[i] ; resid = sqrt (dotProduct (n, s, s) ) /normb; if (resid < *tol) { for (i = 0; i < n; i++) x [i] += alpha*phat [i] ; *tol = resid; *iter = it ; return 0 ; } /* Diagonal preconditioner */ for (i = 0; i < nbGene; i++) shat [i] = s [i] /A[i] ; prodMatrVect (n, nbElem, A, row, col, shat, t) ; omega = dotProduct (n, t, s) /dotProduct (n, t, t) ; for ( i = 0 ; i < n; i++) { x [i] += alpha*phat [i] + omega*shat [i] ; r [i] = s [i] - omega*t [i] ; } rho2 = rhol; resid = sqrt (dotProduct (n, r, r) ) /normb; if (resid < *tol) { *tol = resid; *iter = it; return 0 ; } if (omega == 0.0) { *tol = sqrt (dotProduct (n, r, r) ) /normb; *iter = it; return 3 ; } if (verbose) fprintf (stderr, "%d: %e\n", it, resid); } *tol = resid; return 1 ; } /* BiCGSTAB */ void estimateNbGenes (double q, double limit) { int i, j, nb, nbSure, n, N, NO, neighbnb, totalTags, nberr, result, iter, start; int *alreadyN0; double *x, *b, tol; /* Solves the linear system */ x = (double*) malloc (nbElem*sizeof (double) ) ; b = (double*) malloc (nbElem*sizeof (double) ) ; for (i = 0; i < nbGene; i++) b[i] = nbTag [i] ; memset (x, 0, nbGene*sizeof (double) ) ; iter = 100; tol = 1.0E-15; result = BiCGSTAB (nbGene, nbElem, A, irow, jcol, x, b, &iter, Sctol, 1) ; /* Reports results */ nb = nbSure = totalTags = 0 ,- for (i = 0; i < nbGene; i++) { n = nbTag [i] ; totalTags += n; N = contrNeighb [i] ; if ( (N == 0) | | (n > N) ) { /* No contributing neighbour or impossible to explain by sequencing errors */ nbSure++; printf ("%s\t%f\tS\n", tag[i], x[i]); } else { if (fabs (nbTag [i] -x[i] ) /nbTag [i] <= limit) nb++; printf ("%s\t%f\tP\n", tag[i], x[i]); } } } /* estimateNbGenes */ int main (int argc, char *argv[]) { readTags (argv [1] ) ; sort(0, nbGene-1) ; computeNeighbours (argv [3] ) ; computeMatrix(atof (argv [2] ) ) ; estimateNbGenes (atof (argv [2] ) , 0.1) ; return 0 ,- } /* main */ ANNEX 3 # ! /usr/bin/perl # SageCompareExt.pl version 1.2 # 1.0 # Adapted for the new -ext.xls format (produced by SageProcessExt.pl) with possible 15th letter. # Extension of SageCompare.pl written by M. De Francesco. # 15th of December 1998, author: J. Colinge # 1.1 # The central data base containing the random number associated to the tags is used # to find the number corresponding to the processed tags. The probability a given ratio # is reliable is computed. # 13th of January 1999, author: J. Colinge # 1.2 # The new -ext.xls format with estimated counters before sequencing errors is used. We also deal # with the .neighb files which contain the neighbouring structure. # 21st of May 1999, author: J. Colinge require "getopts.pl"; $SignificantLimit = 6; $UnsignificantLimit = 3; sub logstirling { my ($a) = @_; 0.918938533 + ($a+0.5) *log ($a) -$a; } # logstirling sub ProbCond { my ($x, $y, $r) = @_; my ($sum, $di) ; $sum = log($r)*$y - log (1.0+$r) * ($x+$y+l .0) ; if ( ( $x >= 100 ) ScSc ( $y >= 100 ) ) { # we use Stirling ' s Formula $sum += logstirling ($x+$y) -logstirling ($x) - logstirling ($y) ; • } else { # we use an algorithm which has a complexity comparable with one log fact if ($x >= $y) { for ($di = 1.0; $di <= $y; $di += 1.0) { $sum += log($x/$di+1.0) ; } } else { for ($di = 1.0; $di <= $x; $di += 1.0) { $sum += log($y/$di+1.0) ; } } } exp ($sum) ; } # ProbCond sub Whichlnterval { my ($x, $y0, $r) = @_; my ©siglvl = (0.1, 0.075, 0.05, 0.025, 0.01, 0.005); my $nblvl ' = ©siglvl; my ($i, $j , $y, ©ymin, ©ymax, $total, $lvl) ; for ($i = 0; $i < $nblvl ; $i++) { $ymin[$i] = -2; $ymax[$i] = 0; } for ($total = 0.0, $y = 0; $total ' <= 1.0-$siglvl [$nblvl-l] ; $y++) { for ($i = 0; $i < $nblvl; $i++) { if ($total <= $siglvl [$i] ) { $ymin [$i] = $y; } if ($total <= 1 .0 -$siglvl [$i] ) { $ymax [$i] = $y; } } $total += ProbCond ( $x, $y, $r) ; } $lvl = 0.0; for ($i = 0; $i < $nblvl; $i++) { if ( ($y0 <= $ymin [$i] - l) | | ( $y0 >= $ymax [$i] ) ) { $lvl = 1 . 0 -2 . 0*$siglvl [$i] ; } } $lvl; } # Whichlnterval tø main if (©ARGV != 4) { die "Usage: SageCompare.pl [-s] <xlsfilel> <xlsfile2> <centraldb> <outfile>\n" ; } do Getopts ( ' s: ' ) ; $occurfilel = $ARGV[0] ; $occurfile2 = $ARGV[1] ; $centraldb = $ARGV[2] ; $v = index ($occurfilel, "-ext.xls"); $neighbfilel = substr ($occurfilel, 0, $v) ." .neighb" ; $v = index ($occurfile2, "-ext.xls"); $neighbfile2 = substr ($occurfile2 , 0, $v) ." .neighb" ; $outfile = $ARGV[3] ; open (0C1, $occurfilel) || die "Could not open $occurfilel\n" ; open (0C2, $occurfile2) j| die "Could not open $occurfile2\n" ; open (DB, $centraldb) || die ("Cannot open central data base: $ ! " ) ; # Loads the tag central db while (<DB>) { chop; ($tag, $number) = split (/,/); $_ = <DB>; $number{$tag} = $number; } close (DB) ; # Starts processing the libraries $libl = $occurfilel; $libl =~ s/\.\w+// ; $lib2 = $occurfile2; $lib2 =~ s/\.\w+// ; $N1 = $N2 = 0; while (<0C1>) { chop; ($tag, $count, $realcount, $status) = split (/\s+/) ; if ($tag =- Λ./) { ($tag, $letter) = split (/\./, $tag) ; $letterl{$tag} = $letter; } $countl{$tag} = $count; $realcountl{$tag} = $realcount; $statusl{$tag} = $status; $tag{$tag} = 1; $N1 += $count; } close (OCl) ; while (<OC2>) { chop; ($tag, $count, $realcount, $status) = split (/\s+/) ; if ($tag =~ /\./) { ($tag, $letter) = split(/\./, $tag) ; $letter2{$tag} = $letter; } $count2 {$tag} = $count; $realcount2 {$tag} = $realcount; $status2 {$tag} = $status; $tag{$tagj = 1; $N2 += $count; } close (OC2) ; $ratio = $N1/$N2; $r = $N2/$N1; print STDERR "$N1 in minus and $N2 in plus\n" ; open (OUT, " >$outfile-ext .xls" ) ; foreach $tag (keys(%tag)) { $countl{$tag} += 0 ; $count2{$tag} += 0 ; $cl = $countl{$tag} ; $c2 = $count2{$tag) ; $n2norm = $c2*$ratio; $nlnorm = $cl; $n2norm = 1 if ($n2norm == 0) ; $nlnorm = 1 if ($nlnorm == 0) ; $rapport = -$nlnorm/$n2norm; $rapport = $n2norm/$nlnorm if ($n2norm/$nlnorm > - $rapport) ; $n2norm = $c2*$ratio; $absrap = ($rapport > 0) ?$rapport : -$rapport ; $conf = 1.0-ProbCond($cl, $c2, $r) ; $inter = Whichlnterval ($cl, $c2, $r) ; if ($letterl{$tag} ScSc ($letterl{$tag} eq $letter2 {$tag} ) ) { # both libraries have the same 15th letter, we use it print OUT "$tag. $letterl {$tag}\t " ; $letter{$tag} = " . $letterl{$tag} " ; } else { if ( !$letter2{$tag} Sc&= $letterl{$tag} ScSc ($cl >= $SignificantLimit) Sc&. ($c2 <= $UnsignificantLimit) ) { # 15th letter from library 1 and small number of occurences in library 2, we use the 15th letter print OUT "$tag. $letterl {$tag}\t " ; $letter{$tag} = " . $letterl{$tag} " ; } elsif (!$letterl{$tag} ScSc $letter2 {$tag} ScSc ($c2 >= $SignificantLimit) &Sc ($cl <= $UnsignificantLimit) ) { # 15th letter from library 2 and small number of occurences in library 1, we use the 15th letter print OUT "$tag. $letter2 {$tag}\t " ; $letter{$tag} = " . $letter2 {$tag} " ; } else { # neither library 1 nor 2 have a 15th letter, or one have a 15th letter but the other have # no 15th letter and enough occurences to make the 15th letter from the first library suspect, # or both library have a 15th letter but different, we add no 15th letter print OUT "$tag \t"; } } $realcountl{$tag} += 0 ; $realcount2{$tag} += 0 ; $statl = $statusl{$tag} ? $statusl{$tag} $stat2 = $status2{$tag} ? $status2{$tag} 1 * I printf (OUT "%4d\t%4d\t%7.2f\t%9.2f\t " $cl, $c2, $n2norm, $rapport) ; printf (OUT "%8.2f\t%5.3f\t%4.2f\t%6d" $absrap, $conf, $inter, $number{$tag} ) ; printf (OUT "\t%7.2f\t%s\t%7.2f\t%s\n" $realcountl{$tag} , $statl, $realcount2{$tag} , $stat2); } close (OUT) ; undef (%tag) ; undef (%realcountl) ; undef (%statusl) ; undef (%letterl) ; undef (%realcount2) ; undef (%status2) ; undef (%letter2) ; # Neighbourhood open(NBl, $neighbfilel) || die("no $neighbfilel" ) ; while (<NB1>) { chop; if (/ TAG/) { ($dummy, $tag, $nbneighb, $count) = split (/\s+/) ; } else { $neighb{$tag} .= "/" if $neighb{$tag} ; $neighb{$tag} .= (split (/\s+/) ) [0] ; } } close (NB1) ; open(NB2, $neighbfile2) || die ("no $neighbfile2 " ) ; while (<NB2>) { chop ; if (/ Λ TAG/) { ($dummy, $tag, $nbneighb, $count) = split (/\s+/) ; } else { $neighb{$tag} .= "/" if $neighb{$tag} ; $neighb{$tag} .= (split (/\s+/) ) [0] ,- } } close (NB2) ; open(NEI, " >$outfile .neighb" ) ; foreach $tag (keys (%neighb) ) { undef (©line) ,- ©line = split(/\//, $neighb{$tag} ) ; print NEI "TAG $tag$letter{$tag} : " ; undef (%tag) ; for ($i = 0; $i < ©line; $i++) { if (!$tag{$line[$i] }) { $tag{$line[$i] } = 1; printf NEI " %s%s %d %d %7.2f", $line [$i] , $letter{$line [$i] } , $number{$line [$i] } , $countl{$line [$i] } , $count2{$line [$i] }*$ratio; } } print NEI "\n"; } close (NEI) ; ANNEX 4 # ! /usr/bin/perl # MakeDBIndex.pl version 1.0 # Creates an index which contains EMBL file positions and corresponding SPTR file positions. # 11 December 1998, author: J. Colinge use Getopt::Std; use vars qw($opt_o); use strict; my $human = " Λ OS . *HOMO. *SAPIENS" ; my $mouse = " Λ 0S . *MUS . *MUSCULUS" ; my $emblbase = "/usr/bioinf/db/embl/" ; my $emblidx = "/usr/bioinf/db/embl/embl . idx" ; my $sprotname = "/usr/bioinf/db/sprot/sprot . dat" ; my $tremblname = "/usr/bioinf/db/sptr/trembl .dat " ; my $allsep = "[+-]"; my $sprotsep = "+"; my $tremblsep = >'- » ; my %useful ; my $organis ; sub max { if ($_[0] < $_[!]) { $_[0]; } else { $_ [ i ] ; } } # max sub ScanDB {. local $_; my ($filename, $sep, $useful) = @_; my ($accessnum, $ac) ; my (©line, ©pointer) ; my ($i, $nbpointer, $pos, $ChosenOrg, $lastpos) ; # open the data bases for scanning open(DB, $filename) || die ("Cannot open $filename for reading : $ ! " ) ; # we scan the protein DB in order to list every useful entry from EMBL $pos = tell (DB) ; while (<DB>) { # load one entry from DB $nbpointer = 0; $ac = 0; $ChosenOrg = 0; undef (©pointer) ; until (m@ λ //@) { chop; if (/$organism/) { $ChosenOrg = 1 ; } elsif (/ DR *EMBL;/) { ©line = split (/ ; * | \ . */) ; $pointer [$nbpointer] = $line [l] ; $nbpointer++ ; } elsif (/ Λ AC/ ScSc !$ac) { # only get the first access number, several AC-lines are possible ©line = split (/ Λ AC * | ; */) ; $accessnum = $line[l]; $ac = 1; } $_ = <DB>; } $lastpos = $pos; $pos = tell (DB) ; next unless ($ChosenOrg) ; # store every pointed EMBL entry for ($i = 0; $i < $nbpointer; $i++) { if ($useful-> { $pointer [$i] } ) { $useful- > { $pointer [$i] } . = " , " . $accessnum. $sep . $lastpos ; } else { $useful->{$pointer [$i] } = $accessnum. $sep. $lastpos; } } } close (DB) ; } # ScanDB sub ProduceGenesDB { local $_; my ($useful) = @_; my ($file, $embl, $sprot, $key) ; my ($accessnum, $pos, $descrgiven, $i, $v) ; my (©sprot, %multiple, %already) ; my ($nb, $emblpos, ©line, $inter) ; # an entry is created for each used EMBL entry, open (SPROT, $sprotname) ; open(TREMBL, $tremblname) ; # We find the location of the embl entry and check if it has already been read # through another AC, in which case we merge the various SPTREMBL entry lists. # File/position is unique for each EMBL entry and is used as a key. undef (%already) ; while (($embl, $sprot) = each(%$useful) ) { $_ = "ggrep " | $embl | " $emblidx" ; chop; if (!$_) { print STDERR "$embl (pointed by $sprot) not found in $emblidx\n" ; next ; } ©line = split (/\ I /) ; $nb = ©line; $file = $line [$nb-2] ; $emblpos = $line [$nb-l] ; $key = "$file/$emblpos"; print STDERR "$embl found in $file at pos $emblpos\n" ; if ($already{$key}) { $already{$key} .= ",$sprot"; } else { $already{$key} = "$embl, $sprot " ; } } undef (%$useful) ; # for each pointed EMBL entry we print the list of SPTREMBL entries while (($key, $sprot) = each (%already) ) { # extract the EMBL entry identification ($file, $emblpos) = split (A//, $key) ; $v = index ($sprot, ","); $embl = substr ($sprot, 0, $v) ; ' $sprot = substr ($sprot, $v+l) ; print STDERR "final treatement for $embl\n"; # split the SPTREMBL reference list if ($sprot =~ /,/) { ©sprot = split(/,/, $sprot) ,- } else { ©sprot = ($sprot) ; } # multiple references to the same EMBL entry from a unique SPTREMBL are removed undef (%multiple) ; for ($i = 0; $i < ©sprot; $i++) { unless ($multiple { $sprot [$i] } ) { $multiple { $sprot [$i] } = " 1 " ; } } # print one line of the index file print "\\EMBL=$embl-$file/$emblpos" ; foreach $sprot (keys (%multiple) ) { ($accessnum, $pos) = split (/$allsep/ , $sprot) ; if ($sprot =- /\Q$sprotsep\E/) { print STDERR " $accessnum at pos $pos in SPROT\n" ; print " \\SPROT=$accessnum/$pos" ; } else { print STDERR " $accessnum at pos $pos in TREMBL\n" ; print " \\TREMBL=$accessnum/$pos" ; } } print "\n"; } close (SPROT) ; close (TREMBL) ; } # ProduceGenesDB # main # select the organism getopts ( 'o : ' ) ; if ( ! $opt_o) print STDERR "Usage: MakeDBIndex.pl -o [mouse | human] \n" ; exit (1) ; if ($opt_o eq "mouse") $organism = $mouse; elsif ($opt_o eq "human") $organism = $human; else print STDERR "Usage: MakeDBIndex.pl -o [mouse | human] \n" ; exit (1) ; # scan SWISS-PROT and then TREMBL print STDERR "Start scanning $sprotname\n" ; ScanDB ($sprotname, $sprotsep, \%useful) ; print STDERR "Start scanning $tremblname\n" ; ScanDB ($tremblname, $tremblsep, \%useful) ; # produce the index print STDERR "Start creating the new index\n" ; ProduceGenesDB (\%useful) ; ANNEX 5 # ! /usr/bin/perl # ExtractData.pl version 1.0 # Create 2 data bases (in fasta format) , one for EMBL RNA entries and one for non-RNA EMBL entries, # which contain nucleotides sequences corresponding to SWISS- PROT TREMBL entries. The nucleotides # sequences are taken from EMBL. Extra information is added like gene name, description, etc. # This version of the program directly use an index file, which contains the EMBL # file positions and the corresponding SPROT and TREMBL file positions . # Mutation features are considered in RNA entries. # 11 December 1998, author: J. Colinge # Subcell. loc, 6th of April 1999, JC # PROSITE and PFAM link (protein family) , 10th of May 1999, JC use strict; # data bases my $indexfile; my $dnafile; my $rnafile; my $emblbase = "/biotemp/embl/" ; my $sprotname = "/usr/bioinf/db/sprot/sprot .dat" ; my $tremblname = "/usr/bioinf/db/sptr/trembl .dat" ; my $RNAname = "ma. dat"; my $DNAname = "dna.dat"; my $allsep = "[+-]"; my $sprotsep = "+"; my $tremblsep = "-"; my $MaxTagLength = 15; sub max { if ($_[0] < $_[!]) { $_[0]; } else { $ [l] ; } } # max sub SortAndCheckMutations { my ($embl, $nbmut, $mutstart, $mutend, $mutant) = @_; my ($i, $j , $temp) ; # recall that, for small amount of data, linear sort algorithms are faster for ($i = 0; $i < $nbmut-l; $i++) { for ($j = $i+l; $j < $nbmut ; $j++) { if ($mutstart- > [$i] < $mutstart- > [$ j ] ) # reverse order I I I { $temp = $mutstart-> [$i] ; $mutstart-> [$i] = $mutstart-> [$j ] ; $mutstart- > [$j ] = $temp; $temp = $mut.end-> [$i] ; $mutend-> [$i] = $mutend-> [$j ] ,- $mutend- > [$j ] = $temp; $temp = $mutant- > [$i] ; $mutant-> [$i] = $mutant-> [$j ] ; $mutant- > [$j ] = $temp; } } } # mutation locations should not overlap for ($i = 0; $i < $nbmut-l; $i++) { if ($mutstart-> [$i] <= $mutend-> [$i+l] ) # recall reverse order { print STDERR "Warning : overlapping mutations in $embl\n"; } } } # SortAndCheckMutations sub WriteOneDescr { my ($outfile, $embl, $emblid, $seqlength, $polyA, $embldescr, $emblkw, $tag, $nbsptrembl, $sptrembl, $sptremblpos) = @_; my ($i, $descr, $keywords, $genename, $domain, $sptremblid, $location, $prosite, $pfam) ; my ($start, $stop, $dom, $v) ; local $_; print $outfile "EMBL ", substr ($embl, 6), " , $emblid, $seqlength, $polyA\n" ; print $outfile "DE $embldescr\n" ; print $outfile "KW $emblkw\n" ; print $outfile "TAG $tag\n" ; for ($i = 0; $i < $nbsptrembl; $i++) { undef ($descr) ; undef ($keywords) ; undef ($genename) ; undef ($domain) ; undef ($sptremblid) ; undef ($prosite) ; undef ($pfam) ; if ( $sptrembl - > [$i] =- /\\SPROT/ ) { open (SPROT, $sprotname) ; seek (SPROT, $sptremblpos-> [$i] , 0) ; while (<SPROT>) { chop; if (/"DE/) $descr .= substr ($_, 5)." "; elsif (/ A ID/) $sptremblid = (split (/\s+/) ) [1] ; elsif (/ A GN/) $genename = substr ($_, 5) ; elsif (/ KW/) $keywords .= substr ($_, 5)." "; elsif (/ FT DOMAIN/) $start = (split (/\s+/) ) [2] ; $stop = (split (/\s+/)) [3] ; $v = index ($_, $stop) ; if ($start == $stop) { $v = index ($_, $stop, $v+l) ; } $dom = substr ($__, $v+length ($stop) ) ; chop ($dom) ; $domain .= " ($start , $stop) $dom, "; } elsif (/ A CC SUBCELLULAR LOCATION/) { $location = substr ($_, 31); $_ = <SPROT>; while (/ A CC /) { chop; $location .= " ". substr ($_, 9) ; $_ = <SPROT>; } next ; elsif (/ A DR PROSITE/) $prosite .= substr($_, 5)."\\"; elsif (/ DR PFAM/) $pfam .= substr($_, 5)."\\"; elsif (/ SQ/) last ; $_ = <SP>; } close (SPROT) ; $domain = join(" ", split(/\s+/, $domain) ) ; print $outfile "SPROT ", substr ($sptrembl-> [$i] , 7) " , $sptremblid\n" ; print $outfile "DE $descr\n" ; print $outfile "GN $genename\n" if ($genename) ; print $outfile "KW $keywords\n" if ($keywords) ; print $outfile "DOMAIN $domain\n" if ($domain) ; print $outfile "SUBLOC $location\n" if ($location) ; print $outfile "PROSIT $prosite\n" if ($prosite) ; print $outfile "PFAM $pfam\n" if ($pfam) ; print $outfile "/An"; } else { open (TREMBL, $tremblname) ; seek(TREMBL, $sptremblpos-> [$i] , 0) ; while (<TREMBL>) { chop ; if (/ DE/) $descr .= substr ($_, 5)." "; elsif (/ ID/) $sptremblid = (split (/\s+/) ) [1] ; elsif (/ GN/) $genename = substr ($_, 5) ; elsif (/ A KW/) $keywords .= substr ($_, 5)." "; elsif (/ A FT DOMAIN/) $start = (split (/\s+/) ) [2] ; $stop - (split (/\s+/)) [3] ; $v = index ($_, $stop) ; if ($start == $stop) { $v = index ($_, $stop, $v+l) ; } $dom = substr ($_, $v+length ($stop) ) ; chop ($dom) ; $domain .= " ($start , $stop) $dom, "; } elsif (/ DR PROSITE/) { $prosite .= substr($_, 5)."\\" ; } elsif (/ A DR PFAM/) { $pfam .= substr($__, 5) ."\\"; } elsif (/ A SQ/) { last; } } close (TREMBL) ; $domain = join(" ", split(/\s+/, $domain) ) ; print $outfile "TREMBL ", substr ($sptrembl-> [$i] , 8), " , $sptremblid\n" ; print $outfile "DE $descr\n" ; print $outfile "GN $genename\n" if ($genename) ; print $outfile "KW $keywords\n" if ($keywords) ; print $outfile "DOMAIN $domain\n" if ($domain) ; print $outfile "PROSIT $prosite\n" if ($prosite) ; print $outfile "PFAM $pfam\n" if ($pfam) ; print $outfile "//\n"; } } } # WriteOneDescr sub ProduceGenesDB { local $_; my ($emblfile, $embl, $ntseq, $ntseq2, $comb, $start) ; my ($emblpos, $i, $switch, $shift, $len, $tag) ; my ($emblid, $embldescr, $seqlength, $polyA, $emblkw) ; my (©sptrembl, ©sptremblpos, %combination) ; my ($oneembl, $nbsptrembl) ; my ($nbentry, $nbrna) ; my ($rna, $lastloc, $back) ; my ($v, $w, $x, $nbmut, $disjoint) ; my (©mutant, ©mutstart, ©mutend) ; my (%nothing, %special, $embllook) ; my ($mutfirst, $mutsecond) ; my ($mute, $debut) ; # entries which have to be "manually" treated for mutations %nothing = ( # human M28219=>1, M64073=>1, Z37728=>1, X75934=>1, X73071=>1, J04838=>1, M13792=>1, M63967=>1, M74314=>1, AB004860=>1, M25660=>1, M25661=>1, M55702=>1, M15442=>1, #mouse X51528 => 1, M28591 => 1, D10211 => 1, M30128 => 1, AF004352 =>1, U96726 => 1, M98333 => 1, U80985 => 1, AF043689 => 1, AF043690 => 1) ; %special = (# human U00177=>1, D21092=>1, D21094=>1, M13951=>1, Y00109=>1, M14993=>1, M18036=>1, L44746=>1, D15058=>1, #mouse M69222 => 1, M62897 => 1) ; # an entry is created for each used EMBL entry open (INDEX, $indexfile) ; open(DNAFILE, " >$dnafile" ) ; open(RNAFILE, " >$rnafile" ) ; $nbentry = 0; $nbrna = 0 ; $debut = 0 ; while ($oneembl = <INDEX>) { $nbentry++; # we extract data from the DBindex entry chop ($oneembl) ; $v = inde ($oneembl, "-"); $embl = substr ($oneembl, 0, $v) ; $w = inde ($oneembl, "/"); $x = index ($oneembl, "W", 1) ; $emblpos = substr ($oneembl, $w+l, $x-$w-l) ; $emblfile = substr ($oneembl, $v+l, $w-$v-l) ; $oneembl = substr ($oneembl, $x) ; $nbsptrembl = 0 ; $debut = 1 if ( (inde ($embl, "M79311") > -1) ) ; next if (!$debut); while ($oneembl) { $v = inde ($oneembl , " / " ) ; $w = index ($oneembl, "\\", 1) ; $sptrembl [$nbsptrembl] = substr ($oneembl , 0, $v) ; if ($ w == -i) { $sptremblpos [$nbsptrembl] = substr ( $oneembl , $v+l) ; undef ( $oneembl ) ; } else { $sptremblpos [$nbsptrembl] = substr ( $oneembl , $v+l , $w- $v- 1) $oneembl = substr ($oneembl, $w) ; } $nbsptrembl++ ; } # the nucleotide sequence is read from EMBL open (EMBL, $emblbase . $emblfile . " .dat " ) ; seek(EMBL, $emblpos, 0) ; $_ = <EMBL>; undef ($ntseq) ; $rna = 0; $nbmut = 0 ; undef (@mutstart) ; undef (©mutend) ; undef (©mutant) ; undef ($embldescr) ; undef ($emblid) ; undef ($polyA) ; undef ($emblkw) ; until (m@ //@) { chop ; if (A /) { # we collect the nucleotide sequence s/ [ A agtcnrymkswhbvdAGTCNRYMKSWHBVD] //g; $ntseq .= $_; } elsif (/ A FT polyA/) { $polyA = "polyA"; } elsif (/ KW/) { $emblkw .= substr($_, 5)." "; } elsif (/ ID/) { $emblid = (split (/\s+/) ) [1] ; if (index ($_, "RNA") > -1) { # we mark the fact that this is rna in order to try to simplify the entry later $rna = 1; $nbrna++; } } elsif (/ A DE/) { $embldescr . = substr ($ , 5)." " ; } elsif (/ A FT mutation/) { # exclude the entries where no mutation treatement is possible $embllook = substr ($embl, 6) ; if ($nothing{$embllook}) { $_ = <EMBL>; next ; } # exclude the entries which have to be manually treated if ($special{$embllook}) { if ($embllook eq "U00177") { $mutstart[0] = $mutend[0] = 172; $mutant[0] = "G"; $nbmut = 1; $_ = <EMBL>; next ; } elsif ($embllook> eq "D21092") { $mutstart[0] = $mutend[0] = 1675; $mutant[0] = "A"; $nbmut = 1 ; $_ = <EMBL>; next ; } elsif ($embllook eq "D21094") { $mutstart[0] = $mutend[0] = 1870; $mutant[0] = "A"; $nbmut = 1; $_ = <EMBL>; next ; } elsif ($embllook eq "M13951") { $mutstart [0] = $mutend[0] = 200; $mutant[0] = "T"; $nbmut = 1; $_ = <EMBL>; next ; } elsif ($embllook eq "Y00109") { $mutstart[0] = $mutend[0] = 1534; $mutant[0] = "A" ; $nbmut = 1 ; $_ = <EMBL>; next ; } elsif ($embllook eq "M14993") { $mutstart[0] = 2017; $mutend[0] = 2256; $mutant[0] = "deletion"; $nbmut = 1 ; $_ = <EMBL>; next ; } elsif ($embllook eq "M18036") { $mutstart [0] = $mutend[0] = 46; $mutant[0] = "C"; $nbmut = 1 ; $_ = <EMBL>; next ; } elsif ($embllook eq "L44746") { $mutstart [0] = $mutend[0] = 65; $mutant[0] = "G"; $nbmut = 1 ; $_ = <EMBL>; next ; } elsif ($embllook eq "D15058") { $mutstart[0] = $mutend[0] = 126; $mutant[0] = "A" ; $nbmut = 1 ; $_ = <EMBL>; next ; } elsif ($embllook eq "M69222") { $mutstart[0] = $mutend[0] = 295; $mutant[0] = "A" ; $nbmut = 1 ; $_ = <EMBL>; next ; } elsif ($embllook eq "M62897") { $mutstart[0] = $mutend[0] = 33; $mutant[0] = "T"; $nbmut = 1 ; $_ = <EMBL>; next ; } } # extract the mutation location $_ = substr($_, 13); s/ //g; if (/[ A 0-9\.]/) { # intervals and single locations are handled only print STDERR "mutation location too complex in $embl $emblfile $emblpos\n" ; $_ = <EMBL>; next ; } if (/\Λ./) { ($mutstart [$nbmut] , $mutend [$nbmut] ) = split (/\ . \ ./) ; } else { $mutstart [$nbmut] = $mutend [$nbmut] = $_; } # extract the mutant sequence $back- = tell (EMBL) ; $_ = <EMBL>; until (/ A FT +\/replace=| A SQ/) { $_ = <EMBL>; } place, try to find a /note (or /phenotype) seek(EMBL, $back, 0) ; +\/note=| FT +\/phenotype= | SQ/) >; print STDERR "neither /replace nor /note for mutation in $embl $emblfile $emblpos\n" ; } else { if (/ [actgACTG] +.*in.*\/.* [actgACTG] +.*in/) { # syntax like: /note="seql ... in .../seq2 ... in II $v = inde ($_, "\"") ; $w = index($_, " ", $v+2) ; $mutant [$nbmut] = substr ($_, $v+l, $w-$v-l) ; $v = index($_, "/", index($_, "/note=" ) +5) ; $w = inde ($_, " ", $v+2); $mutant [$nbmut] .= "/". substr ($_, $v+l, $w-$v-l) ; $mutant [$nbmut] =~ s/ //g; # sometimes there is a space after "/", sometimes not $nbmut++; } elsif (/ [actgACTG] +.*in.*; .* [actgACTG] +. */) { # syntax like: /note="seql ... in ... ; seq2 ... in II $v = inde ($_, "\ » ") ; $w = inde ($_, " ", $v+2) ; $mutant [$nbmut] = substr ($_, $v+l, $w-$v-l) ; $v = inde ($_, "; ") ; $w = inde ($_, " ", $v+2) ; $mutant [$nbmut] .= "/". substr ($_, $v+l, $w-$v-l) ; $mutant [$nbmut] =~ s/ //g; # sometimes there is a space after ";", sometimes not $nbmut++; } elsif (/ [actgACTG] +.*in.*, .* [actgACTG] +. *in/) { # syntax like: /note="seql ... in ... , seq2 ... in II $v = inde ($_, » \" » ) ; $w = inde ($_, " ", $v+2) ; $mutant [$nbmut] = substr ($_, $v+l, $w-$v-l) ; $v = inde ($_, ", ") ; $w = inde ($_, " ", $v+2); $mutant [$nbmut] .= "/ ■ '. substr ($_, $v+l, $w-$v-l) ; $mutant [$nbmut] =~ s/ //g; # sometimes there is a space after /, sometimes not $nbmut++; } elsif ( ( $mutstart [$nbmut] == $mutend [$nbmut] ) ScSc /replace . *\ ( [0 - 9] + , * ' [actgACTG] + ' \ ) / ) { # syntax like: /note="replace (nnn, ' a' ) " $v = index ($_, " • ") ; $mutant [$nbmut] = substr ($_, $v+l, 1) ; $nbmut++; } elsif (/ [catgCATG] + +is + [catgCATG] +/) { # syntax like: /note=" .... T is G ..." $v = index ($_, " is " ) ; $w = index ($_, " ", $v+5) ; $mutant [$nbmut] = substr ($_, $v+4, $w-$v-4) ; $nbmut++; } elsif (/mutation + [catgCATG] \Q$mutstart [$nbmut] \E [catgCATG] /) { # syntax like: /note="... mutation T675G" $v = index ($_, $mutstart [$nbmut] ) ; $mutant [$nbmut] = substr ($_, $v-l, 1) ; $nbmut++; } elsif (index($_, "delet") > -1) { # deletion $mutant [$nbmut] = ""; $nbmut++; } else { # EMBL should be more consistent with its syntax I I I I print STDERR "/note with no clear syntax for mutation in $embl $emblfile $emblpos\n" ; } } } else { # extract the mutant sequence from the /replace line $v = index ($_, » \ »» ) ; $w = index($_, "V"', $v+l) ; $mutant [$nbmut] = substr ($_, $v+l, $w-$v-l) ; $nbmut++; } } $_ = <EMBL>; } close (EMBL) ; $ntseq = uc($ntseq); $seqlength = length ($ntseq) ; if ($rna) { $mute=0; $mute=l if ($nbmut>0) ; # we try to simplify the nucleotide sequence for SAGE # in case of mutation, we convert in uppercase and clarify the "seql in ... seq2 in ..." mutations for ($i = 0; $i < $nbmut; $i++) { print STDERR "$embl mutation\n" ; $mutant [$i] = uc ($mutant [$i] ) ; $mutstart [$i] --; $mutend [$i] --; if ($mutant[$i] =~ /\//) { ($mutfirst, $mutsecond) = split (A//, $mutant [$i] ) ; if (substr ($ntseq, $mutstart [$i] , $mutend [$i] - $mutstart [$i] +1) eq $mutsecond) { $mutant [$i] = $mutfirst ; } else { $mutant [$i] = $mutsecond; } } } # we take care of the mutations if there are SortAndCheckMutations ($embl, $nbmut, \@mutstart, \@mutend, \@mutant) ; $lastloc = rindex($ntseq, "CATG"); if ($lastloc > -1) { $disjoint = 1; for ($i = 0; $i < $nbmut; $i++) { $disjoint = 0 if ( ($lastloc <= $mutend[$i]) ScSc ($lastloc+3 >= $mutstart [$i] ) ) ; } if ($disjoint) { while ( ( $nbmut > 0 ) &Sc ( $mutend [$nbmut- l] < $lastloc) ) { $nbmut-- ,- print STDERR "$nbmut\n"; } } else{print STDERR "not disjoint\n" ; } } undef (%combination) ; if ( ($lastloc > -1) ScSc (length ($ntseq) -$lastloc >= 14)) { print STDERR "original sequence stored\n" if ($mute) ; $combination{ substr ($ntseq, $lastloc, $MaxTagLength) } = "0/$lastloc" ; } else {print STDERR "no CATG found in original sequence\n" if ($mute) ; } for ($i=0;$i<$nbmut;$i++) {print STDERR "mutation ",2**$i, » : $mutstart [$i] --> $mutend[$i]: $mutant [$i] \n" ; } for ($switch = 1; $switch <= 2**$nbmut-l; $switch++) { print STDERR "combination Nr $switch\n" ; undef ($ntseq2) ; $ntseq2 = $ntseq; for ($i = 0; $i < $nbmut; $i++) { # mutations are treated right-most first if (2**$i Sc $switch) { # the $i-th mutation is considered in this combination substr ($ntseq2, $mutstart [$i] , $mutend[$i]- $mutstart [$i] +1) = $mutant [$i] ; } } $lastloc = rindex($ntseq2, "CATG"); if ( ($lastloc > -1) ScSc (length ($ntseq2) -$lastloc >= 14)) { print STDERR "combination $switch stored\n" ; # we memorize the tag given by the new combination, removing repetitions $combination{ substr ($ntseq2, $lastloc, $MaxTagLength) } .= ", $switch/$lastloc" ; } else {print STDERR "no CATG found in combination $switch\n" ; } } foreach $comb (keys (%combination) ) { WriteOneDescr (\*RNAFILE, $embl, $emblid, $seqlength, $polyA, $embldescr, $emblkw, $comb, $nbsptrembl, \@sptrembl, \@sptremblpos) ; print STDERR "====> $embl, one useful combination ($combination{$comb} ) : $comb\n" if ($mute) ; } } else { # non-rna entry, no special treatment for mutations $v = index($ntseq, "CATG"); if ($v > -1) { # For each CATG found in $ntseq, we generate 2 tags, # one for reverse and one for direct sequencing. As a matter of # fact, the orientation has to be considered unknown for genomics . $len = length ($ntseq) ; undef ($comb) ; while ($v > -1) { # direct sequencing $comb .= substr ($ntseq, $v, 15),"," if ($len-$v >= 14); # reverse sequencing if ($v >= 10) { if ($ v == 10) { $tag=substr ($ntseq, $v-10, 14) if ($v == 10); } else { $tag=substr ($ntseq, $v-ll, 15) if ($v >= 11); } $tag=~ tr/ACTG/TGAC/ ; $comb .= join("", reverse (split (//, $tag) )),"," ; } $v = index($ntseq, "CATG", $v+l) ; } # WriteOneDescr (\*DNAFILE, $embl, $emblid, $seqlength, $polyA, $embldescr, $emblkw, $comb, $nbsptrembl, \@sptrembl, \@sptremblpos) ; } } } close (INDEX) ; close (RNAFILE) ; close (DNAFILE) ; # statistics print STDERR "Statistics\n" ; print STDERR "Number of treated entries : $nbentry\n" ; print STDERR "Number of RNA entries : $nbrna\n" ; } # ProduceGenesDB # main # get the index file name if (©ARGV != 3) { print STDERR "Usage: ExtractData.pl indexfile rnafile dnafile\n" ; exit (0) ; } $indexfile = $ARGV[0]; $rnafile = $ARGV[1]; $dnafile = $ARGV[2]; # produce the nucleotide sequence data base from the useful EMBL entries print STDERR "Start creating the new data base\n" ; ProduceGenesDB ; ANNEX 6 # ! /usr/bin/perl # IdentifyRna.pl version 1.2 # 1.0 # Scans SAGE library (-ext.xls) and produces an output where each tag has # been searched in [organism] TagsRna. dat . # 16 December 1998, author: J. Colinge # 1.1 # Added new -ext.xls format with tag numbers. # 13 January 1999, author: J. Colinge # 1.2 # Handles the -ext.xls format with seq. err. estimation. # 21st of May 1999, author: J. Colinge use Getopt::Std; use vars qw($opt_o); use strict; my $humanname = π /hosts/ch7ux001/usr/people/jcolinge/0200/SAGE/HumanTagsRna.da t"; my $mousename = u /hosts/ch7ux001/usr/people/jcolinge/O200/SAGE/MouseTagsRna.da t"; my $dbemblname; my $libname; my $maxlen = 1000000; sub min { if ($_[0] < $_[1]) { $_[0]; } else { $_[1]; } } # min sub DichotomicSearch ( my ($key, $n, $a) = @_; my ($left, $right, $m) ; $left = 0; $right = $n-l; until ($left > $right) { $m = int ( ($left+$right) /2) ; $left = $m+l if ($key ge $a->[$m]); $right = $m-l if ($key le $a->[$m]); } # The $key value should be inserted at position $right+l if ($key eq substr ($a-> [$right+l] , 0, 14)) { $right+l; } else { -1; } } # DichotomicSearch sub SearchDB { local $__; my ($tag, $letter, $nb, $tags, $refs, $sptrembl) = @_; my ($temp, $start, $n) ; $start = DichotomicSearch ($tag, $nb, $tags) ; if ($start == -1) { # No match 0; } else { # Collects the references, since $tags contains 15-char. tags and $tag contains a 14 -char, tag, # the insertion position returned by DichotomicUnigeneSearch is necessarily at the begining of # all 15-char. tags having $tag as first letters $n = 0; while ( ($tag eq substr ($tags-> [$start] , 0, 14)) Sc& ($start < $nb)) { if ($tag. $letter eq $tags-> [$start] ) { # 15-char. match, put it first if ($refs-> [$start] =~ /,/) { foreach $temp (split (/,/, $refs-> [$start] ) ) { @$sptrembl = (" (15) " .$temp, @$sptrembl) ; $n++; } } else { @$sptrembl = ( " (15) " . $refs-> [$start] , @$sptrembl) ; $n++; } } else • { # 14-char, match if ($refs-> [$start] =~ /,/) { foreach $temp (split (/,/, $refs-> [$start] ) ) { @$sptrembl = ($temp, @$sptrembl) ; $n++; } } else { push(@$sptrembl, $refs-> [$start] ) ; $n++; } } $start++; } $n; } } # SearchDB sub LoadDB { local $_; my ($name, $tags, $refs) = @_; my ($line, $tag, %list, $i, $pos, $notfirst, $nextpos) ; # Data is loaded first in a hash table in order to solve the problem of tags corresponding # to more than one gene open(DB, $name) || die ("cannot open the database $name : $ ! " ) ; undef (%list) ; • $pos = 0 ; undef ($notfirst) ; while (<DB>) { $nextpos = tell (DB) if (m@ A //@) ; if (AEMBL/) { if ($notfirst) { # One entry is finished $list{$tag} .= "," if ($list {$tag} ) ; $list{$tag} .= $pos; $pos = $nextpos; } $notfirst = 1; } elsif (ATAG/) { # Extracts the tag for this entry chop; $tag = substr($_, 7); } } # Do not forget the last one $list{$tag} .= "," if ($list {$tag} ) ; $list{$tag} .= $pos; close (DB) ; # Tags and corresp. references are sorted and stored in an array $i = 0; undef (@$refs) ; undef (@$tags) ; foreach $tag (sort (keys (%list) ) ) { $tags-> [$i] = $tag; $refs-> [$i] = $list { $tag} ; $i++ ; } close (DB) ; $i ; } # LoadDB sub PrintRefEmbl { my ($dbemblname, $tag, $letter, $nbseq, $sptrembl) = @_; my ($i, $v, $pos, $tagl, $EMBL, $DE, $KW, $SPTR, $DESPTR, $TAG, $GN, $KWSPTR, $DOM) ; open(DB, $dbemblname) ; for ($i = 0; $i < $nbseq; $i++) { $v = index ($sptrembl-> [$i] , "(15)"); if ($v > -1) { $pos = substr ( $sptrembl - > [$i] , 4 ) ; } else { $pos = $sptrembl - > [$i] ; } seek(DB, $pos, 0) ; $EMBL = <DB>; $DE = <DB>; $KW = <DB>; $TAG = <DB>; chop ($TAG) ; $tagl = substr($TAG, 7) ; chop ($EMBL) ; if ($v > -1) print "$EMBL,15"; elsif ($letter ScSc (length ($tagl) == 15)) print "$EMBL,14*"; else print "$EMBL, 14"; if (index ($DE, "complete cds") > -1) print ",ccds"; elsif (index($DE, "partial cds") > -1) print ",pcds"; else { print " , " ; } print "\n"; print "$DE$KW"; while (<DB>) { last if (AEMBL/) ; next if (m@ //@) ; print ; } } close (DB) ; } # PrintRefEmbl sub Usage { print STDERR "Usage: IdentifyRna.pl -o [human] mouse] libname\n" ; exit (1) ; } # Usage # main my ($tag, $nbminus, $nbplus, $i, $j , $letter, $norm, $confI, $confP, $number, $rminus, $stminus, $rplus, $stplus) ; my ($nbseq, ©sptrembl, $embl, $emblpos, $ratio, $absratio) ; my ($v, $w, $p, $x, $oneref) ; my ($nbembl, ©embltag, ©emblref) ; # Selects the organism getopts ( 'o : ' ) ; Usage () if (©ARGV ! = 1) ; $1ibname = $ARGV [0] ; if ($opt_o eq "mouse") { $dbemblname = $mousename; } elsif ($opt_o eq "human") { $dbemblname = $humanname; } else { Usage ( ) ; } # Loads the data base print STDERR "Loading\n" ; $nbembl = LoadDB ($dbemblname, \@embltag, \@emblref) ; # Opens the library open(LIB, $libname) || die ("cannot open the library : $!"); # Starts scanning print STDERR "Identifying\n" ; while (<LIB>) { # load one tag chop; ($tag, $nbminus, $nbplus, $norm, $ratio, $absratio, $confP, $confI, $number, $rminus, $stminus, $rplus, $stplus) = split As+A # Searches in the the data base undef (©sptrembl) ; undef ($letter) ; if ($tag =~ /\./) { ($tag, $letter) = split (/\./, $tag) ; } $nbseq = SearchDB ($tag, $letter, $nbembl, \@embltag, \©emblref, \@sptrembl) ; print "QUERY $tag. $letter" if ($letter) ; print "QUERY $tag " if (!$letter); print "\t$nbminus\t$nbplus\t$norm\t$ratio\t$absratio\t$confP\t$confI \t$number" ; print "\t$rminus\t$stminus\t$rplus\t$stplus\n" ; if ($nbseq > 0) { PrintRefEmbl ($dbemblname, $tag, $letter, $nbseq, \@sptrembl) ; } print "//\n"; } close (LIB) ; ANNEX 7 # ! /usr/bin/pe.rl # DispList.pl version 1.5 # 1.0 # Produces SAGE lists on demand. # 22 December 1998, author: J. Colinge # 1.1 # Accepts Anthony Nolan entries included in UniGene . # Adapted to the new -ext.xls format including tag numbers. # Generates named anchor for graphic interface. # 13 January 1999, author: J. Colinge # 1.2 # Includes pathway information. # 2 January 1999, author: J. Colinge # 1.3 # Also tests an upper ratio bound. # 24 February 1999, author: J. Colinge # 1.4 # Search by tag and/or number. Search in the full list (not limited to selection criteria) . # 14th of May 1999, author: J. Colinge # 1.5 # New format with counter estimation before sequencing errors. # 21st of May 1999, author: J. Colinge use strict; use CGI qw ( : standard) ; my $GoodGeneLen = 1000; my $BadGeneLen = 500; my ($experiment , $SageName, $libl, $lib2); my ($wunident, $wunigene, $wrna, $wmixdb, $winter, $wtrans, $wkw, $wdescr, $wkwfull, $wtag, $wtagfull, $taglist) ; my ($updown, $conflvl, $ufoldlvl, $lfoldlvl, ©kwlist, $oneline) ; my ($abundance, $seqerr, $wghost) ; my ($jsNbGene, ©jsGeneNum, ©jsRatio, ©jsConf, $jsConf, ©jsTag, ©jsPos, ©jsVerdict); my (%pathname, $jsLine, ©jsLine); my %sagepar; sub readsagepar { local $_; my ($p, $s) ; open (PARAM, ' . sagepar ' ) ; while (<PARAM>) { chop; ($p, $s) = split (/\=/) ; $sagepar{$p} = $s; } close (PARAM) ; } # readsagepar sub max { my ($a, $b) = @_; return ($a > $b) ? $a : $b; } # max sub ValidUnident { my ($tag, $number, $nl, $n2, $ratio, $conf, $rnl, $stnl, $on2, $rn2, $stn2, $verdict) = @_; if ($seqerr) { if ( ($stnl eq 'S') || ($stn2 eq 'S')) { $$verdict = "sure"; } else { $$verdict = "ok"; if ($stnl ne '*' ) { if (abs ($nl-$rnl) /$nl > $seqerr) { $$verdict = "suspect"; } } if ($stn2 ne '* ■ ) { if (abs ($on2-$rn2) /$on2 > $seqerr) { $$verdict = "suspect"; } } } } else { $$verdict = ""; } # As we look for a tag or a number in the full listing or we are interested in abundant tags only, # we do not consider the other criteria, if ($wtag ScSc $wtagfull) { return (l ) if ( (inde ($taglist , $tag) ! = -1) | | (index ($taglist , " $number " ) ! = -1) ) ; return ( 0 ) ; } if ($abundance) { return(l) if (max($nl, $n2) >= $abundance) ; return ( 0 ) ; } # The other criteria must be all satisfied return (0) if ($wkw) ; return(O) if ( ! $wunident) ; return (0) if ($conf < $conflvl) ; return(O) if ( (abs ($ratio) > $ufoldlvl) ScSc ($ufoldlvl ! = 20)) ; return ( O) if ($wtrans ScSc ($nl >= 2 ) ScSc ($n2 >= 2 ) ) ; return(O) if ( ( ($ratio > 0.0) ScSc ($updown eq "down")) || (($ratio < 0.0) ScSc ($updown eq "up"))); return(O) if ($wtag ScSc (index ($taglist, $tag) == -1) ScSc (index ($taglist, " $number ") == -1) ) ; return(O) if ( ! $wghost ScSc ($$verdict eq "suspect")); 1; } # ValidUnident; sub Validldent { my ($tag, $number, $nl, $n2 , $ratio, $conf, $nbug, $KWug, $okug, $nbrna, $KWrna, $okrna, $rnl, $stnl, $on2, $rn2, $stn2, $verdict) = @_; my ($i, $j) ; if ($seqerr) { if ( ($stnl eq 'S') || ($stn2 eq 'S')) { $$verdict = "sure"; } else { $$verdict = "ok"; if ($stnl ne '*' ) { if (abs ($nl-$rnl) /$nl > $seqerr) { $$verdict = "suspect"; } } if ($stn2 ne '* ' ) { if (abs ($on2-$rn2) /$on2 > $seqerr) { $$verdict = "suspect"; } } } } else { $$verdict = ""; } # As we look for a tag or a number or a key word or we are interested in abundant tags only, # we do not consider the other criteria if ($wtag ScSc $wtagfull) { goto PREPARE if ( (index ($taglist, $tag) != -1) || (index ($taglist, " $number ") != -1) ) ; return (0) ; } if ($abundance) { goto PREPARE if (max($nl, $n2) >= $abundance) ; return ( 0 ) ; } goto KWSEARCH if ($wkw ScSc $wkwfull) ; # The other criteria must be all satisfied return(O) if ($conf < $conflvl) ; return (0) if ( (abs ($ratio) > $ufoldlvl) ScSc ($ufoldlvl ! = 20)) ; return(O) if ($wtrans ScSc ($nl >= 2) ScSc ($n2 >= 2) ) ; return(O) if ( ( ($ratio > 0.0) ScSc ($updown eq "down")) || ( ($ratio < 0.0) ScSc ($updown eq "up"))); return(O) if ($wtag ScSc (index ($taglist, $tag) == -1) ScSc (index ($taglist, " $number ") == -1) ) ; return(O) if ( ! $wghost ScSc ($$verdict eq "suspect")); if ($wkw) { KWSEARCH : undef (@$okug) ; undef (@$okrna) ; $nbug = $wunigene ? $nbug : 0 ; $nbrna = $wrna ? $nbrna : 0 ; for ($i = 0; $i < $nbug; $i++) { for ($j = 0; $j < ©kwlist; $j++) { if ( index ($KWug->[$i] , $kwlist [$j] ) > -1) { @$okug = (@$okug, $i) ; last; } } } for ($i = 0; $i < $nbrna; $i++) { for ($j = 0; $j < ©kwlist; $j++) { if (index ($KWrna-> [$i] , $kwlist[$j]) > -1) { @$okrna = (@$okrna, $i) ; last; } } } return(O) if (@$okug+@$okrna == 0); } else { PREPARE : undef (@$okug) ; undef (@$okrna) ; $nbug = $wunigene ? $nbug : 0 ; $nbrna = $wrna ? $nbrna : 0 ; for ($i = 0; $i < $nbug; $i++) { @$okug = (@$okug, $i) ; } for ($i = 0; $i < $nbrna; $i++) { @$okrna = (@$okrna, $i) ; } } i; } # Validldent sub DisplayHead { my ($tag, $letter, $nl, $n2 , $ratio, $conf, $pos, $number, $verdict) = @_; my ($fulltag, $color, $collink, $numstr) ; $color = ($ratio < 0.0) ? "red" : "green"; $collink = ( ($tag eq "CATGTCCCCGTACA" ) || ($tag eq "CATGTCCCTATTAA") ) ? "#AAAA00" : ""; $fulltag = $tag; $fulltag .= ".$letter" if ($letter) ; $nl = sprintf ("%6.1f ", $nl) ; $n2 = sprintf ("%6.1f ", $n2) ; $ratio = sprintf ("%7. If " , $ratio) ; $conf = sprintf ("%5. If ", $conf) ; if (!$verdict) $numstr = " " ; elsif ($verdict eq "suspect") $numstr = "<font size=3 color=\"red\">*</font>" ; elsif ($verdict eq "ok") $numstr = "<font size=3 color=\"green\" >*</font>" ; else $numstr = "<font size=3 color=\"green\ ">**</font>" ; print <<end_of_html ; <a name="$number"x/a> •ctable border="l" cellspacing="0" width="627"> <tr> <td width="195" colspan="3" bgcolor="#e0e0ff" xfont size="3" color="$collink">$fulltag</font> $numstr</td> <td width="66" bgcolor="#e0e0f f "> <div align="right" xfont size="2" color="$ color ">ratio</fontx/div> </td> <td width="92" bgcolor="#e0e0ff "> <div align=" right "xfont size="2 ">conf idence</font /div> </td> <td width="120" bgcolor="#e0e0f f " > <div align=" right "xfont size="2 ">$libl</f ontx/div> </td> <td width="121" bgcolor="#e0e0ff "> <div align=" right "xfont size="2">$lib2</fontx/div> </td> </tr> <tr> <td width="70"> <a href="$sagepar{ 'bindir' }DispFull . pl?tag=$tag&_pos = $posScexp=$exp eriment" target="_blank"> <div align=" center "xfont size="3">FULL</fontx/divx/a> </td> <td width="40"> <formxinput type="button" name="show" value="Show" onClick= " top . Lef tFrame . winFullChip . document . apple s . SageChip . s electTag ( $number ) ; top . Lef tFrame . winFullChip . focus ( ) " > </form> </td> <td width="85"xdiv align= "right" xfont size=3>$number</fontx/divx/td> <td width=" 66 "> <div align=" right "xfont size="3" color="$color">$ratio</fontx/div> </td> <td width="92"> <div align=" right "xfont size="3 " >$conf %</f ontx/div> </td> <td width="120"> <div align=" right "xfont size="3 ">$nl</fontx/div> </td> <td width="121"> <div align=" right "xfont size="3 ">$n2</fontx/div> </td> </table> end of html } # DisplayHead sub DisplayMatch.es { my ($okug, $SPTRug, $DEug, $GNug, $ScoreUg, $okrna, $SPTRrna, $DErna, $GNrna, $ScoreRna, $pathway) = @_; my ($i, $j , $v, ©order, ©output, @o2 , %sc, %sc2 , %already, $sptr, $sptr2, $ind2); my ($de, $de2 , $score, $score2, $id, $id2, $db, $db2 , $ind, $fullentry, $fullentry2, $path) ; # Sorts the matches w.r. to the score if ($wmixdb) { for ($i = 0; $i < @$okug; $i++) { $sc{$ScoreUg-> [$okug-> [$i] ] } .= ";" if ($sc{$ScoreUg- >[$okug->[$i]] }) ; $sc{$ScoreUg->[$okug->[$i]] } .= "UG, $okug-> [$i] " ; } for ($i = 0; $i < @$okrna; $i++) { $sc{$ScoreRna-> [$okrna-> [$i] ] } .= ";" if ($sc{$ScoreRna- >[$okrna-> [$i] ] } ) ; $sc{$ScoreRna-> [$okrna-> [$i] ] } .= "RNA, $okrna-> [$i] " ; } ©order = sort (keys (%sc) ) ; for ($i = 0; $ ( i < ©order; $i++) { ©output = ( (split (/;/, $sc{$order [$i] } ) ) , ©output); } # Removes repetitions $i = 0; while ($i < ©output) { ($db, $ind) = split (/,/, $output [$i] ) ; if ($db eq "UG") { $sptr = $SPTRug-> [$ind] ; } else { $sptr = $SPTRrna-> [$ind] ; } if ($already{$sptr}) { # The $sptr reference has already occured. Since ©output has been sorted # w.r. to the score, we simply ignore the new occurence. splice (©output , $i, 1); } else { $already{$sptr} = 1; $i++; } } } else { for ($i = 0; $i < @$okug; $i++) { $sc{$ScoreUg-> [$okug-> [$i] ] } .= ";" if ($sc{$ScoreUg- >[$okug->[$i]] }) ; $sc{$ScoreUg->[$okug->[$i] ] } .= "UG, $okug-> [$i] " ; } ©order = sort (keys (%sc) ) ; for ($i = 0; $i < ©order; $i++) { ©output = ( (split (/;// $sc{$order [$i] } ) ) , ©output); } for ($i = 0; $i < @$okrna; $i++) { $sc2{$ScoreRna-> [$okrna-> [$i] ] } .= ";" if ($sc2{$ScoreRna-> [$okrna-> [$i] ] }) ; $sc2{$ScoreRna-> [$okrna-> [$i] ] } .= "RNA, $okrna-> [$i] " ; } ©order = sort (keys (%sc2) ) ; for ($i = 0; $i < ©order; $i++) { @o2 = ( (split (/;/, $sc2{$order [$i] }) ) , @o2) ; } # Removes repetitions from UG $i = 0; undef (%already) ; while ($i < ©output) { ($db, $ind) = split (/,/, $output [$i] ) ; $sptr = $SPTRug-> [$ind] ; if ($already{$sptr}) { splice (©output , $i, 1); } else { $already{$sptr} = 1; $i++; } } # Removes repetitions from RNA $i = 0; undef (%already) ; while ($i < @o2) { ($db, $ind) = split (/,/, $o2[$i]) ; $sptr = $SPTRrna- > [$ind] ; if ($already{$sptr} ) { splice(@o2, $i, 1); } else { $already{$sptr} = 1; $i++; } } # Removes "cross-repetitions" $i = 0; while ($i < ©output) { ($db, $ind) = split (/,/, $output [$i] ) ; $sptr = $SPTRug-> [$ind] ; for ($j = 0; $j < @o2; $j++) { ($db, $ind2) = split (/,/, $o2[$j]) ; $sptr2 = $SPTRrna-> [$ind2] ; if ($sptr eq $sptr2) { if ( $ScoreUg- > [$ind] >= $ScoreRna- > [$ind2 ] ) { splice (@o2 , $j , 1 ) ; } else { splice (©output , $i . i ) ; $i— ; } last ; } } $i++ ; } ©output = (©output, @o2) ; } if ($wdescr ScSc !$oneline) { print <<end_of_html ; <table border="l" cellspacing="0" width="627"> end_of_html for ($i = 0; $i < ©output; $i++) { ($db, $ind) = split (/,/, $output [$i] ) ; if ($db eq "RNA") { $id = $SPTRrna- > [$ind] ; $de = $GNrna- > [$ind] ? $GNrna- > [$ind] . " <font color=\ "blue\ " >/</font> " . $DErna- > [$ind] : $DErna- > [$ind] ; $score = $ScoreRna- > [$ind] ; } else { $id = $SPTRug-> [$ind] ; $de = $GNug-> [$ind] ? $GNug-> [$ind] . " <font color=\"blue\">/</font> " . $DEug-> [$ind] : $DEug-> [$ind] ; $score = $ScoreUg-> [$ind] ; } $v = index ($id, "#") ; if ($v == -1) { if (substr ($id, 0, 1) eq '!') { $fullentry = $id eq "nolan" ? "" : $sagepar{ 'emblshow' } .substr ($id, 1) ; } else , { $fullentry = $id eq "nolan" ? "" : $sagepar{ 'sptrshow' } .$id; } } else { $fullentry = $sagepar{ 'unigeneshow' }. substr ($id, 0, $v) . "\%23" .substr ($id, $v+l) ; } print <<end_of_html ; <tr> <td height = "3" width="100 " xfont size="2"xa href = "$ful lent ry" target="_blank">$id</ax/fontx/td> <td height="3" width="28" xfont size="2 " >$db</fontx/td> <td height="3" width="10" bgcolor="#e0e0ff" xfont size="2"xdiv align=" right ">$score</divx/f ontx/td> <td height="3" width=" 489 "xfont size="2 ">$de</f ontx/td> </tr> end_of_html } } else { if (!$oneline) { print <<end_of_html; <table border="l" cellspacing="0" width="627"> end_of_html } for ($i = 0; $i < ©output; $i += 2) { ($db, $ind) = split (/,/, $output [$i] ) ; if ($db eq "RNA") { $id = $SPTRrna-> [$ind] ; $de = $GNrna-> [$ind] ; $score = $ScoreRna-> [$ind] ; } else ( $id = $SPTRug-> [$ind] ; $de = $GNug->[$ind] ; $score = $ScoreUg-> [$ind] ; } $de = $de ? $de : "\&nbsp;"; $v = inde ($id, "#") ; if ($ v == -1) { if (substr ($id, 0, 1) eq '!') { $fullentry = $id eq "nolan" ? "" : $sagepar{ 'emblshow' } .substr ($id, 1) ; } else { $fullentry = $id eq "nolan" ? "" : $sagepar{ ' sptrshow' } . $id; } } else { $fullentry= $sagepar{ 'unigeneshow' }. substr ($id, 0, $v) ."\%23" .substr ($id, $v+l) ; } if ($i < ©output- 1) { ($db2, $ind) = split (/,/, $output [$i+l] ) ; if ($db2 eq "RNA") { $id2 = $SPTRrna-> [$ind] ; $de2 = $GNrna-> [$ind] ; $score2 = $ScoreRna-> [$ind] ; } else { $id2 = $SPTRug->[$ind] ; $de2 = $GNug->[$ind] ; $score2 = $ScoreUg-> [$ind] ; } $de2 = $de2 ? $de2 : "\Scnbsp,-"; $v = index ($id2, "#") ; if ($v == -1) { if (substr ($id2, 0, 1) eq '!') { $fullentry2 = $id2 eq "nolan" ? "" : $sagepar{ 'emblshow' } . substr ($id2, 1) ; } else { $fullentry2 = $id2 eq "nolan" ? "" : $sagepar{ ' sptrshow' } .$id2 ; } } else { $fullentry= $sagepar{ 'unigeneshow' }. substr ($id2 , 0, $v) . "\%23" . substr ($id2, $v+l) ; } } else { $score2 = -1; } if ( !$oneline) { print <<end_of_html; <tr> <td width=" 100 "xfont size="2"xa href = "$fullentry" target="_blank">$id</ax/fontx/td> <td width="28" xfont size="2 ">$db</f ontx/td> <td width="10" bgcolor="#e0e0ff "xfont size="2"xdiv align=" right " >$score</divx/fontx/td> <td width=" 150 "xfont size="2 ">$de</f ontx/td> end_of_html if ($score2 != -1) { print <<end_of_html; <td width=" 100 "xfont size="2"xa href ="$fullentry2 " target="_blank">$id2</ax/fontx/td> <td width="28" xfont size="2">$db2</fontx/td> <td width="10" bgcolor="#e0e0ff "xfont size="2"xdiv align=" right ">$score2</divx/fontx/td> <td width=" 150 "xfont size="2 ">$de2</fontx/td> </tr> end_of_html } else { print "<td width=100>Scnbsp; </tdxtd width=28>Scnbsp; </tdxtd width=10 bgcolor=\"#e0e0ff\">Scnbsp;</tdxtd width=150>Scnbsp; </td>\n" ; } } else { • chop($de) if ($de ne "<Scnbsp; " ) ; chop($de2) if ($de2 ne "\Scnbsp; " ) ; $jsLine .= "$de (<a href =\"$fullentry\" target=\"_blank\">$id</a>) , "; if ($score2 != -1) { $jsLine .= "$de2 (<a href =\"$fullentry2\" target=\"_blank\">$id2</a>) , "; } } } } if (!$oneline) { print "</table>\n" ; if (@$pathway) { print "<table border=l cellspacing=0 width=627>" ; for ($i = 0; $i < @$pathway; $i++) { $v = index ($pathway-> [$i] , "/"); $path = ($v == -1) ? $pathway-> [$i] : substr ($pathway- >[$i] , 0, $v) ; print <<end__of_html; <tr> <td width=60xa href="$sagepar{ ' keggshow' }$path.html" target="_blank" xfont size=2>Pathway</fontx/ax/td> <td width=40xformxinput type="button" name="show" value="Show" onClick="top . LeftFrame .winFullChip . document . applets . SageChip . s electPath( ' $path ' ) ;top.LeftFrame.winFullChip. focus () ; "x/form> </td> <td width=527xfont size=3>$pathname{$path}</fontx/td> <tr> end_of_html } print "</table>\n" ; } } } # DisplayMatches sub OneLineOutput { my ($i, $color, $collink, $ratio, $numstr, $conf ) ; print <<end__of_html ; <table border=l cellspacing=0 bordercolorlight="#f f f ff f " bordercolordark= " #f f f f f f " bordercolor= " #f f f f f f " > <tr> <td width=85 bgcolor="#e0e0f f "xb>Tag number</bx/td> <tid width=50 bgcolor="#e0e0f f "xb>Ratio</bx/td> <td width=40 bgcolor="#e0e0f f "xb>Conf . </bx/td> , <td bgcolor="#e0e0f f "xb>Identification and links to data bases</bx/td> </tr> end_of_html for ($i = 0; $i < $jsNbGene; $i++) { $color = ($jsRatio[$i] < 0.0) ? "red" : "green"; $collink = (($ jsGeneNum [$i] == 51941) | | ($j sGeneNum [$i] == 56769)) ? "#7AAAA00" : "blue"; $ratio = sprintf ("%7. If ", $jsRatio [$i] ) ; $conf = sprintf (" %5. If ", $j sConf [$i] ) ; if (!$jsVerdict [$i] ) $numstr = " " ; elsif ($jsVerdict [$i] eq "suspect") $numstr = "<font size=3 color=\ "red\ ">*</font>" ; elsif ($jsVerdict [$i] eq "ok") $numstr = "<font size=3 color=\"green\ " >*</f ont>" ; else $numstr = "<font size=3 color=\"green\">**</f ont>" ; print <<end_of_html; <trxtd ' bgcolor="#e0e0e0"> <a name="$jsGeneNum[$i] "x/a> <a href="$sagepar{ 'bindir' }DispFull .pl?tag=$jsTag [$i] Scpos=$jsPos [ $i] S=exp=$experiment " target="_blank" > <font color="$collink">$jsGeneNum[$i] </fontx/a>$numstr </tdxtd bgcolor="#e0e0e0"> <font color="$color">$ jsRatio [$i] </font> </tdxtd bgcolor="#e0e0e0"> $conf </tdxtd bgcolor="#e0e0e0">$jsLine [$i] </td> </tr> end_of_html } print "</table>\n" ; } # OneLineOutput # main my ($kwl, $dummy, $i) ; my ($fname, $conf, $pos, $username) ; my ($tag, $letter, $ratio, $absratio, $nbplus, $nbminus, $n2norm, $confI, $confP, $number) ; my ($rminus, $stminus, $rplus, $stplus) ; my (@DEug, ©SPTRug, ©KWug, ©GNug, ©ScoreUg, $nbug, ©okug) ,- my (©DErna, ©SPTRrna, ©KWrna, ©GNrna, ©ScoreRna, $nbrna, ©okrna) ; my ($emblac, $emblid, $embllength, $polyA, $nbletter, $cds) ; my ($emblscore, $kwembl, $ac, $id, $ugac, $uglength, $dir, $frag) ; my ($ugscore, $nb, $fullpos, $verdict) ; my ($gn, @gn, %gn) ; my (©pathway, $pathname, $pathway) ; readsagepar ( ) ; # Extracts one useful name from the statistics file $experiment = param("ex ") ; $username = param ( "username" ) ; open (STAT, "$sagepar{ 'fullbindir' }$experiment . stat") ; $SageName = <STAT>; chop ($SageName) ; $libl = <STAT>; chop($libl) ; $lib2 = <STAT>; chop($lib2) ; close (STAT) ; # Extracts the user selection parameters $wunigene = param ( "CheckUniGene") ; $wrna = param ( "CheckRna" ) ; $wdescr = param( "CheckDescr") ; $wmixdb = param ( "CheckMixDB" ) ; $wunident = param ( "CheckUnident " ) ; $winter = param ( "Checklnter" ) ; $conflvl = param ("confidence") ; $ufoldlvl = param ( "ufold") ; $wtrans = param ("CheckTransition" ) ; $wkw = param ( "CheckKeyWords" ) ; $wkwfull = param ("CheckKeyWordsFull ") ; $kwl = uc (param ("KeyWordList") ) ; $wtag = param ( "CheckTags " ) ; $wtagfull = param ( "CheckTagsFull") ; $taglist = " " .uc (param("TagList") ). " "; ©kwlist = split (/[ ,]+/, $kwl) ; $updown = param ( "updown" ) ; $oneline = param( "CheckOneLine") ; $lfoldlvl = param ( "Ifold" ) ; $abundance = param ( "abundance" ) ; $seqerr = param ( "seqerr" ) ; $wghost = param ("CheckGhost") ; # Saves the user parameters for future use $fname = ">$sagepar{ ' fullbindir ' }users/default-$username" ; open (PAR, $fname) | | goto nosave; print PAR "unigene=$wunigene\n" ; print PAR 'rna=$wrna\n" ; print PAR 'descr=$wdescr\n" ; print PAR 'mixDB=$wmixdb\n" ; print PAR "unident=$wunident\n" ; print PAR "inter=$winter\n" ; print PAR "conf=$conflvl\n" ; print PAR 'ufoldlvl=$ufoldlvl\n" ; print PAR ■ lfoldlvl=$lfoldlvl\n" ; print PAR 'updown=$updown\n" ; print PAR "trans=$wtrans\n" ; print PAR Oneline=$oneline\n" ; print PAR 'wkeyw=$wkw\n" ; print PAR "wkeywfull=$wkwfull\n" ; print PAR 'kwlist=$kwl\n" ; print PAR •wtag=$wtag\n" ; print PAR 'wtagfull=$wtagfull\n" ; print PAR 'taglist=$taglist\n" ; print PAR ■ seqerr=$seqerr\n" ; print PAR "abundance=$abundance\n" ; print PAR ■ wghost=$wghost\n" ; close (PAR) nosave : # Loads pathway names open(PN, "$sagepar{ 'fullbindir' }PathwayName . dat" ) ; while (<PN>) { chop; ($pathway, $pathname) = split (/\t/) ; $pathname{$pathway} = $pathname; } close (PN) ; # Reads the identification file and produces the desired output open (ID, "$sagepar{ ' fullbindir ' }$experiment . ident" ) ; $pos = 0 ; $jsNbGene = 0 ; print header ( ) ; print <<end_of_html ; <html> <head> <script language="JavaScript "> function gotoGene (geneNum) { v = location. href . indexOf ("#") ; if (v != -1) location. href = location. href . substring (0 ,v) +geneNum; else location. href = location. href+geneNum; } </script> <title>Tag List</title> </head> <body bgcolor="#ffffff"> end_of__html while (<ID>) { LoopBegin: if (AQUERY/) { chop; ($dummy, $tag, $nbminus, $nbplus, $n2norm, $ratio, $absratio, $confP, $confI, $number, $rminus, $stminus, $rplus, $stplus) = split (/\s+/) ; if ( ($absratio < $lfoldlvl) ScSc ( ! $wkw || !$wkwfull) ScSc (!$wtag || !$wtagfull) ScSc !$abundance) { # Since the tags are sorted in decreasing order w.r. to $absratio, there is nothing more to do last ; } $conf = $winter ? $confI : $confP; $conf *= 100.0; if (index ($tag, ".") > -1) { ($tag, $letter) = split (/\./, $tag) ; } else { undef ($letter) ; } $fullpos = $pos; $nbrna = $nbug = 0 ; undef (©pathway) ; } elsif (/ EMBL/) { # Basic EMBL items used for the next SPROT/TREMBL line(s) chop; ($dummy, $emblac, $emblid, $embllength, $polyA, $nbletter, $cds) = split (/[ ,]+/) ; # Computes the score $emblscore = 0; $emblscore++ if $embllength >= $GoodGeneLen) $emblscore++ if $polyA) ; $emblscore++ if $nbletter eq "15") ; $emblscore++ if $cds eq "ccds") ; $emblscore-- if $embllength <= $BadGeneLen) ; $emblscore-- if $nbletter eq "14*") ; $emblscore-- if $cds eq "pcds") ; # Basic strings for key word search $_ = <ID>; chop; $DErna [$nbrna] = substr ($_, 7); # In case there is no SPTR link $kwembl = uc (substr ($_, 7) ) . $emblac . $emblid; # DE + ID + AC $_ = <ID>; ■ chop ; $kwembl . = uc (substr ($_, 7)); # KW $_ = <ID>; if O ASPROT/ ScSc ! / TREMBL/) { # No SPTR link for this EMBL entry $SPTRrna [$nbrna] = " ! " . ($emblid ? $emblid : $emblac) ; $ScoreRna [$nbrna] = $emblscore; $GNrna[$nbrna] = " " ; $KWrna [$nbrna] = $kwembl; $nbrna++; } goto LoopBegin; } elsif (ATREMBL/ I I / A SPR0T/) { # SPROT/TREMBL series of lines, EMBL lines before chop; ($dummy, $ac, $id) = split (/[ ,]+/); $SPTRrna [$nbrna] = $id ? $id : $ac; $_ = <ID>; chop; $DErna [$nbrna] = substr ($_, 7) ; $_ = <ID>; chop; if (/ A GN/) { $GNrna [$nbrna] = substr ($_, 7) ; $_ = <ID>; chop; } else { $GNrna [$nbrna] = " " ; $KWrna [$nbrna] = $kwembl .uc (substr ($_, 7) . $DErna [$nbrna] . $GNrna [$nbrna] ) . $ac . $id; $_ = <ID>; chop; } if (ADOMAIN/) { $KWrna [$nbrna] .= uc (substr ($_, 7) ) ; $_ = <ID>; } $ScoreRna [$nbrna] = $emblscore; $ScoreRna[$nbrna] -- if (index ($DErna [$nbrna] , "FRAGMENT") > -1); $nbrna++; goto LoopBegin; } elsif (/ A UG/) { # UniGene series of lines chop; ($dummy, $ugac, $uglength, $nbletter, $cds, $dir, $frag) split (/[ ,]+/) ; $ugac =~ s/ //g; $SPTRug [$nbug] = $ugac; $ugscore = 0 ; $ugscore++ if ($uglength >= $GoodGeneLen) ; $ugscore++ if ($nbletter eq "15") ; $ugscore++ if ($cds eq "ccds"); $ugscore-- if ($cds eq "pcds") ; $ugscore-- if ($uglength <= $BadGeneLen) ; $ugscore-- if ($frag) ; $_ = <ID>; chop ; $DEug[$nbug] = substr($_, 7) ; $ugscore-- if ( ( ($dir eq "F") ScSc (index ($DEug [$nbug] , "3\"') > -1) ) | | (($dir eq "R") ScSc (index ($DEug [$nbug] , "5\"') > -1))); $ugscore++ if ( ( ($dir eq "F") ScSc (index ($DEug [$nbug] , "5\"') > -1)) || (($dir eq "R") && (index ($DEug [$nbug] , "3\"') > -1))); $_ = <ID>; chop; $GNug[$nbug] = substr ($_, 7) ; $ScoreUg [$nbug] = $ugscore; $KWug [$nbug] = uc ($DEug [$nbug] . $GNug [$nbug] ) . $ugac ; # Checks if there is data from SPTR $_ = <ID>; if (lASPTR/) { $nbug++; goto LoopBegin; } # Processes the SPTR data chop; ($dummy, $ac, $id) = split (/[ ,]+/); $SPTRug[$nbug] = $id ? $id : $ac; $_ = <ID>; chop; $DEug[$nbug] = substr ($_, 7) ; $_ = <ID>; chop; $GNug[$nbug] = substr ($_, 7) ; $_ = <ID>; chop; } else { $GNug[$nbug] = ""; } if (AKW/) { $KWug [$nbrna] .= uc (substr ($_, 7) . $DEug [$nbug] . $GNug [$nbug] ) ; $_ = <ID>; chop ; } if (ADOMAIN/) { $KWug[$nbug] .= uc (substr ($_, 7) ) ; $_ = <ID>; } $nbug++; goto LoopBegin; } elsif (APATH/) { chop; ©pathway = split(/,/, substr($_, 7)); } elsif (m@ //@) { $nb = ($wunigene?$nbug: 0) + ($wrna?$nbrna: 0) ; if ( ($nbug+$nbrna > 0) ScSc $wunident ScSc ! $wunigene ScSc ! $wrna) { # if no data base is selected and unidentified tags are ok then we infer that the user wants unidentified tags ONLY } elsif ($nb == 0) { # Not identified tag or identified tag with no identification in the selected data base(s) if (ValidUnident ($tag, $number, $nbminus, $n2norm, $ratio, $conf, $rminus, $stminus, $nbplus, $rplus, $stplus, \$verdict) ) { if (!$oneline) { DisplayHead($tag, $letter, $nbminus, $n2norm, $ratio, $conf, $fullpos, $number, $verdict) ; print "<br>\n" if (!$oneline); } $jsGeneNum[$j sNbGene] = $number; $jsLine [$jsNbGene] = "?"; $jsRatio [$jsNbGene] = $ratio; $jsTag [$jsNbGene] = $tag; $jsPos [$jsNbGene] = $fullpos; $jsVerdict [$jsNbGene] = $verdict; $jsConf [$jsNbGene] = $conf; $jsNbGene++; } } else { # Identified tag if (Validldent ($tag, $number, $nbminus, $n2norm, $ratio, $conf, $nbug, \@KWug, \@okug, $nbrna, \@KWrna, \@okrna, $rminus, $stminus, $nbplus, $rplus, $stplus, \$verdict) ) { DisplayHead($tag, $letter, $nbminus, $n2norm, $ratio, $conf, $fullpos, $number, $verdict) if ( ! $oneline) ; DisplayMatches (\@okug, \@SPTRug, \@DEug, \@GNug, \@ScoreUg, \@okrna, \@SPTRrna, \@DErna, \@GNrna, \@ScoreRna, \@pathway) ; print "<br>\n" if (!$oneline); $j sGeneNum [$j sNbGene] = $number ; chop ( $j sLine) ; chop ($j sLine) ; $jsLine [$jsNbGene] = $jsLine." "; $jsRatio [$jsNbGene] = $ratio; $jsTag [$jsNbGene] = $tag; $jsPos [$jsNbGene] = $fullpos; $j sVerdict [$jsNbGene] = $verdict; $jsConf [$jsNbGene] = $conf; $j sNbGene++; $jsLine = ""; } } } $pos = tell (ID) ; } close (ID) ; print "<h2>Number of displayed tags: $jsNbGene</h2>\n" ; if ($oneline) { print "<hr align=\"left\" width=\"627\" size=\ "4\"xbr>\n" ; OneLineOutput ( ) ; } # Generates the calls to the applet in order to load the new set of data print <<end_of_html; <script language="JavaScript1.2"> if (top. LeftFrame.winFullChip != -1) { top . LeftFrame . winFullChip . document . applets . SageChip . resetData ( ); end_of_html for ($i = 0 ; $i < $j sNbGene; $i++) { print " top . LeftFrame .winFullChip . document . applets . SageChip . setData (\ " ",$jsGeneNum[$i] , "\") ;\n"; } print " top .LeftFrame .winFullChip . document . applets . SageChip . repaint () ; \n}\n</script>\n" ; print end_html ( ) ; exit; ANNEX 8 import j ava . awt . * ; itnport j ava . awt . event . * ; import java . applet . * ; import j ava . net . * ; import j ava . io . * ; import java.util.*; import netscape . j avascript .JSObj ect ; import netscape . javascript . JSException; public class SageChip extends Applet { private class RectanglePath { String name; int x, y, memberY, height; Hashtable posNum; } // RectanglePath private static final int nbGeneMax = 102400; private static final int chipSize = 320; private static final double ratioThreshold = 1.2; private static final int boxWidth = 240; private static final int boxMaxHeight = 960; private static final int boxGenePerLine = 60; private static final int boxFact = boxWidth/boxGenePerLine; private static final int boxTextHeight = 14; private static final Color colorUp = Color. green; private static final Color colorDown = new Color(255, 0, 0) ; private static final Color colorNeutral = new Color (200, 200, 0) ; private .static final Color colorPath = Color.white; private static final Color colorBorder = Color.darkGray; private static final Color colorCross = Color .lightGray; private static final Color colorClicked = new Color (255, 255, 0) ; private static final Color colorTextPath = Color. cyan; private int nbGene = 0 ; private int clickedGene = -1; private int pathGene = -1; private int [] gene; private doublet] ratio; private String [] descr; private boolean selected []; private String [] numString; private boolean eraseText = false; private boolean noClick = false; private int lastlndice = -1; private JSObject navWin; private boolean zoom = true; private boolean box = false, boxEvery = false; private boolean showPathMembers = true; private boolean shifted = false; private String fileApp, mapList; private Hashtable pathName, pathNum, numPath, pathMark; private Vector activePathName, activePathMap; private RectanglePath [] rectPath; private int nbRectPath = 0; private int coll, col2, col3, col4 ; private int clickX = -1, clickY = -1; private String keggshow, bindir; public void init() { String line, toTransfer, name, key, pos; Vector pNum, nPath, vect; Integer iKey, iPos; int i, v, w, z, number, size, nbLine; // Some initialization setBackground (Color.black) ; gene = new int [nbGeneMax] ; ratio = new double [nbGeneMax] ; descr = new String [nbGeneMax] ; selected = new boolean [nbGeneMax] ; for (i = 0; i < nbGeneMax; i++) { descr [i] = null; selected [i] = false; } numString = new String [32] ; for (i = 0 ; i < 32 ; i++) numString [i] = Integer.toString (i) +"," ; // Gets a reference to the Navigator Window try { navWin = JSObject .getWindow(this) ; } catch (Exception e) { e .printStackTrace () ; } // Gets parameters try { toTransfer = getParameter ( "transfer" ) ; if (toTransfer != null) if (toTransfer.equals ("yes") ) { navWin. eval ( "opener. startTransfer ();"); noClick = true; } fileApp = getParameter ( "fileApp" ) ; } catch (Exception e) { e .printStackTrace () ; } // Events handling addMouseMotionListener (new MouseMotionAdapter ( ) { public void mouseMoved (MouseEvent e) { mouseOverTest (false, e.getXO, e.getYO); } } ) ; addMouseListener (new MouseAdapter () { public void mouseClicked (MouseEvent e) { mouseOverTest (true, e.getXO, e.getYO); } } ); addKeyListener (new KeyAdapter ( ) { public void keyPressed (KeyEvent e) processKey (e) ; } public void keyReleased (KeyEvent e) { shifted = e . isShiftDown () ; } } ) ; try { // Loads .app file URL url = new URL (getDocumentBase () , fileApp+" . app" ) ; BufferedReader din = new BufferedReader (new InputStreamReader (url .openStreamO ) ) ; // Loads descriptions and ratios line = din. readLine () ; for (i = 0; ! line . startsWith ( "// pathway list //"); i++) { v = line.indexOf (",") ; number = Integer .parselnt (line . substring (0 , v) ) ; w = line.indexOf (", ", v+1); ratio [number] = new Double (line. substring (v+1, w) ) .doubleValue () ; descr [number] = line . substring (v+1) ; line = din. readLine () ; } // Loads the pathways rectPath = new RectanglePath [100] ; coll = col2 = col3 = 0; line = din. readLine () ; numPath = new Hashtable () ; pathName = new Hashtable () ; pathNum = new Hashtable () ; while (line != null) { v = line.indexOf (":") ; w = 1ine . indexOf ( "/" ) ; name = line. substring (0, w) ; rectPath [nbRectPath] = new RectanglePath () ; rectPath [nbRectPath] .posNum = new Hashtable () ; rectPath [nbRectPath] .name = name; size = Integer.parselnt (line. substring (w+1, v) ) ; nbLine = size/boxGenePerLine; if (size % boxGenePerLine != 0) nbLine++; nbLine *= boxFact; // Algorithme glouton if (coll + nbLine + boxTextHeight + 2 < boxMaxHeight) { rectPath [nbRectPath] .x = 1; rectPath [nbRectPath] .y = coll; coll += nbLine + boxTextHeight + 2; } else if (col2 + nbLine + boxTextHeight + 2 < boxMaxHeight) { rectPath [nbRectPath] .x = boxWidth+1; rectPath [nbRectPath] .y = col2 ; col2 += nbLine + boxTextHeight + 2 ; } else if (col3 + nbLine + boxTextHeight + 2 < boxMaxHeight) { rectPath [nbRectPath] .x = 2*boxWidth+l; rectPath [nbRectPath] .y = col3; col3 += nbLine + boxTextHeight + 2; } else { rectPath [nbRectPath] .x = 3*boxWidth+l; rectPath [nbRectPath] .y = col4; col4 += nbLine + boxTextHeight + 2; } rectPath [nbRectPath] .memberY = rectPath [nbRectPath] .y+boxTextHeight+2 ; rectPath [nbRectPath] .height = nbLine; pNum = new Vector (50, 50); while ( (w = line.indexOf (", ", v+1)) != -1) { z = line. indexOf ( "/" , v+1); key = line . substring (v+1, z) ; pos = line. substring (z+1, w) ; iKey = new Integer (key) ; iPos = new Integer (pos) ; pNum.addElement (iKey) ; if (numPath. containsKey (iKey) ) { vect = (Vector) numPath. get (iKey) ,- vect . addElement (name) ; } else { nPath = new Vector (10, 10) ; nPath. addElement (name) ; numPath.put (iKey, nPath) ; rectPath [nbRectPath] .posNum.put (i os, iKey) ; v = w; } z = line.indexOf ("/", v+1) ; key = line . substring (v+1, z) ; ( pos = line. substring (z+1) ; iKey = new Integer (key) ; iPos = new Integer (pos) ; pNum. addElement (iKey) ; if (numPath. containsKey (key) ) { vect = (Vector) numPath.get (iKey) ; vect . addElement (name) ; } else { nPath = new Vector(10, 10); nPath. addElement (name) ; numPath.put (iKey, nPath) ; } rectPath [nbRectPath] .posNum.put (iPos, iKey) ; line = din. readLine () ; if (line, length () == 0) line = "??? no name ???"; pathName .put (name, line); pathNum.put (name, pNum) ; nbRectPath++; line = din. readLine () ; } din. close () ; // Reads . sagepar file url = new URL (getDocumentBase () , ".sagepar"); din = new BufferedReader (new InputStreamReader (url .openStream () ) ) ; line = din. readLine () ; while (line != null) { if (line.startsWith("bindir=") ) bindir = line. substring (7) ; if (line. startsWith("keggshow=") ) keggshow = line . substring (9) ; line = din. readLine () ; } din. close () ,- } catch (Exception e) { e .printStackTrace ( ) ; } } // init public void setData (String geneNum) { gene [nbGene] = Integer . parselnt (geneNum) , • selected [gene [nbGene] ] = true ; nbGene ++ ; } // setData public void resetData ( ) { int i ; nbGene = 0 ; clickedGene = -1; pathGene = -1; for (i = 0; i < nbGeneMax; i++) selected [i] = false; } // resetData public void transferData () { int i ; String geneNum; for (i = 0; i < nbGene; i++) { geneNum = Integer. toString (gene [i] ) ; navWin. eval ( "dataTransfer ( ' "+geneNum+" ');"); } } // transferData public String getAppletlnfo () { return "Oh, qu'il est beau mon programme d'appletteux"; } // getAppletlnfo public void switchZoomO { zoom = ! zoom; repaint ( ) ; } // switchZoom public void switchBoxO { if (!box) { box = true; boxEvery = false; } else if (IboxEvery) boxEvery = true ; else box = false; repaint ( ) ; } // switchBox public void switchShowPathMembers ( ) { showPathMembers = ! showPathMembers ; repaint ( ) ; } // switchShowPathMembers public void selectTag (int number) { clickedGene = number; getAppletContext ( ) . showStatus (Integer . toString (number) + " , ratio="+descr [number] ) ; eraseText = false; lastlndice = number; repaint ( ) ; } // selectTag public void selectPath (String name) { int j , gp; Integer igp; Vector vectNum; // Prepares for displaying the pathway (s) activePathName = new Vector(l, 1) ; pathMark = new Hashtable () ; Integer un = new Integer (1); vectNum = (Vector) pathNum.get (name) ,• activePathName. addElement (pathName . get (name) ) ; for (j = 0; j < vectNum. size 0 ; j++) { igp = (Integer) vectNum. elementAt (j ) ; gp = igp . intValue ( ) ; selected [gp] = true; pathMark.put (igp, un) ; } igp = (Integer) vectNum. elementAt (0) ; pathGene = igp . intValue ( ) ; repaint ( ) ; } // selectPath public static void fatalError (String s) { System. out .printIn (s) ; System. exit (1) ; } // fatalError public void processKey (KeyEvent e) { int keyCode ; keyCode = e . getKeyCode ( ) ; if (keyCode == KeyEvent .VK_P) { pathGene = -1; repaint ( ) ; } else if (pathGene != -1) try { if ( (keyCode == KeyEvent . VK_L) ScSc I noClick) { URL u = new URL (getDocumentBase () , bindir+ "ShowPath " +mapList) ; getAppletContext () . showDocument (u, "RightFrame" ) ; } else if ((keyCode >= KeyEvent .VK_0) ScSc (keyCode < KeyEvent .VK_0+activePathMap. size () ) ) { String map = (String) activePathMap . elementAt (keyCode-KeyEvent .VK_0) ; if (e. isShiftDown() ) { URL u = new URL (getDocumentBase () , keggshow+map+ " . html " ) ; getAppletContext () . showDocument (u, " " ) ; } if (InoClick) .{ URL u = new URL (getDocumentBase () , bindir+ "ShowPath .pi?exp=" +fileApp÷" Scpath= " +map) ; getAppletContext () . showDocument (u, "RightFrame") ; } } } catch (Exception exc) { exc .printStackTrace () ; } shifted = e. isShiftDownO ; } // processKey public void paint (Graphics g) { int i, j, x, y, height, width, coef, sideRect, gp, descent; int size, incX, incY, mark, bit, pos, boxCharSize, nbPath=0; Integer igp, imark, iPos; String markString, String; Enumeration e; Shape oldClip; Font f; FontMetrics fm; if (box) { // Chooses character size boxCharSize = 11; while (true) { f = new Font ("SansSerif" , Font. PLAIN, boxCharSize); fm = g.getFontMetrics (f) ; if (fm.getAscent () +fm.getDescent () > boxTextHeight) boxCharSize-- ; else break; } descent = fm.getDescent () ; g. setFont (f) ; oldClip = g.getClipO; g. setColor (colorCross) ; g . drawRect (0 , 0, boxWidth, coll); g.drawRect (boxWidth, 0, boxWidth, col2); g. drawRect (2*boxWidth, 0, boxWidth, col3); g.drawRect (3*boxWidth, 0, boxWidth, col4) ; for (i = 0; i < nbRectPath; i++) { g. setColor (colorTextPath) ; g.setClip (rectPath [i] .x, rectPath [i] .y, boxWidth-1, boxTextHeight) ; g. drawstring ( (String) pathName .get (rectPath [i] .name) , rectPath [i] .x+1, rectPath [i] .y+boxTextHeight-descent) ; g.setClip (oldClip) ; e = rectPath [i] .posNum. keys () ; while (e .hasMoreElements () ) { iPos = (Integer) e .nextElement () ; pos = iPos . intValue () ; igp = (Integer) rectPath [i] .posNum. get (iPos) ; gp = igp . intValue () ; if ( [selected [gp] Sc& IboxEvery) break; if (ratio [gp] > ratioThreshold) g. setColor (colorUp) ; else if (ratio [gp] < -ratioThreshold) g. setColor (colorDown) ; else g. setColor (colorNeutral) ; x = rectPath [i] .x + boxFact* (pos%boxGenePerLine) ; y = rectPath [i] .memberY + boxFact* (pos/boxGenePerLine) ; g. fillRect (x, y, boxFact-1, boxFact-1) ; } g. setColor (colorCross) ; g . drawLine (rectPath [i] . x, rectPath [i] . y, rectPath [i] . x+boxWidth-2 , rectPath [i] . y) ; g. setColor (colorBorder) ; g.drawLine (rectPath [i] .x, rectPath [i] . y+boxTextHeight , rectPath [i] .x+boxWidth-2 , rectPath [i] .y+boxTextHeight) ; } if (clickX != -1) { // Current clicked tag g. setColor (colorClicked) ; g.drawRect (clickX-1, clickY-1, boxFact, boxFact); } return; } // Displays selected genes. // No double buffering to save memory on small machines with 16Mi color display. width = getSize () .width; height = getSize () .height ; if (zoom) { g. setColor (colorBorder) ; g.drawRect (0, 0, 3*chipSize, 3*chipSize) ; coef = 3 ; sideRect = 5 ; } else { g. setColor (colorBorder) ; g . drawRect (0 , 0, chipSize+2, chipSize+2) ; coef = 1; sideRect = 3 ; } if (showPathMembers) { // Puts a cross at selected tag points belonging to a pathway g. setColor (colorCross) ; for (i = 0; i < nbGene; i++) { if (numPath. containsKey (new Integer (gene [i] )) ) { x = 1+coef* (gene [i] % chipSize); y = 1+coef* (gene [i] / chipSize); g.drawLine (x-sideRect , y, x+sideRect, y) ; g.drawLine (x, y-sideRect, x, y+sideRect) ; } } } if (pathGene != -1) { // Displays the pathway names x = 1+coef* (pathGene % chipSize) ; y = 1+coef* (pathGene / chipSize) ; g. setColor (colorTextPath) ; incY = (y > coef*chipSize/2) ScSc zoom ? -15 : 15; incX = (x > coef*chipSize-180) ScSc zoom ? -180 : 6; for (i = 0; i < activePathName . size () ; i++) g_. drawstring (Integer. toString (i) +" ) "+ (String) activePathName. elementAt (i) , x+incX, y+i*incY) ; nbPath = activePathName. size () ; if (nbPath > 32) nbPath = 32; } // Displays selected tags for (i = 0; i < nbGene; i++) { if (ratio [gene [i] ] > ratioThreshold) g. setColor (colorUp) ; else if (ratio [gene [i] ] < -ratioThreshold) g. setColor (colorDown) ,- else g. setColor (colorNeutral) ; x = 1+coef* (gene [i] % chipSize) ,- y = 1+coef* (gene [i] / chipSize); g.fillRect (x, y, 2, 2); } if (pathGene != -1) { // Displays every tag belonging to the current pathway (s) e = pathMark. keys ( ) ; whi1e (e . hasMoreElements () ) { igp = (Integer) e .nextElement () ; gp = igp . intValue ( ) ; imark = (Integer) pathMark. get (igp) ; mark = imark. intValue ( ) ; if (ratio [gp] > ratioThreshold) g. setColor (colorUp) ; else if (ratio [gp] < -ratioThreshold) g. setColor (colorDown) ; else g. setColor (colorNeutral) ; x = 1+coef* (gp % chipSize) ; y = 1+coef* (gp / chipSize) ; g. fillRect (x, y, 2, 2) ; g. setColor (colorPath) ; g.drawRect (x-sideRect/2, y-sideRect/2, sideRect, sideRect) ; g. setColor (colorTextPath) ; if ( (gp != pathGene) ScSc (nbPath > 1)) { // More than one pathway => displays numbers . markString = " " ; for (bit = 0; bit < nbPath; bit++) if ((mark Sc (1 << bit)) != 0) markString += numString [bit] ; incX = (x > coef*chipSize-50) ScSc zoom ? -10 : 6; g . drawstring (markString . substring (0 , markString. length () -1) , x+incX, y) ,- } } x = 1+coef* (pathGene % chipSize) ; y = 1+coef* (pathGene / chipSize) ; g. setColor (colorClicked) ; g.drawRect (x-sideRect/2, y-sideRect/2, sideRect, sideRect) ; } if (clickedGene != -1) { // Current clicked tag x = 1+coef* (clickedGene % chipSize) ; y = 1+coef* (clickedGene / chipSize) ; g. setColor (colorClicked) ; g.drawRect (x-sideRect/2 , y-sideRect/2, sideRect, sideRect) ; } } // paint public void mouseOverTest (boolean clicked, int x, int y) { int g, coef, gp, i, j, mark; String number, text, map; Integer igp, imark, pos; Vector vectNum, vectPath; if (box) { // Searches for the pathway for (i = 0; i < nbRectPath; i++) if ( (x >= rectPath [i] .x) ScSc (x < rectPath [i] .x+boxWidth) ) if ( (y >= rectPath [i] .memberY) ScSc (y < rectPath[i] .memberY+rectPath [i] .height)) break; else if ( (y < rectPath [i] .memberY) ScSc (y > rectPath [i] .y) ScSc clicked ScSc shifted) { try - { URL u = new URL (getDocumentBase () , keggshow+rectPath [i] .name+" .html" ) ; getAppletContext ( ) . showDocument (u, " " ) ; } catch (Exception e) { e.printStackTrace () ; } return; } if (i < nbRectPath) { // Translates x -= rectPath [i] .x; y -= rectPath [i] .memberY; // Adjusts the coordinates since each gene is assigned t?o a little square if ( (x % boxFact) < boxFact-1) x -= x%boxFact; if ( (y % boxFact) < boxFact-1) y -= y%boxFact; if ( ( (x % boxFact ) == 0 ) ScSc ( (y % boxFact ) == 0 ) ) { // The adjusted position corresponds to a square (squares are separated by one pixel) pos = new Integer (y/boxFact*boxGenePerLine+x/boxFact) ; igp = (Integer) rectPath [i] .posNum.get (pos) ; g = igp . intValue () ; number = Integer.toString (g) ; text = descr [g] ; if (selected [g] | | boxEvery) { // Removes flickering when staying over the same little square if ( (g != lastlndice) | | clicked) { if (clicked) { if (InoClick) try { navWin. eval ( "opener. top .RightFrame .gotoGene ( ' #"+g+"');") ; } catch (Exception e) { e.printStackTrace 0 ; } clickedGene = g; clickX = x+rectPath [i] .x; clickY = y+rectPath [i] .memberY; repaint () ; } else if (clickedGene > -1) { clickedGene = clickX = clickY = -1; repaint ( ) ; } getAppletContext ( ) . showStatus (number+ " , ratio= " +text ) ; eraseText = 'clicked; lastlndice = g; } return; } } } } else { // Untranslates by 1 x--; y--; // Adjusts the coordinates since each gene is assigned to a 2x2 square coef = zoom ? 3 : 1; if ( (x % coef) == 1) X--; if ( (y % coef) == 1) y--; if ( ( (x % coef ) == 0 ) ScSc ( (y % coef ) == 0 ) ) { // The adjusted position corresponds to a square (squares are separated by one pixel) g = y/coef*chipSize+x/coef ; number = Integer . toString (g) ; text = descr [g] ; if (selected [g] ) { // Removes flickering when staying over the same little square if ( (g != lastlndice) || clicked) { if (clicked) { if (inoClick) try { navWin. eval ( "opener. to .RightFrame . gotoGene ( ' #"+g+" ' ) ; " ) ; } catch (Exception e) { e . print StackTrace ( ) ; } clickedGene = g ; i f ( (pathGene == - 1 ) ScSc shi fted) { igp = new Integer (g) ; if (numPath. containsKey (igp) ) { // Prepares for displaying the pathway (s) pathGene = g; activePathName = new Vector(10, 5) ; activePathMap = new Vector(10, 5) ; pathMark = new Hashtable () ; vectPath = (Vector) numPath. get (igp) ; mapList = " " ; for (i = 0 ,- i < vectPath. size () ,- i++) { map = (String) vectPath. elementAt (i) ; mapList += map+","; vectNum = (Vector) pathNum.get (map) ; activePathName . addElement (pathName . get (map) ) ; activePathMap. addElement (map) ; for (j = 0; j < vectNum. size () ; j++) { igp = (Integer) vectNum. elementAt (j ) ; gp = igp . intValue () ,- selected [gp] = true; if (pathMark. containsKey (igp) ) { imark = (Integer) pathMark.get (igp) ; mark = imark. intValue ( ) ; mark | = (1 << i) ; } else mark = (1 << i) ; pathMark.put (igp, new Integer (mark) ) ; } } } } repaint ( ) ; } else if (clickedGene > -1) { clickedGene = -1; repaint () ; } clickX = clickY = -1; getAppletContext () . showStatus (number+" , ratio="+text) ; eraseText = ! clicked; lastlndice = g; } return; } } } // Removes flickering when the mouse is not over any little square if (eraseText) { getAppletContext () . showStatus ( " " ) ; eraseText = false; lastlndice = -1; clickedGene = clickX = clickY = -1; } } // mouseOverTest } // class SageChip

Claims: CLAIMS 1. A method for identification of gene transcripts comprising the steps of: a) generating at least a first set of raw sequences by sequencing at least a first type of biological material; b) isolating first ditags from said at least first set of raw sequences ; c) isolating first tags from said isolated at least first ditags; d) determining abundance of said first tags; and e) identifying said first tags, further comprising a step of f) reducing the amount of sequencing errors by using a statistical model for sequencing errors to be applied to said isolated first tags. 2. The method of claim 1, characterised in that said statistical model of said step f) is based on a confidence level of a base-calling method. 3. The method of claim 1 or 2 , characterised in that said step f) is applied after a step of g) reducing the amount of sequencing errors by checking correctness of said isolated first ditags or tags through a base-calling method. 4. The method of claim 2 or 3 , characterised in that said base-calling method is performed through a Phred ® base-calling software. 5. The method according to any of the preceding claims, characterised in that said ditags are isolated from said set of raw sequences through a method for serial analysis of gene expression (SAGE) . 6. The method according to any of the preceding claims, characterised in that said steps a) through f) or a) through g) are applied to at least a second set of raw sequences and to respective second ditags and second tags, and wherein a step of b) comparing said first tags and said second tags in order to determine relative abundance thereof is applied. 7. The method according to any of the preceding claims, characterised in that it comprises a step of predicting an extra base-pair for said tags. 8. The method of claim 7, characterised in that said step of predicting an extra base-pair for said tags comprises the steps of: assigning an extra base-pair to each tag of a ditag each time a ditag of at least a predetermined number of base-pairs is isolated; imposing for each of the tags to which an extra base-pair has been assigned to be as much abundant as a predetermined threshold; choosing, for each of the remaining tags, its most dominant extra base-pair; and imposing, for said most dominant extra base-pair, to represent at least a certain percentage of the number of occurrences of said tag. 9. The method according to any of the preceding claims, characterised in that it comprises a step of checking correctness of said isolated ditags based on a length of said ditags. 10. The method according to any of claims 1 to 8, characterised in that it comprises a step of checking correctness of said isolated ditags based on an occurrence of said ditags. 11. The method according to any of the preceding claims, characterised in that said statistical model of said step f) is based on an average sequencing error rate. 12. The method of claim 11, characterised in that said average sequencing error rate is calculated through the system wherein q represents said average sequencing error rate. 13. The method according to any of the preceding claims, characterised in that said step f) comprises a step of: fl) calculating an estimate of the abundance of the tags not influenced by sequencing errors. 14. The method according to, claim 13, characterised in that said step fl) is performed through a sparse diagonal-dominant linear system. 15. The method according to claim 13 or 14, * characterised in that said step f) further comprises the steps of: f2) calculating a difference between said estimate of the abundance of the tags and said counted abundance of the tags ; and f3) eliminating tags for which said difference is bigger than a given threshold. 16. The method according to any of claims 6 to 15, characterised in that said step h) of comparing said first and at least second ditags in order to determine relative abundance thereof comprises the steps of: hi) merging said first and second tags; h2) normalizing the abundance of said first and second tags; h3) determining a difference of abundance between said first and second ditags; and h.4) estimating correctness of said difference. 17. The method of claim 16, characterised in that said step h4) of estimating correctness of said difference applies a Claverie method. 18. The method according to any of claims 6 to 17 when depending on claim 7 or 8 , characterised in that said step h) of comparing said first and second ditags in order to determine relative abundance thereof further comprises the step of: h.5) checking consistence of the predicted extra base-pair. 19. The method according to any of the preceding claims, characterised in that said step e) of identifying said at least first tags comprises the step of: el) performing a first identification of the tags by comparison with a first database. 20. The method of claim 19, characterised in that said step e) of identifying said at least first tags further comprises the step of: _. e2) assigning a score to each of the tags identified by said first identification. 21. The method of claim 19 or 20, characterised in that said step i) of identifying said first and second tags further comprises the steps of: e3) performing at least a second identification of the tags by comparison with at least a second database; and e4) assigning a score to each of the tags identified by said at least second identification. 22. The method of claim 19, characterised in that said first database is an EST database . 23. The method of claim 22, characterised in that step b) is performed by using Mmel as a restriction enzyme. 24. The method according to any of the preceding claims, characterised in that it comprises a step of visualizing the identified tags. 25. The method of claim 24, characterised in that it comprises a step of providing means for accessing the information concerning said identified tags. 26. The method of claim 24 or 25, characterised in that it comprises a step for assigning a unique number for each identified tag. 27. The method according to any of claims 24 to 26, characterised in that it comprises a step for assigning a unique position on a screen for each identified tag.

Inventors: COLINGE JACQUES, FEGER GEORG, COLINGE, JACQUES, FEGER, GEORG
Applicants: APPLIED RESEARCH SYSTEMS, COLINGE JACQUES, FEGER GEORG, APPLIED RESEARCH SYSTEMS ARS HOLDING N.V., COLINGE, JACQUES, FEGER, GEORG
Application year: 2000
Main classification: G06F19
IPC codes: C12Q1, G01N33, G06F17, G06F19