FilesExpand file tree

 master

/

firstfunction.R

Copy path

Blame

More file actions

Blame

More file actions

Latest commit

 

History

History

History

36 lines (31 loc) · 634 Bytes

 master

/

firstfunction.R

Copy path

Top

File metadata and controls

• Code
• Blame

36 lines (31 loc) · 634 Bytes

Raw

Copy raw file

Download raw file

Open symbols panel

Edit and raw actions

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

add2 <- function(x, y) {

x + y

}

above10 <- function(x) {

use <- x > 10

x[use]

}

above <- function(x, n) {

use <- x > n

x[use]

}

above <- function(x, n = 10) {

use <- x > n

x[use]

}

columnmean <- function(x) {

nc <- ncol(x)

means <- numeric(nc)

for(i in seq_len(nc)) {

means[i] <- mean(x[, i])

}

means

}

columnmean <- function(x, removeNA = TRUE) {

nc <- ncol(x)

means <- numeric(nc)

for(i in seq_len(nc)) {

means[i] <- mean(x[, i], na.rm = removeNA)

}

means

}