Create a function in R

Question

How do I create the following function in R?

f(1)=1
f(2)=2
f(3)=3
f(4)=1
f(5)=2
f(6)=3
f(7)=1
f(8)=2
f(9)=3

and so on...

I have tried to use different loops, but have not been able to do the job.

David Arenburg · Accepted Answer · 2015-03-22 20:28:26Z

4

Try this

Myfunc <- function(x) (x + 2L) %% 3L + 1L

Testing

Myfunc(1)
## [1] 1
Myfunc(2)
## [1] 2
Myfunc(3)
## [1] 3
Myfunc(1:9)
## [1] 1 2 3 1 2 3 1 2 3

answered Mar 22, 2015 at 20:28

David Arenburg

92.4k18 gold badges143 silver badges201 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

breakline · Accepted Answer · 2015-03-22 20:35:41Z

1

I don't know R but it can be done with Mod3 easily:

function modThree(x) {
   var mod = x%3;
   if(mod == 0) return 3;
   return mod;
}

answered Mar 22, 2015 at 20:35

breakline

6,1338 gold badges53 silver badges94 bronze badges

2 Comments

Gregor Thomas Over a year ago

For someone who doesn't know R, you're pretty close to R syntax. Make your first like modThree = function() {, get rid of var (don't have to declare things) and wrap your returns in parens return(3) and return(mod), and you've got a valid R function.

David Arenburg Over a year ago

I've actually also used Mod3 in my answer... Either-way, you can modify this to modThree <- function (x) { mod = x%%3 ;ifelse(mod == 0, 3 , mod) } and then it''ll work

Collectives™ on Stack Overflow

Create a function in R

2 Answers 2

Comments

2 Comments

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

2 Comments

Related