This is an introduction to R ("GNU S"), a language and environment for statistical computing and graphics. R is similar to the award-winning S system, which was developed at Bell Laboratories by John Chambers et al. It provides a wide variety of statistical and graphical techniques (linear and nonlinear modelling, statistical tests, time series analysis, classification, clustering, ...).
This manual provides information on data types, programming elements, statistical modeling and graphics.
The current version of this document is 1.7.1 (2003-06-16). ISBN 3-901167-55-2
This introduction to R is derived from an original set of notes describing the S and S-PLUS environments written by Bill Venables and David M. Smith (Insightful Corporation). We have made a number of small changes to reflect differences between the R and S programs, and expanded some of the material.
We would like to extend warm thanks to Bill Venables for granting permission to distribute this modified version of the notes in this way, and for being a supporter of R from way back.
Comments and corrections are always welcome. Please address email correspondence to R-core@r-project.org.
Most R novices will start with the introductory session in Appendix A. This should give some familiarity with the style of R sessions and more importantly some instant feedback on what actually happens.
Many users will come to R mainly for its graphical facilities. In this case, Graphics on the graphics facilities can be read at almost any time and need not wait until all the preceding sections have been digested.
R is an integrated suite of software facilities for data manipulation, calculation and graphical display. Among other things it has
The term "environment" is intended to characterize it as a fully planned and coherent system, rather than an incremental accretion of very specific and inflexible tools, as is frequently the case with other data analysis software.
R is very much a vehicle for newly developing methods of interactive data analysis. As such it is very dynamic, and new releases have not always been fully backwards compatible with previous releases. Some users welcome the changes because of the bonus of new technology and new methods that come with new releases; others seem to be more worried by the fact that old code no longer works. Although R is intended as a programming language, one should regard most programs written in R as essentially ephemeral.
R can be regarded as an implementation of the S language which was developed at Bell Laboratories by Rick Becker, John Chambers and Allan Wilks, and also forms the basis of the S-PLUS systems.
The evolution of the S language is characterized by four books by John Chambers and coauthors. For R, the basic reference is The New S Language: A Programming Environment for Data Analysis and Graphics by Richard A. Becker, John M. Chambers and Allan R. Wilks. The new features of the 1991 release of S (S version 3) are covered in Statistical Models in S edited by John M. Chambers and Trevor J. Hastie. See References, for precise references.
In addition, documentation for S/S-PLUS can typically be used with R, keeping the differences between the S implementations in mind. See What documentation exists for R?.
Our introduction to the R environment did not mention statistics, yet many people use R as a statistics system. We prefer to think of it of an environment within which many classical and modern statistical techniques have been implemented. Some of these are built into the base R environment, but many are supplied as packages. (Currently the distinction is largely a matter of historical accident.) There are about 8 packages supplied with R (called "standard" packages) and many more are available through the CRAN family of Internet sites (via http://cran.r-project.org).
Most classical statistics and much of the latest methodology is available for use with R, but users will need to be prepared to do a little work to find it.
There is an important difference in philosophy between S (and hence R) and the other main statistical systems. In S a statistical analysis is normally done as a series of steps, with intermediate results being stored in objects. Thus whereas SAS and SPSS will give copious output from a regression or discriminant analysis, R will give minimal output and store the results in a fit object for subsequent interrogation by further R functions.
The most convenient way to use R is at a graphics workstation running a windowing system. This guide is aimed at users who have this facility. In particular we will occasionally refer to the use of R on an X window system although the vast bulk of what is said applies generally to any implementation of the R environment.
Most users will find it necessary to interact directly with the operating system on their computer from time to time. In this guide, we mainly discuss interaction with the operating system on UNIX machines. If you are running R under Windows you will need to make some small adjustments.
Setting up a workstation to take full advantage of the customizable features of R is a straightforward if somewhat tedious procedure, and will not be considered further here. Users in difficulty should seek local expert help.
When you use the R program it issues a prompt when it expects input
commands. The default prompt is >$
In using R under UNIX the suggested procedure for the first occasion is as follows:
work, to hold data files on
which you will use R for this problem. This will be the working
directory whenever you use R for this particular problem.
$ mkdir work $ cd work
$ R
> q()
At this point you will be asked whether you want to save the data from your R session. You can respond yes, no or cancel (a single letter abbreviation will do) to save the data before quitting, quit without saving, or return to the R session. Data which is saved will be available in future R sessions.
Further R sessions are simple.
work the working directory and start the program as before:
$ cd work $ R
q() command at the end
of the session.
To use R under Windows the procedure to
follow is basically the same. Create a folder as the working directory,
and set that in the Start In field in your R shortcut.
Then launch R by double clicking on the icon.
Readers wishing to get a feel for R at a computer before proceeding are strongly advised to work through the introductory session given in A sample session.
R has an inbuilt help facility similar to the man facility of
UNIX. To get more information on any specific named function, for
example solve, the command is
> help(solve)
An alternative is
> ?solve
For a feature specified by special characters, the argument must be
enclosed in double or single quotes, making it a "character string":
This is also necessary for a few words with syntactic meaning including
if, for and function.
> help("[[")
Either form of quote mark may be used to escape the other, as in the
string "It's important". Our convention is to use
double quote marks for preference.
On most R installations help is available in HTML format by running
> help.start()
which will launch a Web browser (netscape on UNIX) that allows
the help pages to be browsed with hyperlinks. On UNIX, subsequent help
requests are sent to the HTML-based help system. The `Search Engine
and Keywords' link in the page loaded by help.start() is
particularly useful as it is contains a high-level concept list which
searches though available functions. It can be a great way to get you
bearings quickly and to understand the breadth of what R has to
offer.
The help.search command allows searching for help in various
ways: try ?help.search for details and examples.
The examples on a help topic can normally be run by
> example(topic)
Windows versions of R have other optional help systems: use
> ?help
for further details.
Technically R is an expression language with a very simple
syntax. It is case sensitive as are most UNIX based packages, so
A and a are different symbols and would refer to different
variables. The set of symbols which can be used in R names depends
on the operating system and country within which R is being run
(technically on the locale in use). Normally all alphanumeric
symbols are allowed (and in some countries this includes accented
letters) plus .
Elementary commands consist of either expressions or assignments. If an expression is given as a command, it is evaluated, printed, and the value is lost. An assignment also evaluates an expression and passes the value to a variable but the result is not automatically printed.
Commands are separated either by a semi-colon (;{}#
If a command is not complete at the end of a line, R will give a different prompt, by default
+
on second and subsequent lines and continue to read input until the command is syntactically complete. This prompt may be changed by the user. We will generally omit the continuation prompt and indicate continuation by simple indenting.
Under many versions of UNIX and on Windows, R provides a mechanism for recalling and re-executing previous commands. The vertical arrow keys on the keyboard can be used to scroll forward and backward through a command history. Once a command is located in this way, the cursor can be moved within the command using the horizontal arrow keys, and characters can be removed with the <DEL> key or added with the other keys. More details are provided later: see The command line editor.
The recall and editing capabilities under UNIX are highly customizable. You can find out how to do this by reading the manual entry for the readline library.
Alternatively, the Emacs text editor provides more general support mechanisms (via ESS, Emacs Speaks Statistics) for working interactively with R. See R and Emacs.
If commands are stored on an external file, say commands.R in the
working directory work, they may be executed at any time in an
R session with the command
> source("commands.R")
For Windows Source is also available on the
File menu. The function sink,
> sink("record.lis")
will divert all subsequent output from the console to an external file,
record.lis. The command
> sink()
restores it to the console once again.
The entities that R creates and manipulates are known as objects. These may be variables, arrays of numbers, character strings, functions, or more general structures built from such components.
During an R session, objects are created and stored by name (we discuss this process in the next session). The R command
> objects()
(alternatively, ls() can be used to display the names of the
objects which are currently stored within R. The collection of
objects currently stored is called the workspace.
To remove objects the function rm is available:
> rm(x, y, z, ink, junk, temp, foo, bar)
All objects created during an R sessions can be stored permanently in
a file for use in future R sessions. At the end of each R session
you are given the opportunity to save all the currently available
objects. If you indicate that you want to do this, the objects are
written to a file called .RData3 in the current directory.
When R is started at later time it reloads the workspace from this file. At the same time the associated command history is reloaded.
It is recommended that you should use separate working directories for
analyses conducted with R. It is quite common for objects with names
x and y to be created during an analysis. Names like this
are often meaningful in the context of a single analysis, but it can be
quite hard to decide what they might be when the several analyses have
been conducted in the same directory.
R operates on named data structures. The simplest such
structure is the numeric vector, which is a single entity
consisting of an ordered collection of numbers. To set up a vector
named x, say, consisting of five numbers, namely 10.4, 5.6, 3.1,
6.4 and 21.7, use the R command
> x <- c(10.4, 5.6, 3.1, 6.4, 21.7)
This is an assignment statement using the function
c() which in this context can take an arbitrary number of vector
arguments and whose value is a vector got by concatenating its
arguments end to end.4
A number occurring by itself in an expression is taken as a vector of length one.
Notice that the assignment operator (<-=<-
Assignment can also be made using the function assign(). An
equivalent way of making the same assignment as above is with:
> assign("x", c(10.4, 5.6, 3.1, 6.4, 21.7))
The usual operator, <-, can be thought of as a syntactic
short-cut to this.
Assignments can also be made in the other direction, using the obvious change in the assignment operator. So the same assignment could be made using
> c(10.4, 5.6, 3.1, 6.4, 21.7) -> x
If an expression is used as a complete command, the value is printed and lost6. So now if we were to use the command
> 1/x
the reciprocals of the five values would be printed at the terminal (and
the value of x, of course, unchanged).
The further assignment
> y <- c(x, 0, x)
would create a vector y with 11 entries consisting of two copies
of x with a zero in the middle place.
Vectors can be used in arithmetic expressions, in which case the operations are performed element by element. Vectors occurring in the same expression need not all be of the same length. If they are not, the value of the expression is a vector with the same length as the longest vector which occurs in the expression. Shorter vectors in the expression are recycled as often as need be (perhaps fractionally) until they match the length of the longest vector. In particular a constant is simply repeated. So with the above assignments the command
> v <- 2*x + y + 1
generates a new vector v of length 11 constructed by adding
together, element by element, 2*x repeated 2.2 times, y
repeated just once, and 1 repeated 11 times.
The elementary arithmetic operators are the usual +, -,
*, / and ^ for raising to a power.
In addition all of the common arithmetic functions are available.
log, exp, sin, cos, tan, sqrt,
and so on, all have their usual meaning.
max and min select the largest and smallest elements of a
vector respectively.
range is a function whose value is a vector of length two, namely
c(min(x), max(x)).
length(x) is the number of elements in x,
sum(x) gives the total of the elements in x,
and prod(x) their product.
Two statistical functions are mean(x) which calculates the sample
mean, which is the same as sum(x)/length(x),
and var(x) which gives
sum((x-mean(x))^2)/(length(x)-1)
or sample variance. If the argument to var() is an
n-by-p matrix the value is a p-by-p sample
covariance matrix got by regarding the rows as independent
p-variate sample vectors.
sort(x) returns a vector of the same size as x with the
elements arranged in increasing order; however there are other more
flexible sorting facilities available (see order() or
sort.list() which produce a permutation to do the sorting).
Note that max and min select the largest and smallest
values in their arguments, even if they are given several vectors. The
parallel maximum and minimum functions pmax and
pmin return a vector (of length equal to their longest argument)
that contains in each element the largest (smallest) element in that
position in any of the input vectors.
For most purposes the user will not be concerned if the "numbers" in a numeric vector are integers, reals or even complex. Internally calculations are done as double precision real numbers, or double precision complex numbers if the input data are complex.
To work with complex numbers, supply an explicit complex part. Thus
sqrt(-17)
will give NaN and a warning, but
sqrt(-17+0i)
will do the computations as complex numbers.
R has a number of facilities for generating commonly used sequences
of numbers. For example 1:30 is the vector c(1, 2,
..., 29, 30).
The colon operator has highest priority within an expression, so, for
example 2*1:15 is the vector c(2, 4, ..., 28, 30).
Put n <- 10 and compare the sequences 1:n-1 and
1:(n-1).
The construction 30:1 may be used to generate a sequence
backwards.
The function seq() is a more general facility for generating
sequences. It has five arguments, only some of which may be specified
in any one call. The first two arguments, if given, specify the
beginning and end of the sequence, and if these are the only two
arguments given the result is the same as the colon operator. That is
seq(2,10) is the same vector as 2:10.
Parameters to seq(), and to many other R functions, can also
be given in named form, in which case the order in which they appear is
irrelevant. The first two parameters may be named
from=value and to=value; thus
seq(1,30), seq(from=1, to=30) and seq(to=30,
from=1) are all the same as 1:30. The next two parameters to
seq() may be named by=value and
length=value, which specify a step size and a length for
the sequence respectively. If neither of these is given, the default
by=1 is assumed.
For example
> seq(-5, 5, by=.2) -> s3
generates in s3 the vector c(-5.0, -4.8, -4.6, ...,
4.6, 4.8, 5.0). Similarly
> s4 <- seq(length=51, from=-5, by=.2)
generates the same vector in s4.
The fifth parameter may be named along=vector, which if
used must be the only parameter, and creates a sequence 1, 2,
..., length(vector), or the empty sequence if the vector is
empty (as it can be).
A related function is rep()
which can be used for replicating an object in various complicated ways.
The simplest form is
> s5 <- rep(x, times=5)
which will put five copies of x end-to-end in s5.
As well as numerical vectors, R allows manipulation of logical
quantities. The elements of a logical vectors can have the values
TRUE, FALSE, and NA (for "not available", see
below). The first two are often abbreviated as T and F,
respectively. Note however that T and F are just
variables which are set to TRUE and FALSE by default, but
are not reserved words and hence can be overwritten by the user. Hence,
you should always use TRUE and FALSE.
Logical vectors are generated by conditions. For example
> temp <- x > 13
sets temp as a vector of the same length as x with values
FALSE corresponding to elements of x where the condition
is not met and TRUE where it is.
The logical operators are <, <=, >, >=,
== for exact equality and != for inequality.
In addition if c1 and c2 are logical expressions, then
c1 & c2 is their intersection ("and"), c1 | c2
is their union ("or"), and !c1 is the negation of
c1.
Logical vectors may be used in ordinary arithmetic, in which case they
are coerced into numeric vectors, FALSE becoming 0
and TRUE becoming 1. However there are situations where
logical vectors and their coerced numeric counterparts are not
equivalent, for example see the next subsection.
In some cases the components of a vector may not be completely
known. When an element or value is "not available" or a "missing
value" in the statistical sense, a place within a vector may be
reserved for it by assigning it the special value NA.
In general any operation on an NA becomes an NA. The
motivation for this rule is simply that if the specification of an
operation is incomplete, the result cannot be known and hence is not
available.
The function is.na(x) gives a logical vector of the same size as
x with value TRUE if and only if the corresponding element
in x is NA.
> z <- c(1:3,NA); ind <- is.na(z)
Notice that the logical expression x == NA is quite different
from is.na(x) since NA is not really a value but a marker
for a quantity that is not available. Thus x == NA is a vector
of the same length as x all of whose values are NA
as the logical expression itself is incomplete and hence undecidable.
Note that there is a second kind of "missing" values which are
produced by numerical computation, the so-called Not a Number,
NaN,
values. Examples are
> 0/0
or
> Inf - Inf
which both give NaN since the result cannot be defined sensibly.
In summary, is.na(xx) is TRUE both for NA
and NaN values. To differentiate these, is.nan(xx) is only
TRUE for NaNs.
Character quantities and character vectors are used frequently in R,
for example as plot labels. Where needed they are denoted by a sequence
of characters delimited by the double quote character, e.g.,
"x-values", "New iteration results".
Character strings are entered using either double (") or single
(') quotes, but are printed using double quotes (or sometimes
without quotes). They use C-style escape sequences, using \ as
the escape character, so \\ is entered and printed as \\,
and inside double quotes " is entered as \". Other
useful escape sequences are \n, newline, \t, tab and
\b, backspace.
Character vectors may be concatenated into a vector by the c()
function; examples of their use will emerge frequently.
The paste() function takes an arbitrary number of arguments and
concatenates them one by one into character strings. Any numbers given
among the arguments are coerced into character strings in the evident
way, that is, in the same way they would be if they were printed. The
arguments are by default separated in the result by a single blank
character, but this can be changed by the named parameter,
sep=string, which changes it to string,
possibly empty.
For example
> labs <- paste(c("X","Y"), 1:10, sep="")
makes labs into the character vector
c("X1", "Y2", "X3", "Y4", "X5", "Y6", "X7", "Y8", "X9", "Y10")
Note particularly that recycling of short lists takes place here too;
thus c("X", "Y") is repeated 5 times to match the sequence
1:10.
7
Subsets of the elements of a vector may be selected by appending to the name of the vector an index vector in square brackets. More generally any expression that evaluates to a vector may have subsets of its elements similarly selected by appending an index vector in square brackets immediately after the expression.
Such index vectors can be any of four distinct types.
TRUE in the index vector are selected and
those corresponding to FALSE omitted. For example
> y <- x[!is.na(x)]
creates (or re-creates) an object y which will contain the
non-missing values of x, in the same order. Note that if
x has missing values, y will be shorter than x.
Also
> (x+1)[(!is.na(x)) & x>0] -> z
creates an object z and places in it the values of the vector
x+1 for which the corresponding value in x was both
non-missing and positive.
length(x)}. The corresponding elements of the vector are
selected and concatenated, in that order, in the result. The
index vector can be of any length and the result is of the same length
as the index vector. For example x[6] is the sixth component of
x and
> x[1:10]
selects the first 10 elements of x (assuming length(x) is
no less than 10). Also
> c("x","y")[rep(c(1,2,2,1), times=4)]
(an admittedly unlikely thing to do) produces a character vector of
length 16 consisting of "x", "y", "y", "x" repeated four times.
> y <- x[-(1:5)]
gives y all but the first five elements of x.
names attribute to identify its components.
In this case a sub-vector of the names vector may be used in the same way
as the positive integral labels in item 2 further above.
> fruit <- c(5, 10, 1, 20)
> names(fruit) <- c("orange", "banana", "apple", "peach")
> lunch <- fruit[c("apple","orange")]
The advantage is that alphanumeric names are often easier to remember than numeric indices. This option is particularly useful in connection with data frames, as we shall see later.
An indexed expression can also appear on the receiving end of an
assignment, in which case the assignment operation is performed
only on those elements of the vector. The expression must be of
the form vector[index_vector] as having an arbitrary
expression in place of the vector name does not make much sense here.
The vector assigned must match the length of the index vector, and in the case of a logical index vector it must again be the same length as the vector it is indexing.
For example
> x[is.na(x)] <- 0
replaces any missing values in x by zeros and
> y[y < 0] <- -y[y < 0]
has the same effect as
> y <- abs(y)
Vectors are the most important type of object in R, but there are several others which we will meet more formally in later sections.
The entities R operates on are technically known as objects. Examples are vectors of numeric (real) or complex values, vectors of logical values and vectors of character strings. These are known as "atomic" structures since their components are all of the same type, or mode, namely numeric8, complex, logical and character respectively.
Vectors must have their values all of the same mode. Thus any
given vector must be unambiguously either logical,
numeric, complex or character. The only mild
exception to this rule is the special "value" listed as NA for
quantities not available. Note that a vector can be empty and still
have a mode. For example the empty character string vector is listed as
character(0) and the empty numeric vector as numeric(0).
R also operates on objects called lists, which are of mode list. These are ordered sequences of objects which individually can be of any mode. lists are known as "recursive" rather than atomic structures since their components can themselves be lists in their own right.
The other recursive structures are those of mode function and expression. Functions are the objects that form part of the R system along with similar user written functions, which we discuss in some detail later. Expressions as objects form an advanced part of R which will not be discussed in this guide, except indirectly when we discuss formulae used with modeling in R.
By the mode of an object we mean the basic type of its
fundamental constituents. This is a special case of a "property"
of an object. Another property of every object is its length. The
functions mode(object) and length(object) can be
used to find out the mode and length of any defined structure
9.
Further properties of an object are usually provided by
attributes(object), see Getting and setting attributes.
Because of this, mode and length are also called "intrinsic
attributes" of an object.
For example, if z is a complex vector of length 100, then in an
expression mode(z) is the character string "complex" and
length(z) is 100.
R caters for changes of mode almost anywhere it could be considered sensible to do so, (and a few where it might not be). For example with
> z <- 0:9
we could put
> digits <- as.character(z)
after which digits is the character vector c("0", "1", "2",
..., "9"). A further coercion, or change of mode,
reconstructs the numerical vector again:
> d <- as.integer(digits)
Now d and z are the same.10 There is a
large collection of functions of the form as.something()
for either coercion from one mode to another, or for investing an object
with some other attribute it may not already possess. The reader should
consult the different help files to become familiar with them.
An "empty" object may still have a mode. For example
> e <- numeric()
makes e an empty vector structure of mode numeric. Similarly
character() is a empty character vector, and so on. Once an
object of any size has been created, new components may be added to it
simply by giving it an index value outside its previous range. Thus
> e[3] <- 17
now makes e a vector of length 3, (the first two components of
which are at this point both NA). This applies to any structure
at all, provided the mode of the additional component(s) agrees with the
mode of the object in the first place.
This automatic adjustment of lengths of an object is used often, for
example in the scan() function for input. (See The scan() function.)
Conversely to truncate the size of an object requires only an assignment
to do so. Hence if alpha is an object of length 10, then
> alpha <- alpha[2 * 1:5]
makes it an object of length 5 consisting of just the former components with even index. The old indices are not retained, of course.
The function attributes(object)
gives a list of all the non-intrinsic attributes currently defined for
that object. The function attr(object, name)
can be used to select a specific attribute. These functions are rarely
used, except in rather special circumstances when some new attribute is
being created for some particular purpose, for example to associate a
creation date or an operator with an R object. The concept, however,
is very important.
Some care should be exercised when assigning or deleting attributes since they are an integral part of the object system used in R.
When it is used on the left hand side of an assignment it can be used
either to associate a new attribute with object or to
change an existing one. For example
> attr(z,"dim") <- c(10,10)
allows R to treat z as if it were a 10-by-10 matrix.
A special attribute known as the class of the object is used to allow for an object oriented style of programming in R.
For example if an object has class "data.frame", it will be
printed in a certain way, the plot() function will display it
graphically in a certain way, and other so-called generic functions such
as summary() will react to it as an argument in a way sensitive
to its class.
To remove temporarily the effects of class, use the function
unclass().
For example if winter has the class "data.frame" then
> winter
will print it in data frame form, which is rather like a matrix, whereas
> unclass(winter)
will print it as an ordinary list. Only in rather special situations do you need to use this facility, but one is when you are learning to come to terms with the idea of class and generic functions.
Generic functions and classes will be discussed further in Object orientation, but only briefly.
A factor is a vector object used to specify a discrete classification (grouping) of the components of other vectors of the same length. R provides both ordered and unordered factors. While the "real" application of factors is with model formulae (see Contrasts), we here look at
Suppose, for example, we have a sample of 30 tax accountants from all the states and territories of Australia11 and their individual state of origin is specified by a character vector of state mnemonics as
> state <- c("tas", "sa", "qld", "nsw", "nsw", "nt", "wa", "wa",
"qld", "vic", "nsw", "vic", "qld", "qld", "sa", "tas",
"sa", "nt", "wa", "vic", "qld", "nsw", "nsw", "wa",
"sa", "act", "nsw", "vic", "vic", "act")
Notice that in the case of a character vector, "sorted" means sorted in alphabetical order.
A factor is similarly created using the factor() function:
> statef <- factor(state)
The print() function handles factors slightly differently from
other objects:
> statef [1] tas sa qld nsw nsw nt wa wa qld vic nsw vic qld qld sa [16] tas sa nt wa vic qld nsw nsw wa sa act nsw vic vic act Levels: act nsw nt qld sa tas vic wa
To find out the levels of a factor the function levels() can be
used.
> levels(statef) [1] "act" "nsw" "nt" "qld" "sa" "tas" "vic" "wa"
tapply() and ragged arraysTo continue the previous example, suppose we have the incomes of the same tax accountants in another vector (in suitably large units of money)
> incomes <- c(60, 49, 40, 61, 64, 60, 59, 54, 62, 69, 70, 42, 56,
61, 61, 61, 58, 51, 48, 65, 49, 49, 41, 48, 52, 46,
59, 46, 58, 43)
To calculate the sample mean income for each state we can now use the
special function tapply():
> incmeans <- tapply(incomes, statef, mean)
giving a means vector with the components labelled by the levels
act nsw nt qld sa tas vic wa 44.500 57.333 55.500 53.600 55.000 60.500 56.000 52.250
The function tapply() is used to apply a function, here
mean(), to each group of components of the first argument, here
incomes, defined by the levels of the second component, here
statef12, as if they were separate vector
structures. The result is a structure of the same length as the levels
attribute of the factor containing the results. The reader should
consult the help document for more details.
Suppose further we needed to calculate the standard errors of the state
income means. To do this we need to write an R function to calculate
the standard error for any given vector. Since there is an builtin
function var() to calculate the sample variance, such a function
is a very simple one liner, specified by the assignment:
> stderr <- function(x) sqrt(var(x)/length(x))
(Writing functions will be considered later in Writing your own functions.) After this assignment, the standard errors are calculated by
> incster <- tapply(incomes, statef, stderr)
and the values calculated are then
> incster act nsw nt qld sa tas vic wa 1.5 4.3102 4.5 4.1061 2.7386 0.5 5.244 2.6575
As an exercise you may care to find the usual 95% confidence limits for
the state mean incomes. To do this you could use tapply() once
more with the length() function to find the sample sizes, and the
qt() function to find the percentage points of the appropriate
t-distributions.
The function tapply() can be used to handle more complicated
indexing of a vector by multiple categories. For example, we might wish to
split the tax accountants by both state and sex. However in this simple
instance (just one category) what happens can be thought of as follows. The
values in the vector are collected into groups corresponding to the
distinct entries in the category. The function is then applied to each of
these groups individually. The value is a vector of function results,
labelled by the levels attribute of the category.
The combination of a vector and a labelling factor is an example of what is sometimes called a ragged array, since the subclass sizes are possibly irregular. When the subclass sizes are all the same the indexing may be done implicitly and much more efficiently, as we see in the next section.
The levels of factors are stored in alphabetical order, or in the order
they were specified to factor if they were specified explicitly.
Sometimes the levels will have a natural ordering that we want to record
and want our statistical analysis to make use of. The ordered()
function creates such ordered factors but is otherwise identical to
factor. For most purposes the only difference between ordered
and unordered factors is that the former are printed showing the
ordering of the levels, but the contrasts generated for them in fitting
linear models are different.
An array can be considered as a multiply subscripted collection of data entries, for example numeric. R allows simple facilities for creating and handling arrays, and in particular the special case of matrices.
A dimension vector is a vector of positive integers. If its length is k then the array is k-dimensional, i.e., a matrix is a 2-dimensional array. The values in the dimension vector give the upper limits for each of the k subscripts. The lower limits are always 1.
A vector can be used by R as an array only if it has a dimension
vector as its dim attribute. Suppose, for example, z is a
vector of 1500 elements. The assignment
> dim(z) <- c(3,5,100)
gives it the dim attribute that allows it to be treated as a 3 by 5 by 100 array.
Other functions such as matrix() and array() are available
for simpler and more natural looking assignments, as we shall see in
The array() function.
The values in the data vector give the values in the array in the same order as they would occur in FORTRAN, that is "column major order," with the first subscript moving fastest and the last subscript slowest.
For example if the dimension vector for an array, say a is
c(3,4,2) then there are 3 * 4 * 2 = 24 entries in a
and the data vector holds them in the order a[1,1,1], a[2,1,1],
..., a[2,4,2], a[3,4,2].
Individual elements of an array may be referenced, as above, by giving the name of the array followed by the subscripts in square brackets, separated by commas.
More generally, subsections of an array may be specified by giving a sequence of index vectors in place of subscripts; however if any index position is given an empty index vector, then the full range of that subscript is taken.
Continuing the previous example, a[2,,] is a 4 * 2 array
with dimension vector c(4,2) and data vector containing the
values
c(a[2,1,1], a[2,2,1], a[2,3,1], a[2,4,1], a[2,1,2], a[2,2,2], a[2,3,2], a[2,4,2])
in that order. a[,,] stands for the entire array, which is the
same as omitting the subscripts entirely and using a alone.
For any array, say Z, the dimension vector may be referenced
explicitly as dim(Z) (on either side of an assignment).
Also, if an array name is given with just one subscript or index vector, then the corresponding values of the data vector only are used; in this case the dimension vector is ignored. This is not the case, however, if the single index is not a vector but itself an array, as we next discuss.
As well as an index vector in any subscript position, an array may be used with a single index array in order either to assign a vector of quantities to an irregular collection of elements in the array, or to extract an irregular collection as a vector.
A matrix example makes the process clear. In the case of a doubly
indexed array, an index matrix may be given consisting of two columns
and as many rows as desired. The entries in the index matrix are the
row and column indices for the doubly indexed array. Suppose for
example we have a 4 by 5 array X and we wish to do
the following:
X[1,3], X[2,2] and X[3,1] as a
vector structure, and
X by 0s.
> x <- array(1:20,dim=c(4,5)) # Generate a 4 by 5 array.
> x
[,1] [,2] [,3] [,4] [,5]
[1,] 1 5 9 13 17
[2,] 2 6 10 14 18
[3,] 3 7 11 15 19
[4,] 4 8 12 16 20
> i <- array(c(1:3,3:1),dim=c(3,2))
> i # i is a 3 by 2 index array.
[,1] [,2]
[1,] 1 3
[2,] 2 2
[3,] 3 1
> x[i] # Extract those elements
[1] 9 6 3
> x[i] <- 0 # Replace those elements by zeros.
> x
[,1] [,2] [,3] [,4] [,5]
[1,] 1 5 0 13 17
[2,] 2 0 10 14 18
[3,] 0 7 11 15 19
[4,] 4 8 12 16 20
>
As a less trivial example, suppose we wish to generate an (unreduced)
design matrix for a block design defined by factors blocks
(b levels) and varieties (v levels). Further
suppose there are n plots in the experiment. We could proceed as
follows:
> Xb <- matrix(0, n, b) > Xv <- matrix(0, n, v) > ib <- cbind(1:n, blocks) > iv <- cbind(1:n, varieties) > Xb[ib] <- 1 > Xv[iv] <- 1 > X <- cbind(Xb, Xv)
To construct the incidence matrix, N say, we could use
> N <- crossprod(Xb, Xv)
However a simpler direct way of producing this matrix is to use
table():
> N <- table(blocks, varieties)
array() functionAs well as giving a vector structure a dim attribute, arrays can
be constructed from vectors by the array function, which has the
form
> Z <- array(data_vector, dim_vector)
For example, if the vector h contains 24, or fewer, numbers then
the command
> Z <- array(h, dim=c(3,4,2))
would use h to set up 3 by 4 by 2 array in
Z. If the size of h is exactly 24 the result is the same
as
> dim(Z) <- c(3,4,2)
However if h is shorter than 24, its values recycled from the
beginning again to make it up to size 24 (see The recycling rule).
As an extreme but common example
> Z <- array(0, c(3,4,2))
makes Z an array of all zeros.
At this point dim(Z) stands for the dimension vector
c(3,4,2), and Z[1:24] stands for the data vector as it was
in h, and Z[] with an empty subscript or Z with no
subscript stands for the entire array as an array.
Arrays may be used in arithmetic expressions and the result is an array
formed by element by element operations on the data vector. The
dim attributes of operands generally need to be the same, and
this becomes the dimension vector of the result. So if A,
B and C are all similar arrays, then
> D <- 2*A*B + C + 1
makes D a similar array with data vector the result of the
evident element by element operations. However the precise rule
concerning mixed array and vector calculations has to be considered a
little more carefully.
The precise rule affecting element by element mixed calculations with vectors and arrays is somewhat quirky and hard to find in the references. From experience we have found the following to be a reliable guide.
dim attribute or an error results.
dim attribute of its array operands.
An important operation on arrays is the outer product. If
a and b are two numeric arrays, their outer product is an
array whose dimension vector is got by concatenating their two dimension
vectors (order is important), and whose data vector is got by forming
all possible products of elements of the data vector of a with
those of b. The outer product is formed by the special operator
%o%:
> ab <- a %o% b
An alternative is
> ab <- outer(a, b, "*")
The multiplication function can be replaced by an arbitrary function of
two variables. For example if we wished to evaluate the function
f(x; y) = cos(y)/(1 + x^2)
over a regular grid of values with x- and y-coordinates
defined by the R vectors x and y respectively, we could
proceed as follows:
> f <- function(x, y) cos(y)/(1 + x^2) > z <- outer(x, y, f)
In particular the outer product of two ordinary vectors is a doubly subscripted array (that is a matrix, of rank at most 1). Notice that the outer product operator is of course non-commutative. Defining your own R functions will be considered further in Writing your own functions.
As an artificial but cute example, consider the determinants of 2 by 2 matrices [a, b; c, d] where each entry is a non-negative integer in the range 0, 1, ..., 9, that is a digit.
The problem is to find the determinants, ad - bc, of all possible matrices of this form and represent the frequency with which each value occurs as a high density plot. This amounts to finding the probability distribution of the determinant if each digit is chosen independently and uniformly at random.
A neat way of doing this uses the outer() function twice:
> d <- outer(0:9, 0:9)
> fr <- table(outer(d, d, "-"))
> plot(as.numeric(names(fr)), fr, type="h",
xlab="Determinant", ylab="Frequency")
Notice the coercion of the names attribute of the frequency table
to numeric in order to recover the range of the determinant values. The
"obvious" way of doing this problem with for loops, to be
discussed in Loops and conditional execution, is so inefficient as
to be impractical.
It is also perhaps surprising that about 1 in 20 such matrices is singular.
The function aperm(a, perm)
may be used to permute an array, a. The argument perm
must be a permutation of the integers {1, ..., k}, where
k is the number of subscripts in a. The result of the
function is an array of the same size as a but with old dimension
given by perm[j] becoming the new j-th dimension. The
easiest way to think of this operation is as a generalization of
transposition for matrices. Indeed if A is a matrix, (that is, a
doubly subscripted array) then B given by
> B <- aperm(A, c(2,1))
is just the transpose of A. For this special case a simpler
function t()
is available, so we could have used B <- t(A).
As noted above, a matrix is just an array with two subscripts. However
it is such an important special case it needs a separate discussion.
R contains many operators and functions that are available only for
matrices. For example t(X) is the matrix transpose function, as
noted above. The functions nrow(A) and ncol(A) give the
number of rows and columns in the matrix A respectively.
The operator %*% is used for matrix multiplication.
An n by 1 or 1 by n matrix may of course be
used as an n-vector if in the context such is appropriate.
Conversely, vectors which occur in matrix multiplication expressions are
automatically promoted either to row or column vectors, whichever is
multiplicatively coherent, if possible, (although this is not always
unambiguously possible, as we see later).
If, for example, A and B are square matrices of the same
size, then
> A * B
is the matrix of element by element products and
> A %*% B
is the matrix product. If x is a vector, then
> x %*% A %*% x
is a quadratic form.13
The function crossprod() forms "crossproducts", meaning that
crossprod(X, y) is the same as t(X) %*% y but the
operation is more efficient. If the second argument to
crossprod() is omitted it is taken to be the same as the first.
The meaning of diag() depends on its argument. diag(v),
where v is a vector, gives a diagonal matrix with elements of the
vector as the diagonal entries. On the other hand diag(M), where
M is a matrix, gives the vector of main diagonal entries of
M. This is the same convention as that used for diag() in
MATLAB. Also, somewhat confusingly, if k is a single
numeric value then diag(k) is the k by k identity
matrix!
Solving linear equations is the inverse of matrix multiplication. When after
> b <- A %*% x
only A and b are given, the vector x is the
solution of that linear equation system. In R,
> solve(A,b)
solves the system, returning x (up to some accuracy loss).
Note that in linear algebra, formally
x = A^{-1} %*% b
where
A^{-1} denotes the inverse of
A, which can be computed by
solve(A)
but rarely is needed. Numerically, it is both inefficient and unstable
to compute x <- solve(A) %*% b instead of solve(A,b).
The quadratic form
x %*% A^{-1} %*% x
which is used in multivariate computations, should be computed by something like
x %*% solve(A,x), rather than computing the inverse of A.
The function eigen(Sm) calculates the eigenvalues and
eigenvectors of a symmetric matrix Sm. The result of this
function is a list of two components named values and
vectors. The assignment
> ev <- eigen(Sm)
will assign this list to ev. Then ev$val is the vector of
eigenvalues of Sm and ev$vec is the matrix of
corresponding eigenvectors. Had we only needed the eigenvalues we could
have used the assignment:
> evals <- eigen(Sm)$values
evals now holds the vector of eigenvalues and the second
component is discarded. If the expression
> eigen(Sm)
is used by itself as a command the two components are printed, with their names.
The function svd(M) takes an arbitrary matrix argument, M,
and calculates the singular value decomposition of M. This
consists of a matrix of orthonormal columns U with the same
column space as M, a second matrix of orthonormal columns
V whose column space is the row space of M and a diagonal
matrix of positive entries D such that M = U %*% D %*%
t(V). D is actually returned as a vector of the diagonal
elements. The result of svd(M) is actually a list of three
components named d, u and v, with evident meanings.
If M is in fact square, then, it is not hard to see that
> absdetM <- prod(svd(M)$d)
calculates the absolute value of the determinant of M. If this
calculation were needed often with a variety of matrices it could be
defined as an R function
> absdet <- function(M) prod(svd(M)$d)
after which we could use absdet() as just another R function.
As a further trivial but potentially useful example, you might like to
consider writing a function, say tr(), to calculate the trace of
a square matrix. [Hint: You will not need to use an explicit loop.
Look again at the diag() function.]
The function lsfit() returns a list giving results of a least
squares fitting procedure. An assignment such as
> ans <- lsfit(X, y)
gives the results of a least squares fit where y is the vector of
observations and X is the design matrix. See the help facility
for more details, and also for the follow-up function ls.diag()
for, among other things, regression diagnostics. Note that a grand mean
term is automatically included and need not be included explicitly as a
column of X.
Another closely related function is qr() and its allies.
Consider the following assignments
> Xplus <- qr(X) > b <- qr.coef(Xplus, y) > fit <- qr.fitted(Xplus, y) > res <- qr.resid(Xplus, y)
These compute the orthogonal projection of y onto the range of
X in fit, the projection onto the orthogonal complement in
res and the coefficient vector for the projection in b,
that is, b is essentially the result of the MATLAB
`backslash' operator.
It is not assumed that X has full column rank. Redundancies will
be discovered and removed as they are found.
This alternative is the older, low level way to perform least squares calculations. Although still useful in some contexts, it would now generally be replaced by the statistical models features, as will be discussed in Statistical models in R.
cbind() and rbind()As we have already seen informally, matrices can be built up from other
vectors and matrices by the functions cbind() and rbind().
Roughly cbind() forms matrices by binding together matrices
horizontally, or column-wise, and rbind() vertically, or
row-wise.
In the assignment
> X <- cbind(arg_1, arg_2, arg_3, ...)
the arguments to cbind() must be either vectors of any length, or
matrices with the same column size, that is the same number of rows.
The result is a matrix with the concatenated arguments arg_1,
arg_2, ... forming the columns.
If some of the arguments to cbind() are vectors they may be
shorter than the column size of any matrices present, in which case they
are cyclically extended to match the matrix column size (or the length
of the longest vector if no matrices are given).
The function rbind() does the corresponding operation for rows.
In this case any vector argument, possibly cyclically extended, are of
course taken as row vectors.
Suppose X1 and X2 have the same number of rows. To
combine these by columns into a matrix X, together with an
initial column of 1s we can use
> X <- cbind(1, X1, X2)
The result of rbind() or cbind() always has matrix status.
Hence cbind(x) and rbind(x) are possibly the simplest ways
explicitly to allow the vector x to be treated as a column or row
matrix respectively.
c(), with arraysIt should be noted that whereas cbind() and rbind() are
concatenation functions that respect dim attributes, the basic
c() function does not, but rather clears numeric objects of all
dim and dimnames attributes. This is occasionally useful
in its own right.
The official way to coerce an array back to a simple vector object is to
use as.vector()
> vec <- as.vector(X)
However a similar result can be achieved by using c() with just
one argument, simply for this side-effect:
> vec <- c(X)
There are slight differences between the two, but ultimately the choice between them is largely a matter of style (with the former being preferable).
Recall that a factor defines a partition into groups. Similarly a pair
of factors defines a two way cross classification, and so on.
The function table() allows frequency tables to be calculated
from equal length factors. If there are k category arguments,
the result is a k-way array of frequencies.
Suppose, for example, that statef is a factor giving the state
code for each entry in a data vector. The assignment
> statefr <- table(statef)
gives in statefr a table of frequencies of each state in the
sample. The frequencies are ordered and labelled by the levels
attribute of the category. This simple case is equivalent to, but more
convenient than,
> statefr <- tapply(statef, statef, length)
Further suppose that incomef is a category giving a suitably
defined "income class" for each entry in the data vector, for example
with the cut() function:
> factor(cut(incomes, breaks = 35+10*(0:7))) -> incomef
Then to calculate a two-way table of frequencies:
> table(incomef,statef)
statef
incomef act nsw nt qld sa tas vic wa
(35,45] 1 1 0 1 0 0 1 0
(45,55] 1 1 1 1 2 0 1 3
(55,65] 0 3 1 3 2 2 2 1
(65,75] 0 1 0 0 0 0 1 0
Extension to higher way frequency tables is immediate.
An R list is an object consisting of an ordered collection of objects known as its components.
There is no particular need for the components to be of the same mode or type, and, for example, a list could consist of a numeric vector, a logical value, a matrix, a complex vector, a character array, a function, and so on. Here is a simple example of how to make a list:
> Lst <- list(name="Fred", wife="Mary", no.children=3,
child.ages=c(4,7,9))
Components are always numbered and may always be referred to as
such. Thus if Lst is the name of a list with four components,
these may be individually referred to as Lst[[1]],
Lst[[2]], Lst[[3]] and Lst[[4]]. If, further,
Lst[[4]] is a vector subscripted array then Lst[[4]][1] is
its first entry.
If Lst is a list, then the function length(Lst) gives the
number of (top level) components it has.
Components of lists may also be named, and in this case the component may be referred to either by giving the component name as a character string in place of the number in double square brackets, or, more conveniently, by giving an expression of the form
> name$component_name
for the same thing.
This is a very useful convention as it makes it easier to get the right component if you forget the number.
So in the simple example given above:
Lst$name is the same as Lst[[1]] and is the string
"Fred",
Lst$wife is the same as Lst[[2]] and is the string
"Mary",
Lst$child.ages[1] is the same as Lst[[4]][1] and is the
number 4.
Additionally, one can also use the names of the list components in
double square brackets, i.e., Lst[["name"]] is the same as
Lst$name. This is especially useful, when the name of the
component to be extracted is stored in another variable as in
> x <- "name"; Lst[[x]]
It is very important to distinguish Lst[[1]] from Lst[1].
[[...]][...]Lst, and if it is a named list the name is not
included. The latter is a sublist of the list Lst
consisting of the first entry only. If it is a named list, the name is
transferred to the sublist.
The names of components may be abbreviated down to the minimum number of
letters needed to identify them uniquely. Thus Lst$coefficients
may be minimally specified as Lst$coe and Lst$covariance
as Lst$cov.
The vector of names is in fact simply an attribute of the list like any other and may be handled as such. Other structures besides lists may, of course, similarly be given a names attribute also.
New lists may be formed from existing objects by the function
list(). An assignment of the form
> Lst <- list(name_1=object_1, ..., name_m=object_m)
sets up a list Lst of m components using object_1,
..., object_m for the components and giving them names as
specified by the argument names, (which can be freely chosen). If these
names are omitted, the components are numbered only. The components
used to form the list are copied when forming the new list and
the originals are not affected.
Lists, like any subscripted object, can be extended by specifying additional components. For example
> Lst[5] <- list(matrix=Mat)
When the concatenation function c() is given list arguments, the
result is an object of mode list also, whose components are those of the
argument lists joined together in sequence.
> list.ABC <- c(list.A, list.B, list.C)
Recall that with vector objects as arguments the concatenation function
similarly joined together all arguments into a single vector structure.
In this case all other attributes, such as dim attributes, are
discarded.
A data frame is a list with class "data.frame". There are
restrictions on lists that may be made into data frames, namely
A data frame may for many purposes be regarded as a matrix with columns possibly of differing modes and attributes. It may be displayed in matrix form, and its rows and columns extracted using matrix indexing conventions.
Objects satisfying the restrictions placed on the columns (components)
of a data frame may be used to form one using the function
data.frame:
> accountants <- data.frame(home=statef, loot=income, shot=incomef)
A list whose components conform to the restrictions of a data frame may
be coerced into a data frame using the function
as.data.frame()
The simplest way to construct a data frame from scratch is to use the
read.table() function to read an entire data frame from an
external file. This is discussed further in Reading data from files.
attach() and detach()The $ notation, such as accountants$statef, for list
components is not always very convenient. A useful facility would be
somehow to make the components of a list or data frame temporarily
visible as variables under their component name, without the need to
quote the list name explicitly each time.
The attach() function, as well as having a directory name as its
argument, may also have a data frame. Thus suppose lentils is a
data frame with three variables lentils$u, lentils$v,
lentils$w. The attach
> attach(lentils)
places the data frame in the search path at position 2, and provided
there are no variables u, v or w in position 1,
u, v and w are available as variables from the data
frame in their own right. At this point an assignment such as
> u <- v+w
does not replace the component u of the data frame, but rather
masks it with another variable u in the working directory at
position 1 on the search path. To make a permanent change to the
data frame itself, the simplest way is to resort once again to the
$ notation:
> lentils$u <- v+w
However the new value of component u is not visible until the
data frame is detached and attached again.
To detach a data frame, use the function
> detach()
More precisely, this statement detaches from the search path the entity
currently at position 2. Thus in the present context the variables
u, v and w would be no longer visible, except under
the list notation as lentils$u and so on. Entities at positions
greater than 2 on the search path can be detached by giving their number
to detach, but it is much safer to always use a name, for example
by detach(lentils) or detach("lentils")
NOTE: With the current release of R the search path can contain at most 20 items. Avoid attaching the same data frame more than once. Always detach the data frame as soon as you have finished using its variables.
NOTE: With the current release of R lists and data frames can only be attached at position 2 or above. It is not possible to directly assign into an attached list or data frame (thus, to some extent they are static).
A useful convention that allows you to work with many different problems comfortably together in the same working directory is
$ form of assignment, and
then detach();
In this way it is quite simple to work with many problems in the same
directory, all of which have variables named x, y and
z, for example.
attach() is a generic function that allows not only directories
and data frames to be attached to the search path, but other classes of
object as well. In particular any object of mode "list" may be
attached in the same way:
> attach(any.old.list)
Anything that has been attached can be detached by detach, by
position number or, preferably, by name.
The function search shows the current search path and so is
a very useful way to keep track of which data frames and lists (and
packages) have been attached and detached. Initially it gives
> search() [1] ".GlobalEnv" "Autoloads" "package:base"
where .GlobalEnv is the workspace.14
After lentils is attached we have
> search() [1] ".GlobalEnv" "lentils" "Autoloads" "package:base" > ls(2) [1] "u" "v" "w"
and as we see ls (or objects) can be used to examine the
contents of any position on the search path.
Finally, we detach the data frame and confirm it has been removed from the search path.
> detach("lentils")
> search()
[1] ".GlobalEnv" "Autoloads" "package:base"
Large data objects will usually be read as values from external files rather than entered during an R session at the keyboard. R input facilities are simple and their requirements are fairly strict and even rather inflexible. There is a clear presumption by the designers of R that you will be able to modify your input files using other tools, such as file editors or Perl15 to fit in with the requirements of R. Generally this is very simple.
If variables are to be held mainly in data frames, as we strongly
suggest they should be, an entire data frame can be read directly with
the read.table() function. There is also a more primitive input
function, scan(), that can be called directly.
For more details on importing data into R and also exporting data, see the R Data Import/Export manual.
read.table() functionTo read an entire data frame directly, the external file will normally have a special form.
If the file has one fewer item in its first line than in its second, this arrangement is presumed to be in force. So the first few lines of a file to be read as a data frame might look as follows.
Input file form with names and row labels:
Price Floor Area Rooms Age Cent.heat
01 52.00 111.0 830 5 6.2 no
02 54.75 128.0 710 5 7.5 no
03 57.50 101.0 1000 5 4.2 no
04 57.50 131.0 690 6 8.8 no
05 59.75 93.0 900 5 1.9 yes
...
By default numeric items (except row labels) are read as numeric
variables and non-numeric variables, such as Cent.heat in the
example, as factors. This can be changed if necessary.
The function read.table() can then be used to read the data frame
directly
> HousePrice <- read.table("houses.data")
Often you will want to omit including the row labels directly and use the default labels. In this case the file may omit the row label column as in the following.
Input file form without row labels: Price Floor Area Rooms Age Cent.heat 52.00 111.0 830 5 6.2 no 54.75 128.0 710 5 7.5 no 57.50 101.0 1000 5 4.2 no 57.50 131.0 690 6 8.8 no 59.75 93.0 900 5 1.9 yes ...
The data frame may then be read as
> HousePrice <- read.table("houses.data", header=TRUE)
where the header=TRUE option specifies that the first line is a
line of headings, and hence, by implication from the form of the file,
that no explicit row labels are given.
scan() functionSuppose the data vectors are of equal length and are to be read in in
parallel. Further suppose that there are three vectors, the first of
mode character and the remaining two of mode numeric, and the file is
input.dat. The first step is to use scan() to read in the
three vectors as a list, as follows
> inp <- scan("input.dat", list("",0,0))
The second argument is a dummy list structure that establishes the mode
of the three vectors to be read. The result, held in inp, is a
list whose components are the three vectors read in. To separate the
data items into three separate vectors, use assignments like
> label <- inp[[1]]; x <- inp[[2]]; y <- inp[[3]]
More conveniently, the dummy list can have named components, in which case the names can be used to access the vectors read in. For example
> inp <- scan("input.dat", list(id="", x=0, y=0))
If you wish to access the variables separately they may either be re-assigned to variables in the working frame:
> label <- in$id; x <- in$x; y <- in$y
or the list may be attached at position 2 of the search path (see Attaching arbitrary lists).
If the second argument is a single value and not a list, a single vector is read in, all components of which must be of the same mode as the dummy value.
> X <- matrix(scan("light.dat", 0), ncol=5, byrow=TRUE)
There are more elaborate input facilities available and these are detailed in the manual.
Over fifty datasets are supplied with R, and others are available in
packages (including the standard packages supplied with R). Unlike
S-PLUS, these datasets have to be loaded explicitly, using the function
data. To see the list of datasets in the base system use
data()
and to load one of these use, for example,
data(infert)
In most cases this will load an R object of the same name, usually a data frame. However, in a few cases it loads several objects, so see the on-line help for the object to see what to expect.
To access data from another package, use the package argument,
for example
data(package="nls") data(Puromycin, package="nls")
If a package has been attached by library, its datasets are
automatically included in the search, so that
library(nls) data() data(Puromycin)
will list all the datasets in all the currently attached packages (at
least base and nls) and then load Puromycin from the
first package in which such a dataset is found.
User-contributed packages can be a rich source of datasets.
When invoked on a data frame or matrix, edit brings up a separate
spreadsheet-like environment for editing. This is useful for making
small changes once a data set has been read. The command
> xnew <- edit(xold)
will allow you to edit your data set xold, and on completion the
changed object is assigned to xnew.
Use
> xnew <- edit(data.frame())
to enter new data via the spreadsheet interface.
One convenient use of R is to provide a comprehensive set of statistical tables. Functions are provided to evaluate the cumulative distribution function P(X <= x), the probability density function and the quantile function (given q, the smallest x such that P(X <= x) > q), and to simulate from the distribution.
Distribution R name additional arguments beta betashape1, shape2, ncpbinomial binomsize, probCauchy cauchylocation, scalechi-squared chisqdf, ncpexponential exprateF fdf1, df1, ncpgamma gammashape, scalegeometric geomprobhypergeometric hyperm, n, klog-normal lnormmeanlog, sdloglogistic logislocation, scalenegative binomial nbinomsize, probnormal normmean, sdPoisson poislambdaStudent's t tdf, ncpuniform unifmin, maxWeibull weibullshape, scaleWilcoxon wilcoxm, n
Prefix the name given here by d for the density, p for the
CDF, q for the quantile function and r for simulation
(random deviates). The first argument is x for
dxxx, q for pxxx, p for
qxxx and n for rxxx (except for
rhyper and rwilcox, for which it is nn). The
non-centrality parameter ncp is currently only available for the
CDFs and a few other functions: see the on-line help for current
details.
The pxxx and qxxx functions all have logical
arguments lower.tail and log.p and the dxxx
ones have log. This allows, e.g., getting the cumulative (or
"integrated") hazard function, H(t) = - log(1 - F(t)), by
- pxxx(t, ..., lower.tail = FALSE, log.p = TRUE)
or more accurate log-likelihoods (by dxxx(..., log =
TRUE)), directly.
In addition there are functions ptukey and qtukey for the
distribution of the studentized range of samples from a normal
distribution.
Here are some examples
> ## 2-tailed p-value for t distribution > 2*pt(-2.43, df = 13) > ## upper 1% point for an F(2, 7) distribution > qf(0.99, 2, 7)
Given a (univariate) set of data we can examine its distribution in a
large number of ways. The simplest is to examine the numbers. Two
slightly different summaries are given by summary and
fivenum
and a display of the numbers by stem (a "stem and leaf" plot).
> data(faithful) > attach(faithful) > summary(eruptions) Min. 1st Qu. Median Mean 3rd Qu. Max. 1.600 2.163 4.000 3.488 4.454 5.100 > fivenum(eruptions) [1] 1.6000 2.1585 4.0000 4.4585 5.1000 > stem(eruptions) The decimal point is 1 digit(s) to the left of the | 16 | 070355555588 18 | 000022233333335577777777888822335777888 20 | 00002223378800035778 22 | 0002335578023578 24 | 00228 26 | 23 28 | 080 30 | 7 32 | 2337 34 | 250077 36 | 0000823577 38 | 2333335582225577 40 | 0000003357788888002233555577778 42 | 03335555778800233333555577778 44 | 02222335557780000000023333357778888 46 | 0000233357700000023578 48 | 00000022335800333 50 | 0370
A stem-and-leaf plot is like a histogram, and R has a function
hist to plot histograms.
> hist(eruptions) ## make the bins smaller, make a plot of density > hist(eruptions, seq(1.6, 5.2, 0.2), prob=TRUE) > lines(density(eruptions, bw=0.1)) > rug(eruptions) # show the actual data points
More elegant density plots can be made by density, and we added a
line produced by density in this example. The bandwidth
bw was chosen by trial-and-error as the default gives too much
smoothing (it usually does for "interesting" densities). (Automated
methods of bandwidth choice are implemented in packages MASS and
KernSmooth.)
We can plot the empirical cumulative distribution function by using
function ecdf in the standard package stepfun.
> library(stepfun) > plot(ecdf(eruptions), do.points=FALSE, verticals=TRUE)
This distribution is obviously far from any standard distribution. How about the right-hand mode, say eruptions of longer than 3 minutes? Let us fit a normal distribution and overlay the fitted CDF.
> long <- eruptions[eruptions > 3] > plot(ecdf(long), do.points=FALSE, verticals=TRUE) > x <- seq(3, 5.4, 0.01) > lines(x, pnorm(x, mean=mean(long), sd=sqrt(var(long))), lty=3)
Quantile-quantile (Q-Q) plots can help us examine this more carefully.
par(pty="s") qqnorm(long); qqline(long)
which shows a reasonable fit but a shorter right tail than one would expect from a normal distribution. Let us compare this with some simulated data from a t distribution
x <- rt(250, df = 5) qqnorm(x); qqline(x)
which will usually (it is a random sample) show longer tails than expected for a normal. We can make a Q-Q plot against the generating distribution by
qqplot(qt(ppoints(250), df=5), x, xlab="Q-Q plot for t dsn") qqline(x)
Finally, we might want a more formal test of agreement with normality (or not). Package ctest provides the Shapiro-Wilk test
> library(ctest)
> shapiro.test(long)
Shapiro-Wilk normality test
data: long
W = 0.9793, p-value = 0.01052
and the Kolmogorov-Smirnov test
> ks.test(long, "pnorm", mean=mean(long), sd=sqrt(var(long)))
One-sample Kolmogorov-Smirnov test
data: long
D = 0.0661, p-value = 0.4284
alternative hypothesis: two.sided
(Note that the distribution theory is not valid here as we have estimated the parameters of the normal distribution from the same sample.)
So far we have compared a single sample to a normal distribution. A
much more common operation is to compare aspects of two samples. Note
that in R, all "classical" tests including the ones used below are
in package ctest, which may need to be loaded explicitly using
library(ctest) to make the tests available.
Consider the following sets of data on the latent heat of the fusion of ice (cal/gm) from Rice (1995, p.490)
Method A: 79.98 80.04 80.02 80.04 80.03 80.03 80.04 79.97
80.05 80.03 80.02 80.00 80.02
Method B: 80.02 79.94 79.98 79.97 79.97 80.03 79.95 79.97
Boxplots provide a simple graphical comparison of the two samples.
A <- scan() 79.98 80.04 80.02 80.04 80.03 80.03 80.04 79.97 80.05 80.03 80.02 80.00 80.02 B <- scan() 80.02 79.94 79.98 79.97 79.97 80.03 79.95 79.97 boxplot(A, B)
which indicates that the first group tends to give higher results than the second.
To test for the equality of the means of the two examples, we can use an unpaired t-test by
> library(ctest)
> t.test(A, B)
Welch Two Sample t-test
data: A and B
t = 3.2499, df = 12.027, p-value = 0.00694
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
0.01385526 0.07018320
sample estimates:
mean of x mean of y
80.02077 79.97875
which does indicate a significant difference, assuming normality. By
default the R function does not assume equality of variances in the
two samples (in contrast to the similar S-PLUS t.test
function). We can use the F test to test for equality in the variances,
provided that the two samples are from normal populations.
> var.test(A, B)
F test to compare two variances
data: A and B
F = 0.5837, num df = 12, denom df = 7, p-value = 0.3938
alternative hypothesis: true ratio of variances is not equal to 1
95 percent confidence interval:
0.1251097 2.1052687
sample estimates:
ratio of variances
0.5837405
which shows no evidence of a significant difference, and so we can use the classical t-test that assumes equality of the variances.
> t.test(A, B, var.equal=TRUE)
Two Sample t-test
data: A and B
t = 3.4722, df = 19, p-value = 0.002551
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
0.01669058 0.06734788
sample estimates:
mean of x mean of y
80.02077 79.97875
All these tests assume normality of the two samples. The two-sample Wilcoxon (or Mann-Whitney) test only assumes a common continuous distribution under the null hypothesis.
> wilcox.test(A, B)
Wilcoxon rank sum test with continuity correction
data: A and B
W = 89, p-value = 0.007497
alternative hypothesis: true mu is not equal to 0
Warning message:
Cannot compute exact p-value with ties in: wilcox.test(A, B)
Note the warning: there are several ties in each sample, which suggests strongly that these data are from a discrete distribution (probably due to rounding).
There are several ways to compare graphically the two samples. We have already seen a pair of boxplots. The following
> library(stepfun) > plot(ecdf(A), do.points=FALSE, verticals=TRUE, xlim=range(A, B)) > plot(ecdf(B), do.points=FALSE, verticals=TRUE, add=TRUE)
will show the two empirical CDFs, and qqplot will perform a Q-Q
plot of the two samples. The Kolmogorov-Smirnov test is of the maximal
vertical distance between the two ecdf's, assuming a common continuous
distribution:
> ks.test(A, B)
Two-sample Kolmogorov-Smirnov test
data: A and B
D = 0.5962, p-value = 0.05919
alternative hypothesis: two.sided
Warning message:
cannot compute correct p-values with ties in: ks.test(A, B)
R is an expression language in the sense that its only command type is a function or expression which returns a result. Even an assignment is an expression whose result is the value assigned, and it may be used wherever any expression may be used; in particular multiple assignments are possible.
Commands may be grouped together in braces, {expr_1;
...; expr_m}, in which case the value of the group
is the result of the last expression in the group evaluated. Since such
a group is also an expression it may, for example, be itself included in
parentheses and used a part of an even larger expression, and so on.
if statementsThe language has available a conditional construction of the form
> if (expr_1) expr_2 else expr_3
where expr_1 must evaluate to a logical value and the result of the entire expression is then evident.
The "short-circuit" operators && and || are often used
as the condition in an if statement. Whereas & and
| apply element-wise to vectors, && and || apply to
vectors of length one, and only evaluate their second argument if
necessary.
There is a vectorized version of the if/else construct,
the ifelse function. This has the form ifelse(condition, a,
b) and returns a vector of the length of its longest argument, with
elements a[i] if condition[i] is true, otherwise
b[i].
for loops, repeat and whileThere is also a for loop construction which has the form
> for (name in expr_1) expr_2
where name is the loop variable. expr_1 is a
vector expression, (often a sequence like 1:20), and
expr_2 is often a grouped expression with its sub-expressions
written in terms of the dummy name. expr_2 is repeatedly
evaluated as name ranges through the values in the vector result
of expr_1.
As an example, suppose ind is a vector of class indicators and we
wish to produce separate plots of y versus x within
classes. One possibility here is to use coplot() to be discussed
later, which will produce an array of plots corresponding to each level
of the factor. Another way to do this, now putting all plots on the one
display, is as follows:
> xc <- split(x, ind)
> yc <- split(y, ind)
> for (i in 1:length(yc)) {
plot(xc[[i]], yc[[i]]);
abline(lsfit(xc[[i]], yc[[i]]))
}
(Note the function split() which produces a list of vectors got
by splitting a larger vector according to the classes specified by a
category. This is a useful function, mostly used in connection with
boxplots. See the help facility for further details.)
WARNING: for() loops are used in R code much less
often than in compiled languages. Code that takes a `whole object' view
is likely to be both clearer and faster in R.
Other looping facilities include the
> repeat expr
statement and the
> while (condition) expr
statement.
The break statement can be used to terminate any loop, possibly
abnormally. This is the only way to terminate repeat loops.
The next statement can be used to discontinue one particular
cycle and skip to the "next".
Control statements are most often used in connection with functions which are discussed in Writing your own functions, and where more examples will emerge.
As we have seen informally along the way, the R language allows the user to create objects of mode function. These are true R functions that are stored in a special internal form and may be used in further expressions and so on. In the process, the language gains enormously in power, convenience and elegance, and learning to write useful functions is one of the main ways to make your use of R comfortable and productive.
It should be emphasized that most of the functions supplied as part of
the R system, such as mean(), var(),
postscript() and so on, are themselves written in R and thus
do not differ materially from user written functions.
A function is defined by an assignment of the form
> name <- function(arg_1, arg_2, ...) expression
The expression is an R expression, (usually a grouped expression), that uses the arguments, arg_i, to calculate a value. The value of the expression is the value returned for the function.
A call to the function then usually takes the form
name(expr_1, expr_2, ...) and may occur
anywhere a function call is legitimate.
As a first example, consider a function to calculate the two sample t-statistic, showing "all the steps". This is an artificial example, of course, since there are other, simpler ways of achieving the same end.
The function is defined as follows:
> twosam <- function(y1, y2) {
n1 <- length(y1); n2 <- length(y2)
yb1 <- mean(y1); yb2 <- mean(y2)
s1 <- var(y1); s2 <- var(y2)
s <- ((n1-1)*s1 + (n2-1)*s2)/(n1+n2-2)
tst <- (yb1 - yb2)/sqrt(s2*(1/n1 + 1/n2))
tst
}
With this function defined, you could perform two sample t-tests using a call such as
> tstat <- twosam(data$male, data$female); tstat
As a second example, consider a function to emulate directly the
MATLAB backslash command, which returns the coefficients of the
orthogonal projection of the vector y onto the column space of
the matrix, X. (This is ordinarily called the least squares
estimates of the regression coefficients.) This would ordinarily be
done with the qr() function; however this is sometimes a bit
tricky to use directly and it pays to have a simple function such as the
following to use it safely.
Thus given a n by 1 vector y and an n by p matrix X then X \ y is defined as (X'X)^{-}X'y, where (X'X)^{-} is a generalized inverse of X'X.
> bslash <- function(X, y) {
X <- qr(X)
qr.coef(X, y)
}
After this object is created it is permanent, like all objects, and may be used in statements such as
> regcoeff <- bslash(Xmat, yvar)
and so on.
The classical R function lsfit() does this job quite well, and
more16. It in turn uses the functions qr() and qr.coef()
in the slightly counterintuitive way above to do this part of the
calculation. Hence there is probably some value in having just this
part isolated in a simple to use function if it is going to be in
frequent use. If so, we may wish to make it a matrix binary operator
for even more convenient use.
Had we given the bslash() function a different name, namely one of
the form
%anything%
it could have been used as a binary operator in expressions
rather than in function form. Suppose, for example, we choose !
for the internal character. The function definition would then start as
> "%!%" <- function(X, y) { ... }
(Note the use of quote marks.) The function could then be used as
X %!% y. (The backslash symbol itself is not a convenient choice
as it presents special problems in this context.)
The matrix multiplication operator, %*%, and the outer product
matrix operator %o% are other examples of binary operators
defined in this way.
As first noted in Generating regular sequences, if arguments to
called functions are given in the "name=object"
form, they may be given in any order. Furthermore the argument sequence
may begin in the unnamed, positional form, and specify named arguments
after the positional arguments.
Thus if there is a function fun1 defined by
> fun1 <- function(data, data.frame, graph, limit) {
[function body omitted]
}
then the function may be invoked in several ways, for example
> ans <- fun1(d, df, TRUE, 20) > ans <- fun1(d, df, graph=TRUE, limit=20) > ans <- fun1(data=d, limit=20, graph=TRUE, data.frame=df)
are all equivalent.
In many cases arguments can be given commonly appropriate default
values, in which case they may be omitted altogether from the call when
the defaults are appropriate. For example, if fun1 were defined
as
> fun1 <- function(data, data.frame, graph=TRUE, limit=20) { ... }
it could be called as
> ans <- fun1(d, df)
which is now equivalent to the three cases above, or as
> ans <- fun1(d, df, limit=10)
which changes one of the defaults.
It is important to note that defaults may be arbitrary expressions, even involving other arguments to the same function; they are not restricted to be constants as in our simple example here.
... argumentAnother frequent requirement is to allow one function to pass on
argument settings to another. For example many graphics functions use
the function par() and functions like plot() allow the
user to pass on graphical parameters to par() to control the
graphical output. (See The par() function, for more details on the
par() function.) This can be done by including an extra
argument, literally ..., of the function, which may then be
passed on. An outline example is given in the example below.
fun1 <- function(data, data.frame, graph=TRUE, limit=20, ...) {
[omitted statements]
if (graph)
par(pch="*", ...)
[more omissions]
}
Note that any ordinary assignments done within the function are
local and temporary and are lost after exit from the function. Thus
the assignment X <- qr(X) does not affect the value of the
argument in the calling program.
To understand completely the rules governing the scope of R assignments the reader needs to be familiar with the notion of an evaluation frame. This is a somewhat advanced, though hardly difficult, topic and is not covered further here.
If global and permanent assignments are intended within a function, then
either the "superassignment" operator, <<- or the function
assign() can be used. See the help document for details.
S-PLUS users should be aware that <<- has different semantics
in R. These are discussed further in Scope.
As a more complete, if a little pedestrian, example of a function, consider finding the efficiency factors for a block design. (Some aspects of this problem have already been discussed in Index arrays.)
A block design is defined by two factors, say blocks (b
levels) and varieties (v levels). If R and
K are the v by v and b by b
replications and block size matrices, respectively, and
N is the b by v incidence matrix, then the
efficiency factors are defined as the eigenvalues of the matrix
E = I_v - R^{-1/2}N'K^{-1}NR^{-1/2} = I_v - A'A, where
A = K^{-1/2}NR^{-1/2}
One way to write the function is given below.
> bdeff <- function(blocks, varieties) {
blocks <- as.factor(blocks) # minor safety move
b <- length(levels(blocks))
varieties <- as.factor(varieties) # minor safety move
v <- length(levels(varieties))
K <- as.vector(table(blocks)) # remove dim attr
R <- as.vector(table(varieties)) # remove dim attr
N <- table(blocks, varieties)
A <- 1/sqrt(K) * N * rep(1/sqrt(R), rep(b, v))
sv <- svd(A)
list(eff=1 - sv$d^2, blockcv=sv$u, varietycv=sv$v)
}
It is numerically slightly better to work with the singular value decomposition on this occasion rather than the eigenvalue routines.
The result of the function is a list giving not only the efficiency factors as the first component, but also the block and variety canonical contrasts, since sometimes these give additional useful qualitative information.
For printing purposes with large matrices or arrays, it is often useful
to print them in close block form without the array names or numbers.
Removing the dimnames attribute will not achieve this effect, but
rather the array must be given a dimnames attribute consisting of
empty strings. For example to print a matrix, X
> temp <- X
> dimnames(temp) <- list(rep("", nrow(X)), rep("", ncol(X))
> temp; rm(temp)
This can be much more conveniently done using a function,
no.dimnames(), shown below, as a "wrap around" to achieve the
same result. It also illustrates how some effective and useful user
functions can be quite short.
no.dimnames <- function(a) {
## Remove all dimension names from an array for compact printing.
d <- list()
l <- 0
for(i in dim(a)) {
d[[l <- l + 1]] <- rep("", i)
}
dimnames(a) <- d
a
}
With this function defined, an array may be printed in close format using
> no.dimnames(X)
This is particularly useful for large integer arrays, where patterns are the real interest rather than the values.
Functions may be recursive, and may themselves define functions within themselves. Note, however, that such functions, or indeed variables, are not inherited by called functions in higher evaluation frames as they would be if they were on the search path.
The example below shows a naive way of performing one dimensional numerical integration. The integrand is evaluated at the end points of the range and in the middle. If the one-panel trapezium rule answer is close enough to the two panel, then the latter is returned as the value. Otherwise the same process is recursively applied to each panel. The result is an adaptive integration process that concentrates function evaluations in regions where the integrand is farthest from linear. There is, however, a heavy overhead, and the function is only competitive with other algorithms when the integrand is both smooth and very difficult to evaluate.
The example is also given partly as a little puzzle in R programming.
area <- function(f, a, b, eps = 1.0e-06, lim = 10) {
fun1 <- function(f, a, b, fa, fb, a0, eps, lim, fun) {
## function `fun1' is only visible inside `area'
d <- (a + b)/2
h <- (b - a)/4
fd <- f(d)
a1 <- h * (fa + fd)
a2 <- h * (fd + fb)
if(abs(a0 - a1 - a2) < eps || lim == 0)
return(a1 + a2)
else {
return(fun(f, a, d, fa, fd, a1, eps, lim - 1, fun) +
fun(f, d, b, fd, fb, a2, eps, lim - 1, fun))
}
}
fa <- f(a)
fb <- f(b)
a0 <- ((fa + fb) * (b - a))/2
fun1(f, a, b, fa, fb, a0, eps, lim, fun1)
}
The discussion in this section is somewhat more technical than in other parts of this document. However, it details one of the major differences between S-PLUS and R.
The symbols which occur in the body of a function can be divided into three classes; formal parameters, local variables and free variables. The formal parameters of a function are those occurring in the argument list of the function. Their values are determined by the process of binding the actual function arguments to the formal parameters. Local variables are those whose values are determined by the evaluation of expressions in the body of the functions. Variables which are not formal parameters or local variables are called free variables. Free variables become local variables if they are assigned to. Consider the following function definition.
f <- function(x) {
y <- 2*x
print(x)
print(y)
print(z)
}
In this function, x is a formal parameter, y is a local
variable and z is a free variable.
In R the free variable bindings are resolved by first looking in the
environment in which the function was created. This is called
lexical scope. First we define a function called cube.
cube <- function(n) {
sq <- function() n*n
n*sq()
}
The variable n in the function sq is not an argument to that
function. Therefore it is a free variable and the scoping rules must be
used to ascertain the value that is to be associated with it. Under static
scope (S-PLUS) the value is that associated with a global variable named
n. Under lexical scope (R) it is the parameter to the function
cube since that is the active binding for the variable n at
the time the function sq was defined. The difference between
evaluation in R and evaluation in S-PLUS is that S-PLUS looks for a
global variable called n while R first looks for a variable
called n in the environment created when cube was invoked.
## first evaluation in S S> cube(2) Error in sq(): Object "n" not found Dumped S> n <- 3 S> cube(2) [1] 18 ## then the same function evaluated in R R> cube(2) [1] 8
Lexical scope can also be used to give functions mutable state.
In the following example we show how R can be used to mimic a bank
account. A functioning bank account needs to have a balance or total, a
function for making withdrawals, a function for making deposits and a
function for stating the current balance. We achieve this by creating
the three functions within account and then returning a list
containing them. When account is invoked it takes a numerical
argument total and returns a list containing the three functions.
Because these functions are defined in an environment which contains
total, they will have access to its value.
The special assignment operator, <<-,
is used to change the value associated with total. This operator
looks back in enclosing environments for an environment that contains
the symbol total and when it finds such an environment it
replaces the value, in that environment, with the value of right hand
side. If the global or top-level environment is reached without finding
the symbol total then that variable is created and assigned to
there. For most users <<- creates a global variable and assigns
the value of the right hand side to it17. Only when <<- has
been used in a function that was returned as the value of another
function will the special behavior described here occur.
open.account <- function(total) {
list(
deposit = function(amount) {
if(amount <= 0)
stop("Deposits must be positive!\n")
total <<- total + amount
cat(amount, "deposited. Your balance is", total, "\n\n")
},
withdraw = function(amount) {
if(amount > total)
stop("You don't have that much money!\n")
total <<- total - amount
cat(amount, "withdrawn. Your balance is", total, "\n\n")
},
balance = function() {
cat("Your balance is", total, "\n\n")
}
)
}
ross <- open.account(100)
robert <- open.account(200)
ross$withdraw(30)
ross$balance()
robert$balance()
ross$deposit(50)
ross$balance()
ross$withdraw(500)
Users can customize their environment in several different ways. There
is a site initialization file and every directory can have its own
special initialization file. Finally, the special functions
.First and .Last can be used.
The location of the site initialization file is taken from the value of
the R_PROFILE environment variable. If that variable is unset,
file Rprofile.site in the R home subdirectory etc is
used. This file should contain the commands that you want to execute
every time R is started under your system. A second, personal,
profile file named .Rprofile18 can be placed in any directory. If R is invoked in that
directory then that file will be sourced. This file gives individual
users control over their workspace and allows for different startup
procedures in different working directories. If no .Rprofile
file is found in the startup directory, than R looks for a
.Rprofile file in the user's home directory and uses that (if it
exists).
Any function named .First() in either of the two profile files or
in the .RData image has a special status. It is automatically
performed at the beginning of an R session and may be used to
initialize the environment. For example, the definition in the example
below alters the prompt to $ and sets up various other useful
things that can then be taken for granted in the rest of the session.
Thus, the sequence in which files are executed is, Rprofile.site,
.Rprofile, .RData and then .First(). A definition
in later files will mask definitions in earlier files.
> .First <- function() {
options(prompt="$ ", continue="+\t") # $ is the prompt
options(digits=5, length=999) # custom numbers and printout
x11() # for graphics
par(pch = "+") # plotting character
source(file.path(Sys.getenv("HOME"), "R", "mystuff.R"))
# my personal package
library(stepfun) # attach the step function tools
}
Similarly a function .Last(), if defined, is executed at the very end
of the session. An example is given below.
> .Last <- function() {
graphics.off() # a small safety measure.
cat(paste(date(),"\nAdios\n")) # Is it time for lunch?
}
The class of an object determines how it will be treated by what are known as generic functions. Put the other way round, a generic function performs a task or action on its arguments specific to the class of the argument itself. If the argument lacks any class attribute, or has a class not catered for specifically by the generic function in question, there is always a default action provided.
An example makes things clearer. The class mechanism offers the user
the facility of designing and writing generic functions for special
purposes. Among the other generic functions are plot() for
displaying objects graphically, summary() for summarizing
analyses of various types, and anova() for comparing statistical
models.
The number of generic functions that can treat a class in a specific way
can be quite large. For example, the functions that can accommodate in
some fashion objects of class "data.frame" include
[ [[<- any as.matrix [<- model plot summary
A currently complete list can be got by using the methods()
function:
> methods(class="data.frame")
Conversely the number of classes a generic function can handle can also
be quite large. For example the plot() function has a default
method and variants for objects of classes "data.frame",
"density", "factor", and more. A complete list can be got
again by using the methods() function:
> methods(plot)
The reader is referred to the official references for a complete discussion of this mechanism.
This section presumes the reader has some familiarity with statistical methodology, in particular with regression analysis and the analysis of variance. Later we make some rather more ambitious presumptions, namely that something is known about generalized linear models and nonlinear regression.
The requirements for fitting statistical models are sufficiently well defined to make it possible to construct general tools that apply in a broad spectrum of problems.
R provides an interlocking suite of facilities that make fitting statistical models very simple. As we mention in the introduction, the basic output is minimal, and one needs to ask for the details by calling extractor functions.
The template for a statistical model is a linear regression model with independent, homoscedastic errors
y_i = sum_{j=0}^p beta_j x_{ij} + e_i, i = 1, ... n,
where the e_i are NID(0, sigma^2)
In matrix terms this would be written
y = X beta + e Before giving a formal specification, a few examples may usefully set the picture.
Suppose y, x, x0, x1, x2, ... are
numeric variables, X is a matrix and A, B,
C, ... are factors. The following formulae on the left
side below specify statistical models as described on the right.
y ~ x
y ~ 1 + x
y ~ 0 + x
y ~ -1 + x
y ~ x - 1
log(y) ~ x1 + x2
y ~ poly(x,2)
y ~ 1 + x + I(x^2)
y ~ X + poly(x,2)
y ~ A
y ~ A + x
y ~ A*B
y ~ A + B + A:B
y ~ B %in% A
y ~ A/B
y ~ (A + B + C)^2
y ~ A*B*C - A:B:C
y ~ A * x
y ~ A/x
y ~ A/(1 + x) - 1
y ~ A*B + Error(C)
The operator ~ is used to define a model formula in R.
The form, for an ordinary linear model, is
response ~ op_1 term_1 op_2 term_2 op_3 term_3 ...
where
+ or -, implying the inclusion or
exclusion of a term in the model, (the first is optional).
1,
1 stands for an
intercept column and is by default included in the model matrix unless
explicitly removed.
The formula operators are similar in effect to the Wilkinson and
Rogers notation used by such programs as Glim and Genstat. One
inevitable change is that the operator .:
The notation is summarized below (based on Chambers & Hastie, 1992, p.29):
Y ~ M
M_1 + M_2
M_1 - M_2
M_1 : M_2
M_1 %in% M_2
M_1:M_2, but with a different coding.
M_1 * M_2
M_1 + M_2 + M_1:M_2.
M_1 / M_2
M_1 + M_2 %in% M_1.
M^n
I(M)
Note that inside the parentheses that usually enclose function arguments
all operators have their normal arithmetic meaning. The function
I() is an identity function used only to allow terms in model
formulae to be defined using arithmetic operators.
Note particularly that the model formulae specify the columns of the model matrix, the specification of the parameters being implicit. This is not the case in other contexts, for example in specifying nonlinear models.
We need at least some idea how the model formulae specify the columns of the model matrix. This is easy if we have continuous variables, as each provides one column of the model matrix (and the intercept will provide a column of ones if included in the model).
What about a k-level factor A? The answer differs for
unordered and ordered factors. For unordered factors k -
1 columns are generated for the indicators of the second, ...,
kth levels of the factor. (Thus the implicit parameterization is
to contrast the response at each level with that at the first.) For
ordered factors the k - 1 columns are the orthogonal
polynomials on 1, ..., k, omitting the constant term.
Although the answer is already complicated, it is not the whole story.
First, if the intercept is omitted in a model that contains a factor
term, the first such term is encoded into k columns giving the
indicators for all the levels. Second, the whole behavior can be
changed by the options setting for contrasts. The default
setting in R is
options(contrasts = c("contr.treatment", "contr.poly"))
The main reason for mentioning this is that R and S have different defaults for unordered factors, S using Helmert contrasts. So if you need to compare your results to those of a textbook or paper which used S-PLUS, you will need to set
options(contrasts = c("contr.helmert", "contr.poly"))
This is a deliberate difference, as treatment contrasts (R's default) are thought easier for newcomers to interpret.
We have still not finished, as the contrast scheme to be used can be set
for each term in the model using the functions contrasts and
C.
We have not yet considered interaction terms: these generate the products of the columns introduced for their component terms.
Although the details are complicated, model formulae in R will normally generate the models that an expert statistician would expect, provided that marginality is preserved. Fitting, for example, model with interaction but not the corresponding main effects will in general lead to surprising results, and is for experts only.
The basic function for fitting ordinary multiple models is lm(),
and a streamlined version of the call is as follows:
> fitted.model <- lm(formula, data = data.frame)
For example
> fm2 <- lm(y ~ x1 + x2, data = production)
would fit a multiple regression model of y on x1 and x2 (with implicit intercept term).
The important but technically optional parameter data =
production specifies that any variables needed to construct the model
should come first from the production data frame.
This is the case regardless of whether data frame
production has been attached on the search path or not.
The value of lm() is a fitted model object; technically a list of
results of class "lm". Information about the fitted model can
then be displayed, extracted, plotted and so on by using generic
functions that orient themselves to objects of class "lm". These
include
add1 coef effects kappa predict residuals alias deviance family labels print step anova drop1 formula plot proj summary
A brief description of the most commonly used ones is given below.
anova(object_1, object_2)
coefficients(object)
Short form: coef(object).
deviance(object)
formula(object)
plot(object)
predict(object, newdata=data.frame)
print(object)
residuals(object)
Short form: resid(object).
step(object)
summary(object)
The model fitting function aov(
operates at the simplest level in a very similar way to the function
formula,
data=data.frame)lm(), and most of the generic functions listed in the table in
Generic functions for extracting model information apply.
It should be noted that in addition aov() allows an analysis of
models with multiple error strata such as split plot experiments, or
balanced incomplete block designs with recovery of inter-block
information. The model formula
response ~ mean.formula + Error(strata.formula)
specifies a multi-stratum experiment with error strata defined by the strata.formula. In the simplest case, strata.formula is simply a factor, when it defines a two strata experiment, namely between and within the levels of the factor.
For example, with all determining variables factors, a model formula such as that in:
> fm <- aov(yield ~ v + n*p*k + Error(farms/blocks), data=farm.data)
would typically be used to describe an experiment with mean model
v + n*p*k and three error strata, namely "between farms",
"within farms, between blocks" and "within blocks".
Note also that the analysis of variance table (or tables) are for a sequence of fitted models. The sums of squares shown are the decrease in the residual sums of squares resulting from an inclusion of that term in the model at that place in the sequence. Hence only for orthogonal experiments will the order of inclusion be inconsequential.
For multistratum experiments the procedure is first to project the response onto the error strata, again in sequence, and to fit the mean model to each projection. For further details, see Chambers & Hastie (1992).
A more flexible alternative to the default full ANOVA table is to
compare two or more models directly using the anova() function.
> anova(fitted.model.1, fitted.model.2, ...)
The display is then an ANOVA table showing the differences between the fitted models when fitted in sequence. The fitted models being compared would usually be an hierarchical sequence, of course. This does not give different information to the default, but rather makes it easier to comprehend and control.
The update() function is largely a convenience function that
allows a model to be fitted that differs from one previously fitted
usually by just a few additional or removed terms. Its form is
> new.model <- update(old.model, new.formula)
In the new.formula the special name consisting of a period,
.
> fm05 <- lm(y ~ x1 + x2 + x3 + x4 + x5, data = production) > fm6 <- update(fm05, . ~ . + x6) > smf6 <- update(fm6, sqrt(.) ~ .)
would fit a five variate multiple regression with variables (presumably)
from the data frame production, fit an additional model including
a sixth regressor variable, and fit a variant on the model where the
response had a square root transform applied.
Note especially that if the data= argument is specified on the
original call to the model fitting function, this information is passed on
through the fitted model object to update() and its allies.
The name . can also be used in other contexts, but with slightly
different meaning. For example
> fmfull <- lm(y ~ . , data = production)
would fit a model with response y and regressor variables
all other variables in the data frame production.
Other functions for exploring incremental sequences of models are
add1(), drop1() and step().
The names of these give a good clue to their purpose, but for full
details see the on-line help.
Generalized linear modeling is a development of linear models to accommodate both non-normal response distributions and transformations to linearity in a clean and straightforward way. A generalized linear model may be described in terms of the following sequence of assumptions:
eta = beta_1 x_1 + beta_2 x_2 + ... + beta_p x_p,hence x_i has no influence on the distribution of y if and only if beta_i is zero.
f_Y(y; mu, phi) = exp((A/phi) * (y lambda(mu) - gamma(lambda(mu))) + tau(y, phi))where phi is a scale parameter (possibly known), and is constant for all observations, A represents a prior weight, assumed known but possibly varying with the observations, and $\mu$ is the mean of y. So it is assumed that the distribution of y is determined by its mean and possibly a scale parameter as well.
mu = m(eta), eta = m^{-1}(mu) = ell(mu)
and this inverse function, ell(), is called the link function.
These assumptions are loose enough to encompass a wide class of models useful in statistical practice, but tight enough to allow the development of a unified methodology of estimation and inference, at least approximately. The reader is referred to any of the current reference works on the subject for full details, such as McCullagh & Nelder (1989) or Dobson (1990).
The class of generalized linear models handled by facilities supplied in R includes gaussian, binomial, poisson, inverse gaussian and gamma response distributions and also quasi-likelihood models where the response distribution is not explicitly specified. In the latter case the variance function must be specified as a function of the mean, but in other cases this function is implied by the response distribution.
Each response distribution admits a variety of link functions to connect the mean with the linear predictor. Those automatically available are as in the table below.
Family name Link functions binomiallogit,probit,clogloggaussianidentityGammaidentity,inverse,loginverse.gaussian1/mu^2poissonidentity,log,sqrtquasilogit,probit,cloglog,identity,inverse,log,1/mu^2,sqrt
The combination of a response distribution, a link function and various other pieces of information that are needed to carry out the modeling exercise is called the family of the generalized linear model.
glm() functionSince the distribution of the response depends on the stimulus variables through a single linear function only, the same mechanism as was used for linear models can still be used to specify the linear part of a generalized model. The family has to be specified in a different way.
The R function to fit a generalized linear model is glm()
which uses the form
> fitted.model <- glm(formula, family=family.generator, data=data.frame)
The only new feature is the family.generator, which is the instrument by which the family is described. It is the name of a function that generates a list of functions and expressions that together define and control the model and estimation process. Although this may seem a little complicated at first sight, its use is quite simple.
The names of the standard, supplied family generators are given under
"Family Name" in the table in Families. Where there is a choice
of links, the name of the link may also be supplied with the family
name, in parentheses as a parameter. In the case of the quasi
family, the variance function may also be specified in this way.
Some examples make the process clear.
gaussian familyA call such as
> fm <- glm(y ~ x1 + x2, family = gaussian, data = sales)
achieves the same result as
> fm <- lm(y ~ x1+x2, data=sales)
but much less efficiently. Note how the gaussian family is not
automatically provided with a choice of links, so no parameter is
allowed. If a problem requires a gaussian family with a nonstandard
link, this can usually be achieved through the quasi family, as
we shall see later.
binomial familyConsider a small, artificial example, from Silvey (1970).
On the Aegean island of Kalythos the male inhabitants suffer from a congenital eye disease, the effects of which become more marked with increasing age. Samples of islander males of various ages were tested for blindness and the results recorded. The data is shown below:
| Age: | 20 | 35 | 45 | 55 | 70
|
| No. tested: | 50 | 50 | 50 | 50 | 50
|
| No. blind: | 6 | 17 | 26 | 37 | 44
|
The problem we consider is to fit both logistic and probit models to this data, and to estimate for each model the LD50, that is the age at which the chance of blindness for a male inhabitant is 50%.
If y is the number of blind at age x and n the number tested, both models have the form y ~ B(n, F(beta_0 + beta_1 x)) where for the probit case, F(z) = Phi(z) is the standard normal distribution function, and in the logit case (the default), F(z) = e^z/(1+e^z). In both cases the LD50 is LD50 = - beta_0/beta_1 that is, the point at which the argument of the distribution function is zero.
The first step is to set the data up as a data frame
> kalythos <- data.frame(x = c(20,35,45,55,70), n = rep(50,5),
y = c(6,17,26,37,44))
To fit a binomial model using glm() there are two possibilities
for the response:
Here we need the second of these conventions, so we add a matrix to our data frame:
> kalythos$Ymat <- cbind(kalythos$y, kalythos$n - kalythos$y)
To fit the models we use
> fmp <- glm(Ymat ~ x, family = binomial(link=probit), data = kalythos) > fml <- glm(Ymat ~ x, family = binomial, data = kalythos)
Since the logit link is the default the parameter may be omitted on the second call. To see the results of each fit we could use
> summary(fmp) > summary(fml)
Both models fit (all too) well. To find the LD50 estimate we can use a simple function:
> ld50 <- function(b) -b[1]/b[2] > ldp <- ld50(coef(fmp)); ldl <- ld50(coef(fml)); c(ldp, ldl)
The actual estimates from this data are 43.663 years and 43.601 years respectively.
With the Poisson family the default link is the log, and in
practice the major use of this family is to fit surrogate Poisson
log-linear models to frequency data, whose actual distribution is often
multinomial. This is a large and important subject we will not discuss
further here. It even forms a major part of the use of non-gaussian
generalized models overall.
Occasionally genuinely Poisson data arises in practice and in the past it was often analyzed as gaussian data after either a log or a square-root transformation. As a graceful alternative to the latter, a Poisson generalized linear model may be fitted as in the following example:
> fmod <- glm(y ~ A + B + x, family = poisson(link=sqrt),
data = worm.counts)
For all families the variance of the response will depend on the mean and will have the scale parameter as a multiplier. The form of dependence of the variance on the mean is a characteristic of the response distribution; for example for the poisson distribution Var(y) = mu.
For quasi-likelihood estimation and inference the precise response distribution is not specified, but rather only a link function and the form of the variance function as it depends on the mean. Since quasi-likelihood estimation uses formally identical techniques to those for the gaussian distribution, this family provides a way of fitting gaussian models with non-standard link functions or variance functions, incidentally.
For example, consider fitting the non-linear regression y = theta_1 z_1 / (z_2 - theta_2) + e which may be written alternatively as y = 1 / (beta_1 x_1 + beta_2 x_2) + e where x_1 = z_2/z_1, x_2 = -1/x_1, beta_1 = 1/theta_1, and beta_2 = theta_2/theta_1. Supposing a suitable data frame to be set up we could fit this non-linear regression as
> nlfit <- glm(y ~ x1 + x2 - 1,
family = quasi(link=inverse, variance=constant),
data = biochem)
The reader is referred to the manual and the help document for further information, as needed.
Certain forms of nonlinear model can be fitted by Generalized Linear
Models (glm()). But in the majority of cases we have to approach
the nonlinear curve fitting problem as one of nonlinear optimization.
R's nonlinear optimization routine is nlm(),
which takes the place of S-PLUS's ms() and nlmin(). We
seek the parameter values that minimize some index of lack-of-fit, and
nlm() does that by trying out various parameter values
iteratively. Unlike linear regression for example, there is no
guarantee that the procedure will converge on satisfactory estimates.
nlm() requires initial guesses about what parameter values to
try, and convergence depends critically upon the quality of the initial
guesses.
One way to fit a nonlinear model is by minimizing the sum of the squared errors (SSE) or residuals. This method makes sense if the observed errors could have plausibly arisen from a normal distribution.
Here is an example from Bates & Watts (1988), page 51. The data are:
> x <- c(0.02, 0.02, 0.06, 0.06, 0.11, 0.11, 0.22, 0.22, 0.56, 0.56,
1.10, 1.10)
> y <- c(76, 47, 97, 107, 123, 139, 159, 152, 191, 201, 207, 200)
The model to be fitted is:
> fn <- function(p) sum((y - (p[1] * x)/(p[2] + x))^2)
In order to do the fit we need initial estimates of the parameters. One way to find sensible starting values is to plot the data, guess some parameter values, and superimpose the model curve using those values.
> plot(x, y) > xfit <- seq(.02, 1.1, .05) > yfit <- 200 * xfit/(0.1 + xfit) > lines(spline(xfit, yfit))
We could do better, but these starting values of 200 and .1 seem adequate. Now do the fit:
> out <- nlm(fn, p = c(200, 0.1), hessian = TRUE)
After the fitting, out$minimum is the SSE, and
out$estimates are the least squares estimates of the parameters.
To obtain the approximate standard errors (SE) of the estimates we do:
> sqrt(diag(2*out$minimum/(length(y) - 2) * solve(out$hessian)))
The 2 in the line above represents the number of parameters. A 95% confidence interval would be the parameter estimate +/- 1.96 SE. We can superimpose the least squares fit on a new plot:
> plot(x, y) > xfit <- seq(.02, 1.1, .05) > yfit <- 212.68384222 * xfit/(0.06412146 + xfit) > lines(spline(xfit, yfit))
The standard package nls provides much more extensive facilities for fitting non-linear models by least squares. The model we have just fitted is the Michaelis-Menten model, so we can use
> df <- data.frame(x=x, y=y)
> fit <- nls(y ~ SSmicmen(x, Vm, K), df)
> fit
Nonlinear regression model
model: y ~ SSmicmen(x, Vm, K)
data: df
Vm K
212.68370711 0.06412123
residual sum-of-squares: 1195.449
> summary(fit)
Formula: y ~ SSmicmen(x, Vm, K)
Parameters:
Estimate Std. Error t value Pr(>|t|)
Vm 2.127e+02 6.947e+00 30.615 3.24e-11
K 6.412e-02 8.281e-03 7.743 1.57e-05
Residual standard error: 10.93 on 10 degrees of freedom
Correlation of Parameter Estimates:
Vm
K 0.7651
Maximum likelihood is a method of nonlinear model fitting that applies
even if the errors are not normal. The method finds the parameter values
which maximize the log likelihood, or equivalently which minimize the
negative log-likelihood. Here is an example from Dobson (1990), pp.
108-111. This example fits a logistic model to dose-response data,
which clearly could also be fit by glm(). The data are:
> x <- c(1.6907, 1.7242, 1.7552, 1.7842, 1.8113,
1.8369, 1.8610, 1.8839)
> y <- c( 6, 13, 18, 28, 52, 53, 61, 60)
> n <- c(59, 60, 62, 56, 63, 59, 62, 60)
The negative log-likelihood to minimize is:
> fn <- function(p)
sum( - (y*(p[1]+p[2]*x) - n*log(1+exp(p[1]+p[2]*x))
+ log(choose(n, y)) ))
We pick sensible starting values and do the fit:
> out <- nlm(fn, p = c(-50,20), hessian = TRUE)
After the fitting, out$minimum is the negative log-likelihood,
and out$estimates are the maximum likelihood estimates of the
parameters. To obtain the approximate SEs of the estimates we do:
> sqrt(diag(solve(out$hessian)))
A 95% confidence interval would be the parameter estimate +/- 1.96 SE.
We conclude this chapter with just a brief mention of some of the other facilities available in R for special regression and data analysis problems.
lme() and nlme()
for linear and non-linear mixed-effects models, that is linear and
non-linear regressions in which some of the coefficients correspond to
random effects. These functions make heavy use of formulae to specify
the models.
loess()
function fits a nonparametric regression by using a locally weighted
regression. Such regressions are useful for highlighting a trend in
messy data or for data reduction to give some insight into a large data
set.
Function loess is the standard package modreg, together
with code for projection pursuit regression.
lqs
in the standard package of the same name provides state-of-art
algorithms for highly-resistant fits. Less resistant but statistically
more efficient methods are available in user-contributed packages, for
example function rlm
in package MASS.
avas and
ace
in package acepack and functions bruto and mars
in package mda provide some examples of these techniques in
user-contributed packages to R.
Models are again specified in the ordinary linear model form. The model
fitting function is tree(),
but many other generic functions such as plot() and text()
are well adapted to displaying the results of a tree-based model fit in
a graphical way.
Tree models are available in R via the user-contributed packages rpart and tree.
Graphical facilities are an important and extremely versatile component of the R environment. It is possible to use the facilities to display a wide variety of statistical graphs and also to build entirely new types of graph.
The graphics facilities can be used in both interactive and batch modes, but in
most cases, interactive use is more productive. Interactive use is also
easy because at startup time R initiates a graphics device
driver which opens a special graphics window for the display of
interactive graphics. Although this is done automatically, it is useful
to know that the command used is X11() under UNIX,
windows() under Windows and macintosh() on MacOS 8/9.
Once the device driver is running, R plotting commands can be used to produce a variety of graphical displays and to create entirely new kinds of display.
Plotting commands are divided into three basic groups:
In addition, R maintains a list of graphical parameters which can be manipulated to customize your plots.
High-level plotting functions are designed to generate a complete plot of the data passed as arguments to the function. Where appropriate, axes, labels and titles are automatically generated (unless you request otherwise.) High-level plotting commands always start a new plot, erasing the current plot if necessary.
plot() functionOne of the most frequently used plotting functions in R is the
plot() function. This is a generic function: the type of
plot produced is dependent on the type or class of the first
argument.
plot(x, y)
plot(xy)
plot(x, y)
produces a scatterplot of y against x. The same effect can
be produced by supplying one argument (second form) as either a list
containing two elements x and y or a two-column matrix.
plot(x)
plot(f)
plot(f, y)
plot(df)
plot(~ expr)
plot(y ~ expr)
+' (e.g., a + b + c). The
first two forms produce distributional plots of the variables in a data
frame (first form) or of a number of named objects (second form). The
third form plots y against every object named in expr.
R provides two very useful functions for representing multivariate
data. If X is a numeric matrix or data frame, the command
> pairs(X)
produces a pairwise scatterplot matrix of the variables defined by the
columns of X, that is, every column of X is plotted
against every other column of X and the resulting n(n-1)
plots are arranged in a matrix with plot scales constant over the rows
and columns of the matrix.
When three or four variables are involved a coplot may be more
enlightening. If a and b are numeric vectors and c
is a numeric vector or factor object (all of the same length), then
the command
> coplot(a ~ b | c)
produces a number of scatterplots of a against b for given
values of c. If c is a factor, this simply means that
a is plotted against b for every level of c. When
c is numeric, it is divided into a number of conditioning
intervals and for each interval a is plotted against b
for values of c within the interval. The number and position of
intervals can be controlled with given.values= argument to
coplot()--the function co.intervals() is useful for
selecting intervals. You can also use two given variables with a
command like
> coplot(a ~ b | c + d)
which produces scatterplots of a against b for every joint
conditioning interval of c and d.
The coplot() and pairs() function both take an argument
panel= which can be used to customize the type of plot which
appears in each panel. The default is points() to produce a
scatterplot but by supplying some other low-level graphics function of
two vectors x and y as the value of panel= you can
produce any type of plot you wish. An example panel function useful for
coplots is panel.smooth().
Other high-level graphics functions produce different types of plots. Some examples are:
qqnorm(x)
qqline(x)
qqplot(x, y)
x against the expected Normal order scores (a normal scores plot)
and the second adds a straight line to such a plot by drawing a line
through the distribution and data quartiles. The third form plots the
quantiles of x against those of y to compare their
respective distributions.
hist(x)
hist(x, nclass=n)
hist(x, breaks=b, ...)
x. A sensible number
of classes is usually chosen, but a recommendation can be given with the
nclass= argument. Alternatively, the breakpoints can be
specified exactly with the breaks= argument. If the
probability=TRUE argument is given, the bars represent relative
frequencies instead of counts.
dotchart(x, ...)
x. In a dotchart the
y-axis gives a labelling of the data in x and the
x-axis gives its value. For example it allows easy visual
selection of all data entries with values lying in specified ranges.
image(x, y, z, ...)
contour(x, y, z, ...)
persp(x, y, z, ...)
image plot draws a grid of rectangles
using different colours to represent the value of z, the contour
plot draws contour lines to represent the value of z, and the
persp plot draws a 3D surface.
There are a number of arguments which may be passed to high-level graphics functions, as follows:
add=TRUE
axes=FALSE
axis() function. The default, axes=TRUE, means
include axes.
log="x"
log="y"
log="xy"
type=
type= argument controls the type of plot produced, as
follows:
type="p"
type="l"
type="b"
type="o"
type="h"
type="s"
type="S"
type="n"
xlab=string
ylab=string
main=string
sub=string
Sometimes the high-level plotting functions don't produce exactly the kind of plot you desire. In this case, low-level plotting commands can be used to add extra information (such as points, lines or text) to the current plot.
Some of the more useful low-level plotting functions are:
points(x, y)
lines(x, y)
plot()'s
type= argument can also be passed to these functions (and
defaults to "p" for points() and "l" for
lines().)
text(x, y, labels, ...)
x, y. Normally
labels is an integer or character vector in which case
labels[i] is plotted at point (x[i], y[i]). The default
is 1:length(x).
Note: This function is often used in the sequence
> plot(x, y, type="n"); text(x, y, names)
The graphics parameter type="n" suppresses the points but sets up
the axes, and the text() function supplies special characters, as
specified by the character vector names for the points.
abline(a, b)
abline(h=y)
abline(v=x)
abline(lm.obj)
b and intercept a to the current
plot. h=y may be used to specify y-coordinates for
the heights of horizontal lines to go across a plot, and
v=x similarly for the x-coordinates for vertical
lines. Also lm.obj may be list with a coefficients
component of length 2 (such as the result of model-fitting functions,)
which are taken as an intercept and slope, in that order.
polygon(x, y, ...)
x, y)
and (optionally) shade it in with hatch lines, or fill it if the
graphics device allows the filling of figures.
legend(x, y, legend, ...)
legend. At least one other argument v
(a vector the same length as legend) with the corresponding
values of the plotting unit must also be given, as follows:
legend( , fill=v)
legend( , col=v)
legend( , lty=v)
legend( , lwd=v)
legend( , pch=v)
title(main, sub)
main to the top of the current plot in a large font
and (optionally) a sub-title sub at the bottom in a smaller font.
axis(side, ...)
plot() with the axes=FALSE argument.
Low-level plotting functions usually require some positioning information (e.g., x and y coordinates) to determine where to place the new plot elements. Coordinates are given in terms of user coordinates which are defined by the previous high-level graphics command and are chosen based on the supplied data.
Where x and y arguments are required, it is also
sufficient to supply a single argument being a list with elements named
x and y. Similarly a matrix with two columns is also
valid input. In this way functions such as locator() (see below)
may be used to specify positions on a plot interactively.
In some cases, it is useful to add mathematical symbols and formulae to a
plot. This can be achieved in R by specifying an expression rather
than a character string in any one of text, mtext, axis,
or title. For example, the following code draws the formula for
the Binomial probability function:
> text(x, y, expression(paste(bgroup("(", atop(n, x), ")"),
p^x, q^{n-x})))
More information, including a full listing of the features available can obtained from within R using the commands:
> help(plotmath) > example(plotmath)
It is possible to specify Hershey vector fonts for rendering text when using
the text and contour functions. There are three reasons for
using the Hershey fonts:
More information, including tables of Hershey characters can be obtained from within R using the commands:
> help(Hershey) > example(Hershey) > help(Japanese) > example(Japanese)
R also provides functions which allow users to extract or add
information to a plot using a mouse. The simplest of these is the
locator() function:
locator(n, type)
n (default 512) points
have been selected, or another mouse button is pressed (Unix, Windows)
or the mouse is clicked outside the graphics window (Mac). The
type argument allows for plotting at the selected points and has
the same effect as for high-level graphics commands; the default is no
plotting. locator() returns the locations of the points selected
as a list with two components x and y.
locator() is usually called with no arguments. It is
particularly useful for interactively selecting positions for graphic
elements such as legends or labels when it is difficult to calculate in
advance where the graphic should be placed. For example, to place some
informative text near an outlying point, the command
> text(locator(1), "Outlier", adj=0)
may be useful. locator() will still work if the current device
does not support a mouse; in this case the user will be prompted for
x and y coordinates.
identify(x, y, labels)
x and
y (using the left mouse button) by plotting the corresponding
component of labels nearby (or the index number of the point if
labels is absent). Returns the indices of the selected points
when another button is pressed (unix, Windows) or the mouse is clicked
outside the graphics window (Mac).
Sometimes we want to identify particular points on a plot, rather
than their positions. For example, we may wish the user to select some
observation of interest from a graphical display and then manipulate
that observation in some way. Given a number of (x, y)
coordinates in two numeric vectors x and y, we could use
the identify() function as follows:
> plot(x, y) > identify(x, y)
The identify() functions performs no plotting itself, but simply
allows the user to move the mouse pointer and click the left mouse
button near a point. The point nearest the mouse pointer will be
highlighted with its index number (that is, its position in the
x/y vectors) plotted nearby. Alternatively, you could use
some informative string (such as a case name) as a highlight by using
the labels argument to identify(), or disable highlighting
altogether with the plot=FALSE argument. When the process is
terminated (see above), identify() returns the indices of the
selected points; you can use these indices to extract the selected
points from the original vectors x and y.
When creating graphics, particularly for presentation or publication
purposes, R does not always produce exactly that which is required.
You can, however, customize almost every aspect of the display using
graphics parameters. R maintains a list of a large number of
graphics parameters which control things such as line style, colors,
figure arrangement and text justification among many others. Every
graphics parameter has a name (such as `col', which controls
colors,) and a value (a color number, for example.)
A separate list of graphics parameters is maintained for each active device, and each device has a default set of parameters when initialized. Graphics parameters can be set in two ways: either permanently, affecting all graphics functions which access the current device; or temporarily, affecting only a single graphics function call.
par() functionThe par() function is used to access and modify the list of
graphics parameters for the current graphics device.
par()
par(c("col", "lty"))
par(col=4, lty=2)
Setting graphics parameters with the par() function changes the
value of the parameters permanently, in the sense that all future
calls to graphics functions (on the current device) will be affected by
the new value. You can think of setting graphics parameters in this way
as setting "default" values for the parameters, which will be used by
all graphics functions unless an alternative value is given.
Note that calls to par() always affect the global values
of graphics parameters, even when par() is called from within a
function. This is often undesirable behavior--usually we want to set
some graphics parameters, do some plotting, and then restore the
original values so as not to affect the user's R session. You can
restore the initial values by saving the result of par() when
making changes, and restoring the initial values when plotting is
complete.
> oldpar <- par(col=4, lty=2) ... plotting commands ... > par(oldpar)
Graphics parameters may also be passed to (almost) any graphics function
as named arguments. This has the same effect as passing the arguments
to the par() function, except that the changes only last for the
duration of the function call. For example:
> plot(x, y, pch="+")
produces a scatterplot using a plus sign as the plotting character, without changing the default plotting character for future plots.
The following sections detail many of the commonly-used graphical
parameters. The R help documentation for the par() function
provides a more concise summary; this is provided as a somewhat more
detailed alternative.
Graphics parameters will be presented in the following form:
name=value
par() or
a graphics function. value is a typical value you might use when
setting the parameter.
R plots are made up of points, lines, text and polygons (filled regions.) Graphical parameters exist which control how these graphical elements are drawn, as follows:
pch="+"
"." as the plotting character, which
produces centered points.
pch=4
pch is given as an integer between 0 and 18 inclusive, a
specialized plotting symbol is produced. To see what the symbols are,
use the command
> legend(locator(1), as.character(0:18), pch = 0:18)
lty=2
lwd=2
lines(), etc.
col=2
font=2
1 corresponds to plain text,
2 to bold face, 3 to italic and 4 to bold italic.
font.axis
font.lab
font.main
font.sub
adj=-0.1
0 means
left justify, 1 means right justify and 0.5 means to
center horizontally about the plotting position. The actual value is
the proportion of text that appears to the left of the plotting
position, so a value of -0.1 leaves a gap of 10% of the text width
between the text and the plotting position.
cex=1.5
Many of R's high-level plots have axes, and you can construct axes
yourself with the low-level axis() graphics function. Axes have
three main components: the axis line (line style controlled by the
lty graphics parameter), the tick marks (which mark off unit
divisions along the axis line) and the tick labels (which mark the
units.) These components can be customized with the following graphics
parameters.
lab=c(5, 7, 12)
las=1
0 means always parallel to axis,
1 means always horizontal, and 2 means always
perpendicular to the axis.
mgp=c(3, 1, 0)
tck=0.01
tck is small (less than 0.5) the tick marks on the x
and y axes are forced to be the same size. A value of 1 gives
grid lines. Negative values give tick marks outside the plotting
region. Use tck=0.01 and mgp=c(1,-1.5,0) for internal
tick marks.
xaxs="s"
yaxs="d"
"s" (standard) and "e" (extended) the smallest and
largest tick marks always lie outside the range of the data. Extended
axes may be widened slightly if any points are very near the edge. This
style of axis can sometimes leave large blank gaps near the edges. With
styles "i" (internal) and "r" (the default) tick marks
always fall within the range of the data, however style "r"
leaves a small amount of space at the edges.
Setting this parameter to "d" (direct axis) locks in the
current axis and uses it for all future plots (or until the parameter is
set to one of the other values above, at least.) Useful for generating
series of fixed-scale plots.
A single plot in R is known as a figure and comprises a
plot region surrounded by margins (possibly containing axis
labels, titles, etc.) and (usually) bounded by the axes themselves.
Graphics parameters controlling figure layout include:
mai=c(1, 0.5, 0.5, 0)
mar=c(4, 2, 2, 1)
mai, except the measurement unit is text lines.
mar and mai are equivalent in the sense that setting one
changes the value of the other. The default values chosen for this
parameter are often too large; the right-hand margin is rarely needed,
and neither is the top margin if no title is being used. The bottom and
left margins must be large enough to accommodate the axis and tick
labels. Furthermore, the default is chosen without regard to the size
of the device surface: for example, using the postscript() driver
with the height=4 argument will result in a plot which is about
50% margin unless mar or mai are set explicitly. When
multiple figures are in use (see below) the margins are reduced by half,
however this may not be enough when many figures share the same page.
R allows you to create an n by m array of figures on a single page. Each figure has its own margins, and the array of figures is optionally surrounded by an outer margin, as shown in the following figure.
The graphical parameters relating to multiple figures are as follows:
mfcol=c(3, 2)
mfrow=c(2, 4)
mfcol causes figures to be
filled by column; mfrow fills by rows.
The layout in the Figure could have been created by setting
mfrow=c(3,2); the figure shows the page after four plots have
been drawn.
mfg=c(2, 2, 3, 2)
fig=c(4, 9, 1, 4)/10
oma=c(2, 0, 3, 0)
omi=c(0, 0, 0.8, 0)
mar and mai, the first
measures in text lines and the second in inches, starting with the
bottom margin and working clockwise.
Outer margins are particularly useful for page-wise titles, etc. Text
can be added to the outer margins with the mtext() function with
argument outer=TRUE. There are no outer margins by default,
however, so you must create them explicitly using oma or
omi.
More complicated arrangements of multiple figures can be produced by the
split.screen() and layout() functions.
R can generate graphics (of varying levels of quality) on almost any type of display or printing device. Before this can begin, however, R needs to be informed what type of device it is dealing with. This is done by starting a device driver. The purpose of a device driver is to convert graphical instructions from R ("draw a line," for example) into a form that the particular device can understand.
Device drivers are started by calling a device driver function. There
is one such function for every device driver: type help(Devices)
for a list of them all. For example, issuing the command
> postscript()
causes all future graphics output to be sent to the printer in PostScript format. Some commonly-used device drivers are:
X11()
postscript()
pictex()
When you have finished with a device, be sure to terminate the device driver by issuing the command
> dev.off()
This ensures that the device finishes cleanly; for example in the case of hardcopy devices this ensures that every page is completed and has been sent to the printer.
By passing the file argument to the postscript() device
driver function, you may store the graphics in PostScript format in a
file of your choice. The plot will be in landscape orientation unless
the horizontal=FALSE argument is given, and you can control the
size of the graphic with the width and height arguments
(the plot will be scaled as appropriate to fit these dimensions.) For
example, the command
> postscript("file.ps", horizontal=FALSE, height=5, pointsize=10)
will produce a file containing PostScript code for a figure five inches high, perhaps for inclusion in a document. It is important to note that if the file named in the command already exists, it will be overwritten. This is the case even if the file was only created earlier in the same R session.
Many usages of PostScript output will be to incorporate the figure in
another document. This works best when encapsulated PostScript
is produced: R always produces conformant output, but only marks the
output as such when the onefile=FALSE argument is supplied. This
unusual notation stems from S-compatibility: it really means that
the output will be a single page (which is part of the EPSF
specification). Thus to produce a plot for inclusion use something like
> postscript("plot1.eps", horizontal=FALSE, onefile=FALSE,
height=8, width=6, pointsize=10)
In advanced use of R it is often useful to have several graphics devices in use at the same time. Of course only one graphics device can accept graphics commands at any one time, and this is known as the current device. When multiple devices are open, they form a numbered sequence with names giving the kind of device at any position.
The main commands used for operating with multiple devices, and their meanings are as follows:
X11()
windows()
Macintosh()
postscript()
pictex()
...
dev.list()
dev.next()
dev.prev()
dev.set(which=k)
dev.off(k)
postscript devices, this will either print
the file immediately or correctly complete the file for later printing,
depending on how the device was initiated.
dev.copy(device, ..., which=k)
dev.print(device, ..., which=k)
device is a device
function, such as postscript, with extra arguments, if needed,
specified by .... dev.print is similar, but the
copied device is immediately closed, so that end actions, such as
printing hardcopies, are immediately performed.
graphics.off()
R does not (currently) have a builtin function for dynamic graphics, for example to rotate point clouds or to "brush" (interactively highlight) plots. However, extensive dynamic graphics facilities are available in the system XGobi by Swayne, Cook and Buja available from
http://www.research.att.com/areas/stat/xgobi/
and these can be accessed from R via the package xgobi.
XGobi currently runs under the X Windows system on either Unix or Windows, and R interfaces are available for each.
The following session is intended to introduce to you some features of the R environment by using them. Many features of the system will be unfamiliar and puzzling at first, but this puzzlement will soon disappear. This is written for the UNIX user. Those using Windows or MacOS Classic will need to adapt the discussion slightly.
morley.tab in your working directory. If not, seek the local
expert (or get it yourself from the base/data subdirectory of the
default R library tree). If you have, proceed.
$ R
The R program begins, with a banner.
(Within R, the prompt on the left hand side will not be shown to
avoid confusion.)
help.start()
Iconify the help window and move on to the next part.
x <- rnorm(50)
y <- rnorm(x)
plot(x, y)
ls()
rm(x, y)
x <- 1:20
w <- 1 + sqrt(x)/2
dummy <- data.frame(x=x, y= x + rnorm(x)*w)
dummy
fm <- lm(y ~ x, data=dummy)
summary(fm)
fm1 <- lm(y ~ x, data=dummy, weight=1/w^2)
summary(fm1)
attach(dummy)
lrf <- lowess(x, y)
plot(x, y)
lines(x, lrf$y)
abline(0, 1, lty=3)
abline(coef(fm))
abline(coef(fm1), col = "red")
detach()
plot(fitted(fm), resid(fm),
xlab="Fitted values",
ylab="Residuals",
main="Residuals vs Fitted")
qqnorm(resid(fm), main="Residuals Rankit Plot")
rm(fm, fm1, lrf, x, dummy)
The next section will look at data from the classical experiment of Michaelson and Morley to measure the speed of light.
file.show("morley.tab")
mm <- read.table("morley.tab")
mm
Expt) and each has 20 runs
(column Run) and sl is the recorded speed of light,
suitably coded.
mm$Expt <- factor(mm$Expt)
mm$Run <- factor(mm$Run)
Expt and Run into factors.
attach(mm)
plot(Expt, Speed, main="Speed of Light Data", xlab="Experiment No.")
fm <- aov(Speed ~ Run + Expt, data=mm)
summary(fm)
fm0 <- update(fm, . ~ . - Run)
anova(fm0, fm)
detach()
rm(fm, fm0)
We now look at some more graphical features: contour and image plots.
x <- seq(-pi, pi, len=50)
y <- x
f <- outer(x, y, function(x, y) cos(y)/(1 + x^2))
oldpar <- par(no.readonly = TRUE)
par(pty="s")
contour(x, y, f)
contour(x, y, f, nlevels=15, add=TRUE)
fa <- (f-t(f))/2
fa is the "asymmetric part" of f. (t() is
transpose).
contour(x, y, fa, nlevels=15)
par(oldpar)
image(x, y, f)
image(x, y, fa)
objects(); rm(x, y, f, fa)
R can do complex arithmetic, also.
th <- seq(-pi, pi, len=100)
z <- exp(1i*th)
1i is used for the complex number i.
par(pty="s")
plot(z, type="l")
w <- rnorm(100) + rnorm(100)*1i
w <- ifelse(Mod(w) > 1, 1/w, w)
plot(w, xlim=c(-1,1), ylim=c(-1,1), pch="+",xlab="x", ylab="y")
lines(z)
w <- sqrt(runif(100))*exp(2*pi*runif(100)*1i)
plot(w, xlim=c(-1,1), ylim=c(-1,1), pch="+", xlab="x", ylab="y")
lines(z)
rm(th, w, z)
q()
The command R can be used both for starting the main R program
with a variety of options in the form
R[options] [<infile] [>outfile],
or, via the R CMD interface, as a wrapper to various R tools
(e.g., for processing files in R documentation format or manipulating
add-on packages) which are not intended to be called "directly".
Most options control what happens at the beginning and at the end of an
R session. The startup mechanism is as follows (see also the on-line
help for topic Startup for more information).
--no-environ was given, R searches for user and site
files to process for setting environment variables. The name of the
site file is the one pointed to by the environment variable
R_ENVIRON; if this is unset, $R_HOME/etc/Renviron.site is
used (if it exists). The user files searched for are .Renviron
in the current or in the user's home directory (in that order). These
files should contain lines of the form name=value.
(See help(Startup) for a precise description.) Variables you
might want to set include R_PAPERSIZE (the default paper size),
R_PRINTCMD (the default print command) and R_LIBS (specifies
the list of R library trees searched for add-on packages).
--no-site-file was given. The name of this file is
taken from the value of the R_PROFILE environment variable. If
that variable is unset, the default $R_HOME/etc/Rprofile.site is
used if this exists.
--no-init-file was given, R searches for a file
called .Rprofile in the current directory or in the user's home
directory (in that order) and sources it.
.RData if there is one (unless
--no-restore or --no-restore-data was specified).
.First exists, it is executed. This
function (as well as .Last which is executed at the end of the
R session) can be defined in the appropriate startup profiles, or
reside in .RData.
In addition, there are options for controlling the memory available to
the R process (see the on-line help for topic Memory for more
information). Users will not normally need to use these unless they
are trying to limit the amount of memory used by R.
R accepts the following command-line options.
--help
-h
--version
RHOME
--save
--no-save
--no-environ
--no-site-file
--no-init-file
--restore
--no-restore
--no-restore-data
.RData in the directory where
R was started) should be restored at startup or not. The default is
to restore. (--no-restore implies all the specific
--no-restore-* options.)
--no-restore-history
.Rhistory in the
directory where R was started, but can be set by the environment
variable R_HISTFILE) should be restored at startup or not. The
default is to restore.
--vanilla
--no-save, --no-environ
--no-site-file, --no-init-file and --no-restore.
--no-readline
--min-vsize=N
--max-vsize=N
G,
M, K, or k, meaning `Giga' (2^30), `Mega' (2^20),
(computer) `Kilo' (2^10), or regular `kilo' (1000).
--min-nsize=N
--max-nsize=N
--quiet
--silent
-q
--slave
--verbose
verbose to TRUE. R code uses this option to
control the printing of diagnostic messages.
--debugger=name
-d name
--gui=type
-g type
X11 (the default), gnome provided that GNOME
support is available, and none.
Note that input and output can be redirected in the usual way (using
< and >).
The command R CMD allows the invocation of various tools which
are useful in conjunction with R, but not intended to be called
"directly". The general form is
R CMD command args
where command is the name of the tool and args the arguments passed on to it.
Currently, the following tools are available.
BATCH
COMPILE
SHLIB
INSTALL
REMOVE
build
check
LINK
Rprof
Rdconv
Rd2dvi
Rd2txt
Sd2Rd
The first five tools (i.e., BATCH, COMPILE, SHLIB,
INSTALL, and REMOVE) can also be invoked "directly"
without the CMD option, i.e., in the form R command
args.
Use
R CMD command --help
to obtain usage information for each of the tools accessible via the
R CMD interface.
The startup procedure under Windows is very similar to that under UNIX,
but necessarily not identical. There are two versions of R for
Windows, the console-based version (RGui.exe) and a terminal
version (Rterm.exe, principally intended for batch use).
Most options control what happens at the beginning and at the end of an
R session. The startup mechanism is as follows (see also the on-line
help for topic Startup for more information). References to the
`home directory' need to be clarified, as this is not always defined on
Windows. If the environment variable R_USER is defined, that
gives the home directory. Next, if the environment variable HOME
is defined, that gives the home directory. If not, and environment
variables HOMEDRIVE and HOMEPATH are defined (and they
normally are under Windows NT/2000) these define the home
directory. Failing all those, the home directory is taken to be the
starting directory.
--no-environ was given, R searches for user and site
files to process for setting environment variables. The name of the
site file is the one pointed to by the environment variable
R_ENVIRON; if this is unset or empty, $R_HOME/etc/Renviron.site
is used (if it exists). The user files searched for
are .Renviron in the current or in the user's home directory (in
that order). These files should contain lines of the form
name=value. (See help(Startup) for a
precise description.) Variables you might want to set include
R_PAPERSIZE (the default paper size) and R_LIBS (controls
the list of R library trees searched for add-on packages).
Environment variables can also be supplied as
name=value pairs at the end of the command line.
--no-site-file was given. The name of this file is
taken from the value of the R_PROFILE environment variable. If
that variable is unset, the default $R_HOME/etc/Rprofile.site is
used if this exists.
--no-init-file was given, R searches for a file
called .Rprofile in the current directory or in the user's home
directory (in that order) and sources it.
.RData if there is one (unless
--no-restore or --no-restore-data was specified).
.First exists, it is executed. This
function (as well as .Last which is executed at the end of the
R session) can be defined in the appropriate startup profiles, or
reside in .RData.
In addition, there are options for controlling the memory available to
the R process (see the on-line help for topic Memory for more
information). Users will not normally need to use these. R for
Windows has an additional flag --max-mem-size described below,
which by default does limit the memory usage of an R process.
R for Windows accepts the following command line options.
--version
--mdi
--sdi
--no-mdi
Rgui will operate as an MDI program (the default,
with multiple child windows within one main window) or an SDI application
(with multiple top-level windows for the console, graphics and pager).
--save
--no-save
--no-site-file
--no-init-file
.Rprofile file.
--no-environ
.Renviron.
--restore
--no-restore
--no-restore-data
.RData in the directory where
R was started) should be restored at startup or not.
The default is to restore. (--no-restore implies all the specific
--no-restore-* options.)
--no-restore-history
.Rhistory in the
directory where R was started, but can be set by the environment
variable R_HISTFILE) should be restored at startup or not. The
default is to restore.
--vanilla
--no-save, --no-restore,
--no-site-file, --no-init-file and
--no-environ.
--min-vsize=N
--max-vsize=N
G,
M, K, or k, meaning `Giga' (2^30), `Mega' (2^20),
(computer) `Kilo' (2^10), or regular `kilo' (1000).
--min-nsize=N
--max-nsize=N
--max-mem-size=N
malloc-ed' memory). This is set by
default to the smaller of 256Mb and the amount of physical RAM in the machine.
--quiet
--silent
-q
--slave
--verbose
verbose to TRUE. R code uses this option to
control the printing of diagnostic messages.
--ess
Rterm up for use by R-inferior-mode in ESS.
The command Rcmd allows the invocation of various tools which
are useful in conjunction with R, but not intended to be called
"directly". The general form is
Rcmd command args
where command is the name of the tool and args the arguments passed on to it.
Currently, the following tools are available.
INSTALL
REMOVE
SHLIB
dyn.load.
BATCH
build
check
Rdconv
Rd2dvi.sh
Rd2txt
Sd2Rd
Use
Rcmd command --help
to obtain usage information for each of the tools accessible via the
Rcmd interface.
This section applies to the classic MacOS port, and not to ports of the Unix version to MacOS X.
The R application startup is similar to that of UNIX and Windows
systems. Only a console-based version of R for Macintosh exists, and
there is no equivalent to the R CMD engine.
When you double-click on the R application icon a small window will appear. This is equivalent to the command line under other ports. You can enter the startup options, or simply press <RET> on the keyboard to start R running with default options. The main R program can be started with a variety of options in the form
R [options]
as listed later in this section. Using [<infile]
[>outfile] equivalent to UNIX can be selected at startup
using the standard Macintosh interface but they are not currently fully
implemented, so you can ignore these.
Most options control what happens at the beginning and at the end of an
R session. The startup mechanism is as follows (see also the on-line
help for topic Startup for more information).
--no-environ was given, R looks for the file
.Renviron in the etc subdirectory of R application
folder. The file found is processed to set environment variables. It
should contain lines of the form name=value. (See
help(Startup) for a precise description.)
--no-init-file was given, R looks for a file
called .Rprofile in the etc subdirectory of R
application folder and processes it (as R code).
.RData if there is one (unless
--no-restore or --no-restore-data was specified).
This file looked for in the etc subdirectory of R
application folder.
.First exists, it is executed. This
function (as well as .Last which is executed at the end of the
R session) can be defined in the appropriate startup profiles, or
reside in .RData.
In addition, there are options for controlling the memory available to
the R process (see the on-line help for topic Memory for more
information). Users will not normally need to use these unless they are
trying to limit the amount of memory used by R. Please note that
under MacOS, you have to reserve in advance the amount of memory
assigned to the R application from the `Finder/Information' menu as
it is usually done for any Macintosh software. An amount of 32000k is
sufficient to run all the demos and examples in the base distribution.
R accepts the following command-line options.
--version
--save
--no-save
--no-init-file
--restore
--no-restore
--no-restore-data
:etc:.RData in the directory
where R was started) should be restored at startup or not. The
default is to restore. (--no-restore implies all the specific
--no-restore-* options.)
--no-restore-history
.Rhistory in the
directory where R was started, but can be set by the environment
variable R_HISTFILE) should be restored at startup or not. The
default is to restore.
--vanilla
--no-save, --no-environ,
--no-init-file and --no-restore.
--min-vsize=N
--max-vsize=N
G,
M, K, or k, meaning `Giga' (2^30), `Mega' (2^20),
(computer) `Kilo' (2^10), or regular `kilo' (1000).
--min-nsize=N
--max-nsize=N
--quiet
--silent
-q
--slave
--verbose
verbose to TRUE. R code uses this option to
control the printing of diagnostic messages.
When the GNU readline library is available at the time R is configured for compilation under UNIX, an inbuilt command line editor allowing recall, editing and re-submission of prior commands is used. Note: this appendix does not apply to GNOME interface under UNIX, only to the standard command-line interface.
It can be disabled (useful for usage with ESS19) using the startup option
--no-readline.
Windows versions of R have somewhat simpler command-line editing: see
Console under the Help menu of the GUI, and the
file README.Rterm for command-line editing under
Rterm.exe.
When using R with readline capabilities, the functions described below are available.
Many of these use either Control or Meta characters. Control characters, such as Control-m, are obtained by holding the <CTRL> down while you press the <m> key, and are written as C-m below. Meta characters, such as Meta-b, are typed by holding down <META> and pressing <b>, and written as M-b in the following. If your terminal does not have a <META> key, you can still type Meta characters using two-character sequences starting with ESC. Thus, to enter M-b, you could type <ESC><b>. The ESC character sequences are also allowed on terminals with real Meta keys. Note that case is significant for Meta characters.
The R program keeps a history of the commands you type, including the error lines, and commands in your history may be recalled, changed if necessary, and re-submitted as new commands. In Emacs style command line editing any straight typing you do while in this editing phase causes the characters to be inserted in the command you are editing, displacing any characters to the right of the cursor. In vi mode character insertion mode is started by M-i or M-a, characters are typed and insertion mode is finished by typing a further <ESC>.
Pressing the <RET> command at any time causes the command to be re-submitted.
Other editing actions are summarized in the following table.
Unfortunately it does not seem to be possible to bind the motion keys, for example, to the arrow keys, which is something of a nuisance.
On most terminals, you can also use the up and down arrow keys instead of C-p and C-n, respectively.
On most terminals, you can also use the left and right arrow keys instead of C-b and C-f, respectively.
The final <RET> terminates the command line editing sequence.
!: Logical vectors
!=: Logical vectors
%*%: Multiplication
%o%: The outer product of two arrays
&: Logical vectors
&&: Conditional execution
*: Vector arithmetic
+: Vector arithmetic
-: Vector arithmetic
.: Updating fitted models
.First: Customizing the environment
.Last: Customizing the environment
/: Vector arithmetic
:: Generating regular sequences
<: Logical vectors
<<-: Scope
<=: Logical vectors
==: Logical vectors
>: Logical vectors
>=: Logical vectors
?: Getting help
^: Vector arithmetic
abline: Low-level plotting commands
ace: Some non-standard models
add1: Updating fitted models
anova: ANOVA tables, Generic functions for extracting model information
aov: Analysis of variance and model comparison
aperm: Generalized transpose of an array
array: The array() function
as.data.frame: Making data frames
as.vector: The concatenation function c() with arrays
attach: attach() and detach()
attr: Getting and setting attributes
attributes: Getting and setting attributes
avas: Some non-standard models
axis: Low-level plotting commands
boxplot: One- and two-sample tests
break: Repetitive execution
bruto: Some non-standard models
C: Contrasts
c: Concatenating lists, The concatenation function c() with arrays, Character vectors, Vectors and assignment
cbind: Forming partitioned matrices
coef: Generic functions for extracting model information
coefficients: Generic functions for extracting model information
contour: Display graphics
contrasts: Contrasts
coplot: Displaying multivariate data
cos: Vector arithmetic
crossprod: Multiplication, Index arrays
cut: Frequency tables from factors
data: Accessing builtin datasets
data.frame: Making data frames
density: Examining the distribution of a set of data
detach: attach() and detach()
dev.list: Multiple graphics devices
dev.next: Multiple graphics devices
dev.off: Multiple graphics devices
dev.prev: Multiple graphics devices
dev.set: Multiple graphics devices
deviance: Generic functions for extracting model information
diag: Multiplication
dim: Arrays
dotchart: Display graphics
drop1: Updating fitted models
ecdf: Examining the distribution of a set of data
edit: Editing data
eigen: Eigenvalues and eigenvectors
else: Conditional execution
Error: Analysis of variance and model comparison
example: Getting help
exp: Vector arithmetic
F: Logical vectors
factor: Factors
FALSE: Logical vectors
fivenum: Examining the distribution of a set of data
for: Repetitive execution
formula: Generic functions for extracting model information
function: Writing your own functions
glm: The glm() function
help: Getting help
help.search: Getting help
help.start: Getting help
hist: Display graphics, Examining the distribution of a set of data
identify: Interacting with graphics
if: Conditional execution
ifelse: Conditional execution
image: Display graphics
is.na: Missing values
is.nan: Missing values
ks.test: Examining the distribution of a set of data
legend: Low-level plotting commands
length: The intrinsic attributes mode and length, Vector arithmetic
levels: Factors
lines: Low-level plotting commands
list: Lists
lm: Linear models
lme: Some non-standard models
locator: Interacting with graphics
loess: Some non-standard models
log: Vector arithmetic
lqs: Some non-standard models
lsfit: Least squares fitting and the QR decomposition
mars: Some non-standard models
max: Vector arithmetic
mean: Vector arithmetic
min: Vector arithmetic
mode: The intrinsic attributes mode and length
NA: Missing values
NaN: Missing values
ncol: Matrix facilities
next: Repetitive execution
nlm: Maximum likelihood, Least squares, Nonlinear least squares and maximum likelihood models
nlme: Some non-standard models
nrow: Matrix facilities
order: Vector arithmetic
ordered: Ordered factors
outer: The outer product of two arrays
pairs: Displaying multivariate data
par: The par() function
paste: Character vectors
persp: Display graphics
pictex: Device drivers
plot: The plot() function, Generic functions for extracting model information
pmax: Vector arithmetic
pmin: Vector arithmetic
points: Low-level plotting commands
polygon: Low-level plotting commands
postscript: Device drivers
predict: Generic functions for extracting model information
print: Generic functions for extracting model information
prod: Vector arithmetic
qqline: Display graphics, Examining the distribution of a set of data
qqnorm: Display graphics, Examining the distribution of a set of data
qqplot: Display graphics
qr: Least squares fitting and the QR decomposition
range: Vector arithmetic
rbind: Forming partitioned matrices
read.table: The read.table() function
rep: Generating regular sequences
repeat: Repetitive execution
resid: Generic functions for extracting model information
residuals: Generic functions for extracting model information
rlm: Some non-standard models
rm: Data permanency and removing objects
scan: The scan() function
search: Managing the search path
seq: Generating regular sequences
shapiro.test: Examining the distribution of a set of data
sin: Vector arithmetic
sink: Executing commands from or diverting output to a file
solve: Linear equations and inversion
sort: Vector arithmetic
source: Executing commands from or diverting output to a file
split: Repetitive execution
sqrt: Vector arithmetic
stem: Examining the distribution of a set of data
step: Updating fitted models, Generic functions for extracting model information
sum: Vector arithmetic
summary: Generic functions for extracting model information, Examining the distribution of a set of data
svd: Singular value decomposition and determinants
t: Generalized transpose of an array
T: Logical vectors
t.test: One- and two-sample tests
table: Frequency tables from factors, Index arrays
tan: Vector arithmetic
tapply: The function tapply() and ragged arrays
text: Low-level plotting commands
title: Low-level plotting commands
tree: Some non-standard models
TRUE: Logical vectors
unclass: The class of an object
update: Updating fitted models
var: Vector arithmetic
var.test: One- and two-sample tests
vector: Vectors and assignment
while: Repetitive execution
wilcox.test: One- and two-sample tests
X11: Device drivers
|: Logical vectors
||: Conditional execution
~: Formulae for statistical models
D. M. Bates and D. G. Watts (1988), Nonlinear Regression Analysis and Its Applications. John Wiley & Sons, New York.
Richard A. Becker, John M. Chambers and Allan R. Wilks (1988), The New S Language. Chapman & Hall, New York. This book is often called the "Blue Book".
John M. Chambers and Trevor J. Hastie eds. (1992), Statistical Models in S. Chapman & Hall, New York. This is also called the "White Book".
Annette J. Dobson (1990), An Introduction to Generalized Linear Models, Chapman and Hall, London.
Peter McCullagh and John A. Nelder (1989), Generalized Linear Models. Second edition, Chapman and Hall, London.
John A. Rice (1995), Mathematical Statistics and Data Analysis. Second edition. Duxbury Press, Belmont, CA.
S. D. Silvey (1970), Statistical Inference. Penguin, London.
C programmers should note that
_.
not inside strings, nor within the argument list of a function definition
The leading "dot" in this file name makes it invisible in normal file listings in UNIX.
With other than vector types of argument,
such as list mode arguments, the action of c() is rather
different. See Concatenating lists.
The underscore character, _<-
Actually, it is still available as
.Last.value before any other statements are executed
paste(..., collapse=ss) allows to collapse the
arguments into a single character string putting ss in between, and
there are more tools for character manipulation, see the help
for sub and substring.
numeric mode is actually an amalgam of two distinct modes, namely integer and double precision, as explained in the manual.
Note however that length(object) does not always
contain intrinsic useful information, e.g., when object is a
function.
In general, coercion from numeric to character and back again will not be exactly reversible, because of roundoff errors in the character representation.
Foreign readers should note that there are eight states and territories in Australia, namely the Australian Capital Territory, New South Wales, the Northern Territory, Queensland, South Australia, Tasmania, Victoria and Western Australia.
Note that tapply() also works in this case
when its second argument is not a factor, e.g.,
tapply(incomes, state)as.factor()).
Note that x %*% x is ambiguous, as
it could mean either x'x or x x', where x is
the column form. In such cases the smaller matrix seems implicitly to be the
interpretation adopted, so the scalar x'x is in
this case the result. The matrix x x' may be
calculated either by cbind(x) %*% x or x %*% rbind(x)
since the result of rbind() or cbind() is always a
matrix.
See the on-line help
for autoload for the meaning of the second term.
Under UNIX, the utilities Sed or Awk can be used.
See also the methods described in Statistical models in R
In some sense this mimics the behavior in S-PLUS since in S-PLUS this operator always creates or assigns to a global variable.
So it is hidden under UNIX.
The `Emacs Speaks Statistics' package; see the URL http://ess.stat.wisc.edu/