The R Project SVN R

Rev

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

Rev 43272 Rev 46731
Line 160... Line 160...
160 
rx <-  rank(x)
 160 
rx <-  rank(x)
161 
all(rx == c(4.5, 3:2, 8, 6, 4.5, 9, 7, 1, 10))
 161 
all(rx == c(4.5, 3:2, 8, 6, 4.5, 9, 7, 1, 10))
162 
rxK <- rank(x, na.last = "keep")
 162 
rxK <- rank(x, na.last = "keep")
163 
all(rx [rx <= 8]    == na.omit(rxK))
 163 
all(rx [rx <= 8]    == na.omit(rxK))
164 
all(rank(x, na.last = NA) == na.omit(rxK))
 164 
all(rank(x, na.last = NA) == na.omit(rxK))
- 
 
 165 
 
- 
 
 166 
## as.list.function() instead of *.default():
- 
 
 167 
identical(as.list(as.list),
- 
 
 168 
	  alist(x = , ... = , UseMethod("as.list")))