Um comentario a parte, que pode ser ignorado:
x <-
c("lattice","nlme","contrast","plyr","reshape","latticeExtra","multcomp","aod"
)
x <- rep(x, 1e6)
t0 <- system.time(r0 <- gsub("^.*(.{4})$","\\1", x))
t1 <- system.time({n <- nchar(x); r1 <- substr(x, n-3, n)})
identical(r0, r1)
t0[3]/t1[3]
_______________________________________________
R-br mailing list
[email protected]
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código
mínimo reproduzível.
