<div dir="ltr"><div>Complementando a resposta anterior:</div><div><br></div><div><font face="monospace, monospace">data <- data.frame(x=c("1958Q3", "2001Q1", "1989M7", "1948M12", "1949", "2011"),</font></div><div><font face="monospace, monospace">                   y=runif(6,0,1))</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">data</font></div><div><font face="monospace, monospace">(ano  <- data[grep("[0-9]{4}$", data$x),])</font></div><div><font face="monospace, monospace">(quad <- data[grep("[0-9].*Q", data$x),])</font></div><div><font face="monospace, monospace">(mes  <- data[grep("[0-9].*M", data$x),])</font></div><div class="gmail_extra"><br clear="all"><div><div class="gmail_signature"><div dir="ltr">Éder Comunello <<a href="mailto:comunello.eder@gmail.com" target="_blank">c</a><a href="mailto:omunello.eder@gmail.com" target="_blank">omunello.eder@gmail.com</a>> <br>Dourados, MS - [22 16.5'S, 54 49'W]<br></div></div></div>
<br><div class="gmail_quote"><br></div></div></div>