The R Project SVN R

Rev

Rev 88581 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 88581 Rev 89993
Line 112... Line 112...
112 
stopifnot(identical(sort(ux), sort(u2)))
 112 
stopifnot(identical(sort(ux), sort(u2)))
113 
 
 113 
 
114 
length(unique(sample(100, 100, replace = TRUE)))
 114 
length(unique(sample(100, 100, replace = TRUE)))
115 
## approximately 100(1 - 1/e) = 63.21
 115 
## approximately 100(1 - 1/e) = 63.21
116 
 
 116 
 
117 
unique(iris)
 117 
unique(warpbreaks)
118 
}
 118 
}
119 
\keyword{manip}
 119 
\keyword{manip}
120 
\keyword{logic}
 120 
\keyword{logic}