How can i create a function that returns a vector in R?
I want to create a function that returns its result as a vector, more specifically a function that returns the divisors of an input value and places them inside a vector.
divisors<-function(n){
i <- 2
c<-1
x<-c()
while(i <= n) {
if(n%%i==0) {
x[c]<-i
}
i <- i + 1
c<-c+1
x
}
}
r
asked Nov 16 '18 at 1:50
graphboigraphboi
61
add a comment |
I want to create a function that returns its result as a vector, more specifically a function that returns the divisors of an input value and places them inside a vector.
divisors<-function(n){
i <- 2
c<-1
x<-c()
while(i <= n) {
if(n%%i==0) {
x[c]<-i
}
i <- i + 1
c<-c+1
x
}
}
r
asked Nov 16 '18 at 1:50
graphboigraphboi
61
add a comment |
I want to create a function that returns its result as a vector, more specifically a function that returns the divisors of an input value and places them inside a vector.
divisors<-function(n){
i <- 2
c<-1
x<-c()
while(i <= n) {
if(n%%i==0) {
x[c]<-i
}
i <- i + 1
c<-c+1
x
}
}
r
asked Nov 16 '18 at 1:50
graphboigraphboi
61
I want to create a function that returns its result as a vector, more specifically a function that returns the divisors of an input value and places them inside a vector.
divisors<-function(n){
i <- 2
c<-1
x<-c()
while(i <= n) {
if(n%%i==0) {
x[c]<-i
}
i <- i + 1
c<-c+1
x
}
}
r
r
asked Nov 16 '18 at 1:50
graphboigraphboi
61
asked Nov 16 '18 at 1:50
graphboigraphboi
61
asked Nov 16 '18 at 1:50
graphboigraphboi
61
asked Nov 16 '18 at 1:50
graphboigraphboi
61
asked Nov 16 '18 at 1:50
graphboigraphboi
61
61
add a comment |
add a comment |
1 Answer
1
active
oldest
votes
You just need a return statement at the end of the function. You should also have c <- c+1 be inside the if statement. Here's an improved version of your function:
divisors <- function(n) {
i <- 2
c <- 1
x <- c()
while(i <= n) {
if(n %% i==0) {
x[c] <- i
c <- c+1
}
i <- i + 1
}
return (x)
}
A faster version might look like this:
divisors <- function(n) {
x <- n / (n-1):1
x[round(x) == x]
}
which doesn't use the return statement, but returns the last evaluated expression (namely x[round(x) == x]).
answered Nov 16 '18 at 1:55
mickeymickey
1,4402418
thank you, i see where i was confused :)
– graphboi
Nov 16 '18 at 2:03
add a comment |
Your Answer
StackExchange.ifUsing("editor", function () {
StackExchange.using("externalEditor", function () {
StackExchange.using("snippets", function () {
StackExchange.snippets.init();
});
});
}, "code-snippets");
StackExchange.ready(function() {
var channelOptions = {
tags: "".split(" "),
id: "1"
};
initTagRenderer("".split(" "), "".split(" "), channelOptions);
StackExchange.using("externalEditor", function() {
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using("snippets", function() {
createEditor();
});
}
else {
createEditor();
}
});
function createEditor() {
StackExchange.prepareEditor({
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader: {
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
},
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
});
}
});
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53330345%2fhow-can-i-create-a-function-that-returns-a-vector-in-r%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
1 Answer
1
active
oldest
votes
1 Answer
1
active
oldest
votes
active
oldest
votes
active
oldest
votes
You just need a return statement at the end of the function. You should also have c <- c+1 be inside the if statement. Here's an improved version of your function:
divisors <- function(n) {
i <- 2
c <- 1
x <- c()
while(i <= n) {
if(n %% i==0) {
x[c] <- i
c <- c+1
}
i <- i + 1
}
return (x)
}
A faster version might look like this:
divisors <- function(n) {
x <- n / (n-1):1
x[round(x) == x]
}
which doesn't use the return statement, but returns the last evaluated expression (namely x[round(x) == x]).
answered Nov 16 '18 at 1:55
mickeymickey
1,4402418
thank you, i see where i was confused :)
– graphboi
Nov 16 '18 at 2:03
add a comment |
You just need a return statement at the end of the function. You should also have c <- c+1 be inside the if statement. Here's an improved version of your function:
divisors <- function(n) {
i <- 2
c <- 1
x <- c()
while(i <= n) {
if(n %% i==0) {
x[c] <- i
c <- c+1
}
i <- i + 1
}
return (x)
}
A faster version might look like this:
divisors <- function(n) {
x <- n / (n-1):1
x[round(x) == x]
}
which doesn't use the return statement, but returns the last evaluated expression (namely x[round(x) == x]).
answered Nov 16 '18 at 1:55
mickeymickey
1,4402418
thank you, i see where i was confused :)
– graphboi
Nov 16 '18 at 2:03
add a comment |
You just need a return statement at the end of the function. You should also have c <- c+1 be inside the if statement. Here's an improved version of your function:
divisors <- function(n) {
i <- 2
c <- 1
x <- c()
while(i <= n) {
if(n %% i==0) {
x[c] <- i
c <- c+1
}
i <- i + 1
}
return (x)
}
A faster version might look like this:
divisors <- function(n) {
x <- n / (n-1):1
x[round(x) == x]
}
which doesn't use the return statement, but returns the last evaluated expression (namely x[round(x) == x]).
answered Nov 16 '18 at 1:55
mickeymickey
1,4402418
You just need a return statement at the end of the function. You should also have c <- c+1 be inside the if statement. Here's an improved version of your function:
divisors <- function(n) {
i <- 2
c <- 1
x <- c()
while(i <= n) {
if(n %% i==0) {
x[c] <- i
c <- c+1
}
i <- i + 1
}
return (x)
}
A faster version might look like this:
divisors <- function(n) {
x <- n / (n-1):1
x[round(x) == x]
}
which doesn't use the return statement, but returns the last evaluated expression (namely x[round(x) == x]).
answered Nov 16 '18 at 1:55
mickeymickey
1,4402418
answered Nov 16 '18 at 1:55
mickeymickey
1,4402418
answered Nov 16 '18 at 1:55
mickeymickey
1,4402418
answered Nov 16 '18 at 1:55
mickeymickey
1,4402418
1,4402418
thank you, i see where i was confused :)
– graphboi
Nov 16 '18 at 2:03
add a comment |
thank you, i see where i was confused :)
– graphboi
Nov 16 '18 at 2:03
thank you, i see where i was confused :)
– graphboi
Nov 16 '18 at 2:03
thank you, i see where i was confused :)
– graphboi
Nov 16 '18 at 2:03
add a comment |
Thanks for contributing an answer to Stack Overflow!
- Please be sure to answer the question. Provide details and share your research!
But avoid …
- Asking for help, clarification, or responding to other answers.
- Making statements based on opinion; back them up with references or personal experience.
To learn more, see our tips on writing great answers.
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53330345%2fhow-can-i-create-a-function-that-returns-a-vector-in-r%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
