From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

SENDU / bioperl-1.5.2_004-RCc / Bio / Matrix / PSM / InstanceSiteI.pm 

            

              
1
—
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
—
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
—
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
—
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
—
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
—
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160

              
# $Id: InstanceSiteI.pm,v 1.10.4.1 2006/10/02 23:10:21 sendu Exp $
=head1 NAME
Bio::Matrix::PSM::InstanceSiteI - InstanceSite interface, holds an instance of a PSM
=head1 SYNOPSIS
  use Bio::Matrix::PSM::InstanceSite;
  #Y ou can get an InstanceSite object either from a file:
  my ($instances,$matrix)=$SomePSMFile->parse_next;
  #or from memory
  my %params=(seq       => 'TATAAT',
              id        => "TATAbox1", 
              accession => 'ENSG00000122304', 
              mid       => 'TB1',
              desc      => 'TATA box, experimentally verified in PRM1 gene',
              relpos    => -35);
=head1 DESCRIPTION
Abstract interface to PSM site occurrence (PSM sequence
match). InstanceSite objects may be used to describe a PSM (See
Bio::Matrix::PSM::SiteMatrix) sequence matches.  The usual
characteristic of such a match is sequence coordinates, score,
sequence and sequence (gene) identifier- accession number or other
id. This object inherits from Bio::LocatableSeq (which defines the
real sequence) and might hold a SiteMatrix object, used to detect the
CRE (cis-regulatory element), or created from this CRE.  While the
documentation states that the motif id and gene id (accession)
combination should be unique, this is not entirely true- there might
be more than one occurrence of the same cis-regulatory element in the
upstream region of the same gene.  Therefore relpos would be the third
element to create a really unique combination.
=head1 FEEDBACK
=head2 Mailing Lists
User feedback is an integral part of the evolution of this and other
Bioperl modules. Send your comments and suggestions preferably to one
of the Bioperl mailing lists.  Your participation is much appreciated.
  bioperl-l@bioperl.org                  - General discussion
  http://bioperl.org/wiki/Mailing_lists  - About the mailing lists
=head2 Reporting Bugs
Report bugs to the Bioperl bug tracking system to help us keep track
the bugs and their resolution.  Bug reports can be submitted via the
web:
  http://bugzilla.open-bio.org/
=head1 AUTHOR - Stefan Kirov
Email skirov@utk.edu
=head1 SEE ALSO
L<Bio::Matrix::PSM::SiteMatrix>, L<Bio::Matrix::PSM::Psm>, L<Bio::Matrix::PSM::IO>
=head1 APPENDIX
=cut
# Let the code begin...
package Bio::Matrix::PSM::InstanceSiteI;
use strict;
use base qw(Bio::Root::RootI);
=head2 mid
 Title   : mid
 Usage   : my $mid=$instance->mid;
 Function: Get/Set the motif id
 Throws  :
 Returns : scalar
 Args    : scalar
=cut
sub mid {
    my $self = shift;
    $self->throw_not_implemented();
}
=head2 score
 Title   : score
 Usage   : my $score=$instance->score;
 Function: Get/Set the score (mismatches) between the instance and the attached (or
            initial) PSM
 Throws  :
 Returns : real number
 Args    : real number
=cut
sub score {
    my $self = shift;
    $self->throw_not_implemented();
}
=head2 start
 Title   : start
 Usage   : my $start=$instance->start;
 Function: Get/Set the position of the instance on the sequence used
 Throws  :
 Returns : integer
 Args    : integer
=cut
sub start {
    my $self = shift;
    $self->throw_not_implemented();
}
=head2 relpos
 Title   : relpos
 Usage   : my $seqpos=$instance->relpos;
 Function: Get/Set the relative position of the instance with respect to the transcription start
            site (if known). Can and usually is negative.
 Throws  :
 Returns : integer
 Args    : integer
=cut
sub relpos {
    my $self = shift;
    $self->throw_not_implemented();
}
=head2 minstance
 Title   : minstance
 Usage   : my $minstance=$misntance->score;
 Function: Get/Set the unique identifier- sequence id/motif id, for example PRM1_TATAbox.
          Not necessarily human readable.
 Throws  :
 Returns : string
 Args    : string
=cut
sub minstance {
    my $self = shift;
    $self->throw_not_implemented();
}
1;