The R Project SVN R

Rev

Rev 27447 | Rev 29907 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 27447 Rev 27716
Line 45... Line 45...
45 
#endif
 45 
#endif
46 
\seealso{
 46 
\seealso{
47 
  \code{\link{proc.time}}, \code{\link[stats]{time}} which is for time series.
 47 
  \code{\link{proc.time}}, \code{\link[stats]{time}} which is for time series.
48 
}
 48 
}
49 
\examples{
 49 
\examples{
- 
 
 50 
require(stats)
50 
system.time(for(i in 1:100) mad(runif(1000)))
 51 
system.time(for(i in 1:100) mad(runif(1000)))
51 
\dontrun{
 52 
\dontrun{
52 
exT <- function(n = 1000) {
 53 
exT <- function(n = 1000) {
53 
  # Purpose: Test if system.time works ok;   n: loop size
 54 
  # Purpose: Test if system.time works ok;   n: loop size
54 
  system.time(for(i in 1:n) x <- mean(rt(1000, df=4)))
 55 
  system.time(for(i in 1:n) x <- mean(rt(1000, df=4)))