The R Project SVN R

Rev

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

Rev 59039 Rev 61150
Line 51... Line 51...
51 
require(utils)
 51 
require(utils)
52 
 
 52 
 
53 
expand.grid(height = seq(60, 80, 5), weight = seq(100, 300, 50),
 53 
expand.grid(height = seq(60, 80, 5), weight = seq(100, 300, 50),
54 
            sex = c("Male","Female"))
 54 
            sex = c("Male","Female"))
55 
 
 55 
 
56 
x <- seq(0,10, length.out=100)
 56 
x <- seq(0, 10, length.out = 100)
57 
y <- seq(-1,1, length.out=20)
 57 
y <- seq(-1, 1, length.out = 20)
58 
d1 <- expand.grid(x=x, y=y)
 58 
d1 <- expand.grid(x = x, y = y)
59 
d2 <- expand.grid(x=x, y=y, KEEP.OUT.ATTRS = FALSE)
 59 
d2 <- expand.grid(x = x, y = y, KEEP.OUT.ATTRS = FALSE)
60 
object.size(d1) - object.size(d2)
 60 
object.size(d1) - object.size(d2)
61 
##-> 5992 or 8832 (on 32- / 64-bit platform)
 61 
##-> 5992 or 8832 (on 32- / 64-bit platform)
62 
\dontshow{stopifnot(object.size(d1) > object.size(d2))}
 62 
\dontshow{stopifnot(object.size(d1) > object.size(d2))}
63 
}
 63 
}
64 
\keyword{models}
 64 
\keyword{models}