<html>
  <head>
    <meta content="text/html; charset=ISO-8859-1"
      http-equiv="Content-Type">
  </head>
  <body text="#000000" bgcolor="#FFFFFF">
    <div class="moz-cite-prefix">Dear Jeremry,<br>
      <br>
      The plot is created by using the seqrep function with all three
      criteria, then retrieving the index of the representatives and
      using them to select the sequences to plot in the whole set with
      the tlim argument.<br>
      <br>
      Here is a code example, where<br>
      - "seq.object" is the sequence object, <br>
      - "dist" is  the pairwise distance matrix<br>
      - "max.dist" is the maximum theoretical distance between two
      sequences (it is provided because it is not sure wether the
      maximum observed distance equal the theoretical maximum)<br>
      <br>
      <tt>## Sequences representatives</tt><tt><br>
      </tt><tt>medoid <- seqrep(seq.object, criterion="dist", nrep=1,
        dist.matrix=dist, dmax=max.dist)</tt><tt><br>
      </tt><tt>freq <- seqrep(seq.object, criterion="freq", nrep=1,
        dist.matrix=dist, dmax=max</tt><tt><tt>.dist</tt>)</tt><tt><br>
      </tt><tt>density <- seqrep(seq.object, criterion="density",
        nrep=1, dist.matrix=dist, dmax=max</tt><tt><tt>.dist</tt>)</tt><tt><br>
      </tt><tt><br>
      </tt><tt>rep.idx <- c(attr(freq,"Index")[1],
        attr(density,"Index")[1],</tt><tt><br>
      </tt><tt>    attr(medoid,"Index")[1])</tt><tt><br>
      </tt><tt>seqiplot(seq.object, tlim=rep.idx, withlegend=FALSE,
        title="Title", border=NA)</tt><br>
      <br>
      Best regards,<br>
      Alexis<br>
      <br>
      <br>
      Le 14. 11. 13 22:15, Jeremy Reynolds a écrit :<br>
    </div>
    <blockquote
cite="mid:CABicVB9xs7V33HQ=vFYYKjOxULd5fzZjgFBOZOeTmqkVYragQQ@mail.gmail.com"
      type="cite">
      <meta http-equiv="Content-Type" content="text/html;
        charset=ISO-8859-1">
      <div dir="ltr">
        <div>
          <div>Dear TraMineR Users,<br>
            <br>
          </div>
          Does anyone know how Gabadinho and Ritschard produced figure 5
          of their paper (see link below)? For each group, it has one
          plot showing three different sequences: the sequence that is
          most frequent, the sequence with the highest neighborhood
          density, and the sequence that is most central.<br>
          <br>
        </div>
        <div>I can do a plot with one of the three sequences for each
          group, but I'm not sure how to combine the three into a single
          plot.<br>
        </div>
        <div><br>
        </div>
        Thanks,<br>
        <br>
        Jeremy <br>
        <div><br>
          <span class=""
style="border-collapse:separate;color:rgb(0,0,0);font-family:sans-serif;font-size:13px;font-style:normal;font-variant:normal;font-weight:normal;letter-spacing:normal;line-height:normal;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px">
            <p>
              Gabadinho A, Ritschard G (2013). "Searching for typical
              life trajectories applied to child birth histories", In R
              Lévy, E. Widmer (eds.),<span class=""> </span><em>Gendered
                Life Courses</em>, pp. 287-312. Vienna: LIT.</p>
            <p><a moz-do-not-send="true"
href="http://mephisto.unige.ch/pub/publications/gr/GabadhinoRitschard-TypicalTrajectories2013.pdf">http://mephisto.unige.ch/pub/publications/gr/GabadhinoRitschard-TypicalTrajectories2013.pdf</a><br>
            </p>
          </span><br>
          <div>
            <div>-- <br>
              <div dir="ltr">********************<br>
                Dr. Jeremy Reynolds<br>
                Associate Professor<br>
                Undergraduate Coordinator<br>
                Department of Sociology<br>
                116 Baldwin Hall<br>
                University of Georgia<br>
                Athens, GA 30602-1611<br>
                Phone: (706) 583-8072<br>
                Web: <a moz-do-not-send="true"
                  href="http://uga.edu/soc/people/faculty/reynolds_jeremy.php"
                  target="_blank">http://uga.edu/soc/people/faculty/reynolds_jeremy.php</a><br>
                Fax: (706) 542-4320</div>
            </div>
          </div>
        </div>
      </div>
      <br>
      <fieldset class="mimeAttachmentHeader"></fieldset>
      <br>
      <pre wrap="">_______________________________________________
Traminer-users mailing list
<a class="moz-txt-link-abbreviated" href="mailto:Traminer-users@lists.r-forge.r-project.org">Traminer-users@lists.r-forge.r-project.org</a>
<a class="moz-txt-link-freetext" href="https://lists.r-forge.r-project.org/cgi-bin/mailman/listinfo/traminer-users">https://lists.r-forge.r-project.org/cgi-bin/mailman/listinfo/traminer-users</a></pre>
    </blockquote>
    <br>
  </body>
</html>