R : Copyright 2003, The R Development Core Team
Version 1.8.0  (2003-10-08)

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for a HTML browser interface to help.
Type 'q()' to quit R.

[Previously saved workspace restored]

> 5+8
[1] 13
> 5/9
[1] 0.5555556
> a <- 5/9
> a
[1] 0.5555556
> b <- 9
> a*b
[1] 5
> 
> help(sqrt)
> 
> 1/0
[1] Inf
> (-1)/0
[1] -Inf
> 1E308
[1] 1e+308
> 1e308
[1] 1e+308
> a<-1e308
> a
[1] 1e+308
> 2*a
[1] Inf
> 0/0
[1] NaN
> sqrt(-2)
[1] NaN
Warning message: 
NaNs produced in: sqrt(-2) 
> 
> sqrt(-2+0i)
[1] 0+1.414214i
> 
> 
> 6i
[1] 0+6i
> 6*i
Error: Object "i" not found
> 
> a <- c(5,4,7)
> a
[1] 5 4 7
> b <- scan()
1: 8 99 -3
4: 30 99 101
7: 
Read 6 items
> b
[1]   8  99  -3  30  99 101
> 
> a
[1] 5 4 7
> b
[1]   8  99  -3  30  99 101
> d <- c(a,b)
> d
[1]   5   4   7   8  99  -3  30  99 101
> 
> d
[1]   5   4   7   8  99  -3  30  99 101
> d[3]
[1] 7
> d[1]
[1] 5
> d[9]
[1] 101
> 
> a + 1
[1] 6 5 8
> a
[1] 5 4 7
> 
> e <- a + 1
> e
[1] 6 5 8
> 
> a
[1] 5 4 7
> a*(a+1)
[1] 30 20 56
> a+1
[1] 6 5 8
> a
[1] 5 4 7
> 
> 10*a
[1] 50 40 70
> 
> a
[1] 5 4 7
> 
> a * c(10,100)
[1]  50 400  70
Warning message: 
longer object length
        is not a multiple of shorter object length in: a * c(10, 100) 
> 
> a+1
[1] 6 5 8
> 
> 1:5
[1] 1 2 3 4 5
> 10:1
 [1] 10  9  8  7  6  5  4  3  2  1
> 1:1
[1] 1
> 
> (-3):9
 [1] -3 -2 -1  0  1  2  3  4  5  6  7  8  9
> 
> 4*2+1
[1] 9
> 1+4*2
[1] 9
> (1+4)*2
[1] 10
> 
> 1:5+2
[1] 3 4 5 6 7
> 
> (1:5)+2
[1] 3 4 5 6 7
> 
> 1:(5+2)
[1] 1 2 3 4 5 6 7
> 
> seq(1,11)
 [1]  1  2  3  4  5  6  7  8  9 10 11
> seq(1,11,by=2)
[1]  1  3  5  7  9 11
> seq(1,by=2,length=50)
 [1]  1  3  5  7  9 11 13 15 17 19 21 23 25 27 29 31 33 35 37 39 41 43
[23] 45 47 49 51 53 55 57 59 61 63 65 67 69 71 73 75 77 79 81 83 85 87
[45] 89 91 93 95 97 99
> 
> d
[1]   5   4   7   8  99  -3  30  99 101
> 
> d[5]
[1] 99
> d[2:6]
[1]  4  7  8 99 -3
> d[c(6,1,9,4,1)]
[1]  -3   5 101   8   5
> 
> d
[1]   5   4   7   8  99  -3  30  99 101
> 
> sum(d)
[1] 350
> sum(d)/9
[1] 38.88889
> sum(d)/length(d)
[1] 38.88889
> mean(d)
[1] 38.88889
> 
> prod(d)
[1] -99782020800
> 
> prod(1:7)
[1] 5040
> 
> var(d)
[1] 2156.861
> sd(d)
[1] 46.44202
> var(8)
[1] NA
> 
> 
> 5<6
[1] TRUE
> 6<5
[1] FALSE
> TRUE
[1] TRUE
> FALSE
[1] FALSE
> T
[1] TRUE
> F
[1] FALSE
> d
[1]   5   4   7   8  99  -3  30  99 101
> d<0
[1] FALSE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE
> 
> d[5]
[1] 99
> d[c(2,5)]
[1]  4 99
> d[d<0]
[1] -3
> d[d>0]
[1]   5   4   7   8  99  30  99 101
> 
> a
[1] 5 4 7
> a<-c(8,9,0,3,2)
> a
[1] 8 9 0 3 2
> 
> a[3]<-56
> a
[1]  8  9 56  3  2
> a[2:4] <- c(100,1000,10000)
> a
[1]     8   100  1000 10000     2
> a[2:4] <- 0
> a
[1] 8 0 0 0 2
> 
> d
[1]   5   4   7   8  99  -3  30  99 101
> d[d<0] <- 0
> d
[1]   5   4   7   8  99   0  30  99 101
> 
> a<-c(8,9,0,3,2)
> a
[1] 8 9 0 3 2
> a<-c(8,9,80,3,2)
> a
[1]  8  9 80  3  2
> 
> q()