Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
Scribd
Upload
190 views

Grouping, Loops and Conditional Execution

Grouped expressions in R can contain multiple expressions separated by commas, where the value of the group is the result of the last expression. R has if/else conditional statements and ifelse vectorized conditional functions. For loops, repeat loops, and while loops allow for repetitive execution of expressions. apply and lapply functions apply a function over the margins or elements of an array or list. Functions perform tasks on data inputs and return outputs, while operators provide shorthand for common functions. Data can be read from files using read.table and scan, and stored using save and load.

Uploaded by

qwdfgh
Copyright
© © All Rights Reserved
Available Formats
Download as PPTX, PDF, TXT or read online on Scribd
190 views

Grouping, Loops and Conditional Execution

Grouped expressions in R can contain multiple expressions separated by commas, where the value of the group is the result of the last expression. R has if/else conditional statements and ifelse vectorized conditional functions. For loops, repeat loops, and while loops allow for repetitive execution of expressions. apply and lapply functions apply a function over the margins or elements of an array or list. Functions perform tasks on data inputs and return outputs, while operators provide shorthand for common functions. Data can be read from files using read.table and scan, and stored using save and load.

Uploaded by

qwdfgh
Copyright
© © All Rights Reserved
Available Formats
Download as PPTX, PDF, TXT or read online on Scribd
You are on page 1/ 13

Grouping, loops and conditional execution

• Grouped expressions
– R is an expression language in the sense that its only command type is a
function or expression which returns a result.
– 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.
• Control statements
– if statements
– The 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.
– a vectorized version of the if/else construct, the ifelse function. This has
the form ifelse(condition, a, b)
Repetitive execution
• for loops, repeat and while
–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.
• 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”.
Branching

if (logical expression) {
statements
} else {
alternative statements
}

else branch is optional


Loops
• When the same or similar tasks need to be performed multiple times; for all elements
of a list; for all columns of an array; etc.
• Monte Carlo Simulation
• Cross-Validation (delete one and etc)

for(i in 1:10) {
print(i*i)
}

i=1
while(i<=10) {
print(i*i)
i=i+sqrt(i)
}
lapply, sapply, apply
• When the same or similar tasks need to be performed multiple times for all elements of
a list or for all columns of an array.
• May be easier and faster than “for” loops
• lapply(li, function )
• To each element of the list li, the function function is applied.
• The result is a list whose elements are the individual function results.
> li = list("klaus","martin","georg")
> lapply(li, toupper)
> [[1]]
> [1] "KLAUS"
> [[2]]
> [1] "MARTIN"
> [[3]]
> [1] "GEORG"
lapply, sapply, apply
sapply( li, fct )
Like apply, but tries to simplify the result, by converting it into a vector or array of
appropriate size

> li = list("klaus","martin","georg")
> sapply(li, toupper)
[1] "KLAUS" "MARTIN" "GEORG"

> fct = function(x) { return(c(x, x*x, x*x*x)) }


> sapply(1:5, fct)
[,1] [,2] [,3] [,4] [,5]
[1,] 1 2 3 4 5
[2,] 1 4 9 16 25
[3,] 1 8 27 64 125
apply
apply( arr, margin, fct )
Apply the function fct along some dimensions of the array arr, according to margin, and
return a vector or array of the appropriate size.
>x
[,1] [,2] [,3]
[1,] 5 7 0
[2,] 7 9 8
[3,] 4 6 7
[4,] 6 3 5
> apply(x, 1, sum)
[1] 12 24 17 14
> apply(x, 2, sum)
[1] 22 25 20
functions and operators
Functions do things with data
“Input”: function arguments (0,1,2,…)
“Output”: function result (exactly one)

Example:
add = function(a,b)
{ result = a+b
return(result) }

Operators:
Short-cut writing for frequently used functions of one or two arguments.
Examples: + - * / ! & | %%
functions and operators
• Functions do things with data
• “Input”: function arguments (0,1,2,…)
• “Output”: function result (exactly one)
Exceptions to the rule:
• Functions may also use data that sits around in other places, not just in their
argument list: “scoping rules”*
• Functions may also do other things than returning a result. E.g., plot something on
the screen: “side effects”

* Lexical scope and Statistical Computing.


R. Gentleman, R. Ihaka, Journal of Computational and Graphical Statistics, 9(3), p.
491-508 (2000).
Reading data from files
• The read.table() function
– To read an entire data frame directly, the external file will normally have a
special form.
– The first line of the file should have a name for each variable in the data
frame.
– Each additional line of the file has its first item a row label and the values for
each variable.
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
...
• numeric variables and nonnumeric variables (factors)
Reading data from files
• HousePrice <- read.table("houses.data", header=TRUE)
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 file is named ‘input.dat’.
– Suppose the data vectors are of equal length and are to be read in in parallel.
– Suppose that there are three vectors, the first of mode character and the remaining
two of mode numeric.
• The scan() function
– inp<- scan("input.dat", list("",0,0))
– To separate the data items into three separate vectors, use assignments like
label <- inp[[1]]; x <- inp[[2]]; y <- inp[[3]]
– inp <- scan("input.dat", list(id="", x=0, y=0)); inp$id; inp$x; inp$y
Storing data
• Every R object can be stored into and restored from a file with the commands
“save” and “load”.
• This uses the XDR (external data representation) standard of Sun Microsystems
and others, and is portable between MS-Windows, Unix, Mac.

> save(x, file=“x.Rdata”)


> load(“x.Rdata”)
Importing and exporting data
There are many ways to get data into R and out of R.

Most programs (e.g. Excel), as well as humans, know how to deal with rectangular tables
in the form of tab-delimited text files.

> x = read.delim(“filename.txt”)
also: read.table, read.csv

> write.table(x, file=“x.txt”, sep=“\t”)

You might also like