<meta charset="utf-8"><span class="Apple-style-span" style="font-family: 'trebuchet ms', sans-serif; "><div><span class="Apple-style-span" style="font-family: 'trebuchet ms', sans-serif; ">Um comentario a parte, que pode ser ignorado:</span></div>

<div><span class="Apple-style-span" style="font-family: 'trebuchet ms', sans-serif; "><br></span></div>x <- c("lattice","nlme","contrast","plyr","reshape","latticeExtra","multcomp","aod"</span><span class="Apple-style-span" style="font-family: 'trebuchet ms', sans-serif; ">)</span><div>

<font class="Apple-style-span" face="'trebuchet ms', sans-serif">x <- rep(x, 1e6)<br></font></div><div><font class="Apple-style-span" face="'trebuchet ms', sans-serif">t0 <- system.time(r0 <- </font><span class="Apple-style-span" style="font-family: 'trebuchet ms', sans-serif; ">gsub("^.*(.{4})$","\\1", x))</span></div>

<div><span class="Apple-style-span" style="font-family: 'trebuchet ms', sans-serif; ">t1 <- system.time({n <- nchar(x); r1 <- substr(x, n-3, n)})</span></div><div><font class="Apple-style-span" face="'trebuchet ms', sans-serif">identical(r0, r1)</font></div>

<div><font class="Apple-style-span" face="'trebuchet ms', sans-serif">t0[3]/t1[3]</font></div><div><font class="Apple-style-span" face="'trebuchet ms', sans-serif"><br></font></div>