<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40">

<head>
<meta http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<meta name=Generator content="Microsoft Word 12 (filtered medium)">
<style>
<!--
 /* Font Definitions */
 @font-face
        {font-family:"Cambria Math";
        panose-1:2 4 5 3 5 4 6 3 2 4;}
@font-face
        {font-family:Calibri;
        panose-1:2 15 5 2 2 2 4 3 2 4;}
@font-face
        {font-family:Consolas;
        panose-1:2 11 6 9 2 2 4 3 2 4;}
 /* Style Definitions */
 p.MsoNormal, li.MsoNormal, div.MsoNormal
        {margin:0cm;
        margin-bottom:.0001pt;
        font-size:11.0pt;
        font-family:"Calibri","sans-serif";}
a:link, span.MsoHyperlink
        {mso-style-priority:99;
        color:blue;
        text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
        {mso-style-priority:99;
        color:purple;
        text-decoration:underline;}
p.MsoPlainText, li.MsoPlainText, div.MsoPlainText
        {mso-style-priority:99;
        mso-style-link:"Plain Text Char";
        margin:0cm;
        margin-bottom:.0001pt;
        font-size:10.5pt;
        font-family:Consolas;}
span.EmailStyle17
        {mso-style-type:personal-compose;
        font-family:"Calibri","sans-serif";
        color:windowtext;}
span.PlainTextChar
        {mso-style-name:"Plain Text Char";
        mso-style-priority:99;
        mso-style-link:"Plain Text";
        font-family:Consolas;}
.MsoChpDefault
        {mso-style-type:export-only;}
@page Section1
        {size:612.0pt 792.0pt;
        margin:70.85pt 3.0cm 70.85pt 3.0cm;}
div.Section1
        {page:Section1;}
-->
</style>
<!--[if gte mso 9]><xml>
 <o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
 <o:shapelayout v:ext="edit">
  <o:idmap v:ext="edit" data="1" />
 </o:shapelayout></xml><![endif]-->
</head>

<body lang=PT-BR link=blue vlink=purple>

<div class=Section1>

<p class=MsoNormal>Boa tarde amigos do R,<o:p></o:p></p>

<p class=MsoNormal><o:p> </o:p></p>

<p class=MsoNormal>     Estou com uma conversão que imagino ser bem complicada
de fazer, preciso pegar vários objetos como por exemplo um deles:<o:p></o:p></p>

<p class=MsoNormal><o:p> </o:p></p>

<p class=MsoPlainText>> m.2<o:p></o:p></p>

<p class=MsoPlainText>[1]  5  2  1  2  2  1  1  5  6  8  2  1  3  6  2 12  7  2
19  1  1  3  7  2  3  2  1  1  4  5  1  3  2  1  3  8  3 37  3  3  2  2  3  1 
1  1  1  1  4  3  1  4  2  1  3  3 55  5  1  3  3  1  1  4<o:p></o:p></p>

<p class=MsoNormal><o:p> </o:p></p>

<p class=MsoNormal>E converter para um novo vetor somente com números 1
correspondentes a cada um dos  valores em m.2 , obviamente que os valores que
já são  1 não seriam modicados, mas o primeiro valor o 5, seria substituido por
1 1 1 1 1, o 2 por 1 1 , assim successivamente para todos os valores,<o:p></o:p></p>

<p class=MsoNormal>Alguém poderia me dar uma luz, se é que tem jeito,<o:p></o:p></p>

<p class=MsoNormal>Obrigado,<o:p></o:p></p>

<p class=MsoNormal><o:p> </o:p></p>

<p class=MsoNormal><o:p> </o:p></p>

<p class=MsoNormal><o:p> </o:p></p>

<p class=MsoNormal><o:p> </o:p></p>

<p class=MsoNormal><o:p> </o:p></p>

<p class=MsoNormal><b>Alexandre dos Santos<o:p></o:p></b></p>

<p class=MsoNormal><b>Ingenieur forestier, Msc.<o:p></o:p></b></p>

<p class=MsoNormal><b>INRA- Biostatistique et Processus Spatiaux (BioSP)<o:p></o:p></b></p>

<p class=MsoNormal><b><span lang=EN-US>Domaine Saint-Paul<br>
Site Agroparc <br>
84914 -  Avignon - France<br>
Tél. : +33 (0)6 87 95 16 29<o:p></o:p></span></b></p>

<p class=MsoNormal><span lang=EN-US><o:p> </o:p></span></p>

</div>

</body>

</html>