Worksheet

4+3/3*4

## [1] 8

R Markdown

rnorm(4, mean=10, sd=2)

## [1]  8.868415 12.430180 10.409176  6.064602

{

mean(sample(1:10, 5))

## [1] 6

plot(x=sample(1:10,5), y=sample(1:10,5),
     main="Five random points", xlab="X values", ylab="Y values")

a = c(4,7,12,22, 36, 42,56,32,85,92,26,32)
a

##  [1]  4  7 12 22 36 42 56 32 85 92 26 32

length(a)

## [1] 12

mode(a)

## [1] "numeric"

mean(a)

## [1] 37.16667

sqrt(a)

##  [1] 2.000000 2.645751 3.464102 4.690416 6.000000 6.480741 7.483315 5.656854
##  [9] 9.219544 9.591663 5.099020 5.656854

g <- c("f", "m", "m", "m", "f", "m", "f", "m", "f", "f")
g

##  [1] "f" "m" "m" "m" "f" "m" "f" "m" "f" "f"

g <- factor(g)

a <- factor(c('adult', 'adult', 'juvenile', 'juvenile', 'adult', 
              'adult', 'adult', 'juvenile', 'adult', 'juvenile'))

table(a,g)

##           g
## a          f m
##   adult    4 2
##   juvenile 1 3