The R Project SVN R

Rev

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

Rev 25118 Rev 27716
Line 36... Line 36...
36 
  Becker, R. A., Chambers, J. M. and Wilks, A. R. (1988)
 36 
  Becker, R. A., Chambers, J. M. and Wilks, A. R. (1988)
37 
  \emph{The New S Language}.
 37 
  \emph{The New S Language}.
38 
  Wadsworth \& Brooks/Cole.
 38 
  Wadsworth \& Brooks/Cole.
39 
}
 39 
}
40 
\examples{
 40 
\examples{
- 
 
 41 
require(stats)
41 
centre <- function(x, type) {
 42 
centre <- function(x, type) {
42 
  switch(type,
 43 
  switch(type,
43 
        mean = mean(x),
 44 
        mean = mean(x),
44 
        median = median(x),
 45 
        median = median(x),
45 
        trimmed = mean(x, trim = .1))
 46 
        trimmed = mean(x, trim = .1))