{"id":2176,"date":"2024-07-13T21:29:09","date_gmt":"2024-07-13T21:29:09","guid":{"rendered":"https:\/\/ibp.ir\/?p=2176"},"modified":"2024-12-17T07:55:40","modified_gmt":"2024-12-17T08:55:40","slug":"2-%d8%b4%d8%b1%d8%b7-%d9%87%d8%a7-%d9%88-%d8%ad%d9%84%d9%82%d9%87-%d9%87%d8%a7-%d8%af%d8%b1-r","status":"publish","type":"post","link":"https:\/\/ibp.ir\/?p=2176","title":{"rendered":"2: \u0634\u0631\u0637 \u0647\u0627 \u0648 \u062d\u0644\u0642\u0647 \u0647\u0627 \u062f\u0631 R"},"content":{"rendered":"
\n
\n
<\/div>\n<\/div>\n<\/div>\n
\n
<\/div>\n

R Notebook<\/h2>\n<\/div>\n

by: babak babaabasi<\/p>\n

\n

R If \u2026 Else<\/h2>\n
\n

Conditions and If Statements<\/h3>\n

\"\"<\/p>\n

 <\/p>\n

\n
<\/div>\n<\/div>\n<\/div>\n<\/div>\n
\n
<\/div>\n<\/div>\n
\n
\n
x = readline(prompt=\"Enter an integer number: \"<\/span>)\r\n\r\n\r\n\r\nif<\/span>(x>3<\/span>) print(\"Positive\"<\/span>)\r\nif<\/span>(x<7<\/span>) print(\"negative\"<\/span>)<\/code><\/pre>\n<\/div>\n<\/div>\n
Write the R script that take two integers as input and print out the larger number.<\/p>\n
\n
<\/div>\n<\/div>\n
\n
<\/div>\n<\/div>\n
\n
\n
A = as.numeric(readline(prompt=\"Enter first numbera: \"<\/span>))\r\nB = as.numeric(readline(prompt=\"Enter second number: \"<\/span>))\r\nif<\/span>(A > B) print(A)\r\nif<\/span>(B > A) print(B)\r\n\r\n\"\"<\/code><\/pre>\n<\/div>\n<\/div>\n
\n
<\/div>\n<\/div>\n
\n
<\/div>\n<\/div>\n
\n
\n
x = as.integer(readline(prompt=\"Enter an integer number: \"<\/span>))\r\nif<\/span>(x>0<\/span>) print(\"Positive\"<\/span>) else<\/span> print(\"Negative\"<\/span>)<\/code><\/pre>\n<\/div>\n<\/div>\n
You can also run a condition in an if<\/code> statement, which you will learn much more about in the if..else<\/a> chapter.<\/p>\n
\n
<\/div>\n<\/div>\n
\n
<\/div>\n<\/div>\n
\n
\n
a = 200<\/span>\r\nb = 33<\/span>\r\n\r\nif<\/span> (b > a) {\r\n  print (\"b is greater than a\"<\/span>)\r\n} else<\/span> {\r\n  print(\"b is not greater than a\"<\/span>)\r\n} <\/code><\/pre>\n<\/div>\n<\/div>\n
\n
<\/div>\n<\/div>\n
\n
<\/div>\n<\/div>\n
\n
\n
if<\/span> (b > a) {\r\n  (b*4<\/span>)\r\n} else<\/span> {\r\n  (b*2<\/span>)\r\n} <\/code><\/pre>\n<\/div>\n<\/div>\n
<\/p>\n
\n
<\/div>\n<\/div>\n
\n
<\/div>\n<\/div>\n
\n
\n
A = as.integer(readline(prompt=\"Enter an integer number: \"<\/span>))\r\nB = as.integer(readline(prompt=\"Enter an integer threshold: \"<\/span>))\r\nif<\/span>(A > B){\r\nprint(paste(A, \"is greater than threshold \"<\/span>, B), quote=F<\/span>)\r\n} else<\/span> if<\/span> (A < B){\r\nprint(paste(A, \"is less than threshold \"<\/span>, B), quote=F<\/span>)\r\n} else<\/span> {\r\nprint (paste(A, \"is equal to threshold \"<\/span>, B), quote=F<\/span>)\r\n}<\/code><\/pre>\n<\/div>\n<\/div>\n
\n
<\/div>\n<\/div>\n
\n
<\/div>\n<\/div>\n
\n
\n
\n
a <- 200<\/span>\r\nb <- 33<\/span>\r\n\r\nif<\/span> (b > a) {\r\n  print(\"b is greater than a\"<\/span>)\r\n} else<\/span> if<\/span> (a == b) {\r\n  print(\"a and b are equal\"<\/span>)\r\n} else<\/span> {\r\n  print(\"a is greater than b\"<\/span>)\r\n} <\/code><\/pre>\n<\/div>\n<\/div>\n<\/div>\n
\n
Nested If Statements<\/h3>\n
\n
<\/div>\n<\/div>\n<\/div>\n
\n
<\/div>\n<\/div>\n
\n
\n
\n
\n
x <- 44<\/span>\r\n\r\nif<\/span> (x > 10<\/span>) {\r\n  print(\"Above ten\"<\/span>)\r\n  if<\/span> (x > 20<\/span>) {\r\n    print(\"and also above 20!\"<\/span>)\r\n  } else<\/span> {\r\n    print(\"but not above 20.\"<\/span>)\r\n  }\r\n} else<\/span> {\r\n  print(\"below 10.\"<\/span>)\r\n} <\/code><\/pre>\n<\/div>\n<\/div>\n<\/div>\n<\/div>\n
\n
AND<\/h2>\n
The & symbol (and) is a logical operator, and is used to combine conditional statements:<\/p>\n
\n
<\/div>\n<\/div>\n<\/div>\n
\n
<\/div>\n<\/div>\n
\n
\n
\n
a <- 200<\/span>\r\nb <- 33<\/span>\r\nc <- 500<\/span>\r\n\r\nif<\/span> (a > b & c > a){\r\n  print(\"Both conditions are true\"<\/span>)\r\n}<\/code><\/pre>\n<\/div>\n<\/div>\n<\/div>\n
\n
OR<\/h2>\n
The |<\/code> symbol (or) is a logical operator, and is used to combine conditional statements:<\/p>\n
\n
<\/div>\n<\/div>\n<\/div>\n
\n
<\/div>\n<\/div>\n
\n
\n
\n
a <- 200<\/span>\r\nb <- 33<\/span>\r\nc <- 500<\/span>\r\n\r\nif<\/span> (a > b | a > c){\r\n  print(\"At least one of the conditions is true\"<\/span>)\r\n} <\/code><\/pre>\n<\/div>\n<\/div>\n<\/div>\n
\n
R While Loop<\/h2>\n
\"\"<\/p>\n<\/div>\n
\n
<\/h2>\n
\n
<\/div>\n<\/div>\n<\/div>\n
\n
<\/div>\n<\/div>\n
\n
\n
i = 1<\/span>\r\nwhile<\/span> (i < 6<\/span>) {\r\nprint(i)\r\ni = i+1<\/span>\r\n}<\/code><\/pre>\n<\/div>\n<\/div>\n
\n
<\/div>\n<\/div>\n
\n
<\/div>\n<\/div>\n
\n
\n
a=c(45<\/span>,67<\/span>,89<\/span>,90<\/span>,56<\/span>,44<\/span>,78<\/span>,34<\/span>)\r\ni = 1<\/span>\r\nl=length(a)\r\nf=0<\/span>\r\nwhile<\/span> (i <= l) {\r\n  f=a[i]+f\r\n  i = i+1<\/span>\r\n  m=f\/l\r\n  print(m)\r\n}<\/code><\/pre>\n<\/div>\n<\/div>\n
\n
<\/div>\n<\/div>\n
\n
<\/div>\n<\/div>\n
\n
\n
# R program to illustrate<\/span>\r\n# application of while loop<\/span>\r\n \r\n# assigning value to the variable<\/span>\r\n# whose factorial will be calculated<\/span>\r\nn < - 5<\/span>\r\n \r\n# assigning the factorial variable<\/span>\r\n# and iteration variable to 1<\/span>\r\nfactorial < - 1<\/span>\r\ni < - 1<\/span>\r\n \r\n# using while loop<\/span>\r\nwhile<\/span> (i <= n)\r\n{\r\n \r\n    # multiplying the factorial variable<\/span>\r\n    # with the iteration variable<\/span>\r\n    factorial = factorial * i\r\n \r\n    # incrementing the iteration variable<\/span>\r\n    i = i + 1<\/span>\r\n}\r\n \r\n# displaying the factorial<\/span>\r\nprint(factorial)\r\n\"\"<\/code><\/pre>\n<\/div>\n<\/div>\n
\n
<\/div>\n<\/div>\n
\n
<\/div>\n<\/div>\n
\n
\n
\n
\r\nn = 5<\/span>\r\nfactorial = 1<\/span>\r\ni = 1<\/span>\r\n\r\nwhile<\/span> (i <= n){\r\n    factorial = factorial * i\r\n    i = i + 1<\/span>\r\n}\r\n\r\nprint(factorial)<\/code><\/pre>\n<\/div>\n<\/div>\n<\/div>\n
\n
R For Loop<\/h2>\n
\"\"<\/p>\n<\/div>\n
\n
<\/h2>\n
\n
<\/div>\n<\/div>\n<\/div>\n
\n
<\/div>\n<\/div>\n
\n
\n
for<\/span> (val in<\/span> sequence)\r\n{\r\nstatement\r\n}<\/code><\/pre>\n<\/div>\n<\/div>\n
\n
<\/div>\n<\/div>\n
\n
<\/div>\n<\/div>\n
\n
\n
f = c(2<\/span>,5<\/span>,3<\/span>,9<\/span>,8<\/span>,11<\/span>,6<\/span>,11<\/span>,12<\/span>,20<\/span>)\r\ncount = 0<\/span>\r\nfor<\/span> (val in<\/span> f) {\r\nif<\/span>(val %% 2<\/span> == 0<\/span>)  \r\ncount = count+1<\/span>\r\n}\r\nprint(count)<\/code><\/pre>\n<\/div>\n<\/div>\n
factorial by for<\/p>\n
\n
<\/div>\n<\/div>\n
\n
<\/div>\n<\/div>\n
\n
\n
num =6<\/span>\r\nfactorial = 1<\/span>\r\nfor<\/span>(i in<\/span> 1<\/span>:num) {\r\nfactorial = factorial * i\r\n}\r\nprint(paste(\"The factorial of\"<\/span>, num ,\"is\"<\/span>,factorial))<\/code><\/pre>\n<\/div>\n<\/div>\n
factorial by for<\/p>\n
\n
<\/div>\n<\/div>\n
\n
<\/div>\n<\/div>\n
\n
\n
\n
# take input from the user<\/span>\r\nnum = as.integer(readline(prompt=\"Enter a number: \"<\/span>))\r\nfactorial = 1<\/span>\r\n# check is the number is negative, positive or zero<\/span>\r\nif<\/span>(num < 0<\/span>) {\r\nprint(\"Sorry, factorial does not exist for negative numbers\"<\/span>)\r\n} else<\/span> if<\/span>(num == 0<\/span>) {\r\nprint(\"The factorial of 0 is 1\"<\/span>)\r\n} else<\/span> {\r\nfor<\/span>(i in<\/span> 1<\/span>:num) {\r\nfactorial = factorial * i\r\n}\r\nprint(paste(\"The factorial of\"<\/span>, num ,\"is\"<\/span>,factorial))\r\n}<\/code><\/pre>\n<\/div>\n<\/div>\n<\/div>\n
\n
break statement<\/h2>\n
\"\"<\/p>\n
 <\/p>\n
\n
<\/div>\n<\/div>\n<\/div>\n
\n
<\/div>\n<\/div>\n
\n
\n
\n
x <- 1<\/span>:5<\/span>\r\nfor<\/span> (val in<\/span> x) {\r\nif<\/span> (val == 3<\/span>){\r\nbreak<\/span>\r\n}\r\nprint(val)\r\n}<\/code><\/pre>\n<\/div>\n<\/div>\n<\/div>\n
\n
Function<\/h2>\n
\n
<\/div>\n<\/div>\n<\/div>\n
\n
<\/div>\n<\/div>\n
\n
\n
my_function <- function<\/span>() {\r\n  print(\"Hello World!\"<\/span>)\r\n}\r\nmy_function() # call the function named my_function =<\/span><\/code><\/pre>\n<\/div>\n<\/div>\n
\n
<\/div>\n<\/div>\n
\n
<\/div>\n<\/div>\n
\n
\n
meanlog=function<\/span>(x,y){\r\n  b=log(mean(x)+mean(y))\r\n  print(b)\r\n}\r\na=c(45<\/span>,67<\/span>,89<\/span>,90<\/span>)\r\nh=c(2<\/span>,4<\/span>,55<\/span>,67<\/span>,88<\/span>)\r\nt=c(55<\/span>,67<\/span>,99<\/span>,89<\/span>)\r\nmeanlog(a,t)<\/code><\/pre>\n<\/div>\n<\/div>\n
\n
<\/div>\n<\/div>\n
\n
<\/div>\n<\/div>\n
\n
\n
novin = function<\/span>(x,y) {\r\n  paste(x,\"hasani\"<\/span>,y, \"bagheri\"<\/span>)\r\n}\r\n\r\n\r\n\r\nnovin(\"zahra\"<\/span>,\"hoseen\"<\/span>)\r\n<\/code><\/pre>\n<\/div>\n<\/div>\n
\n
<\/div>\n<\/div>\n
\n
<\/div>\n<\/div>\n
\n
\n
bmi = function<\/span>(ghad,vazn) {\r\n  x=vazn\/(ghad^2<\/span>)\r\n  print(paste(x,\"your bmi\"<\/span>))\r\n}\r\n\r\n\r\n\r\n\r\nbmi(1.60<\/span>,65<\/span>)<\/code><\/pre>\n<\/div>\n<\/div>\n
\n
<\/div>\n<\/div>\n
\n
<\/div>\n<\/div>\n
\n
\n
\n
my_function = function<\/span>(fname, lname) {\r\n  paste(fname, lname)\r\n}\r\n\r\nmy_function(\"Peter\"<\/span>, \"Griffin\"<\/span>) <\/code><\/pre>\n<\/div>\n<\/div>\n<\/div>\n
\n
Default Parameter Value<\/h2>\n
The following example shows how to use a default parameter value.<\/p>\n
If we call the function without an argument, it uses the default value:<\/p>\n
\n
<\/div>\n<\/div>\n<\/div>\n
\n
<\/div>\n<\/div>\n
\n
\n
\n
my_function <- function<\/span>(country = \"Norway\"<\/span>) {\r\n  paste(\"I am from\"<\/span>, country)\r\n}\r\n\r\nmy_function(\"Sweden\"<\/span>)\r\nmy_function(\"India\"<\/span>)\r\nmy_function() # will get the default value, which is Norway<\/span>\r\nmy_function(\"USA\"<\/span>) <\/code><\/pre>\n<\/div>\n<\/div>\n<\/div>\n
\n
Return Values<\/h2>\n
To let a function return a result, use the return()<\/code> function:<\/p>\n
\n
<\/div>\n<\/div>\n<\/div>\n
\n
<\/div>\n<\/div>\n
\n
\n
my_function <- function<\/span>(x) {\r\n  return<\/span> (5<\/span> * x)\r\n}\r\n\r\nprint(my_function(3<\/span>))\r\nprint(my_function(5<\/span>))\r\nprint(my_function(9<\/span>))<\/code><\/pre>\n<\/div>\n<\/div>\n
\n
<\/div>\n<\/div>\n
\n
<\/div>\n<\/div>\n
\n
\n
v=c(5<\/span>,6<\/span>,8<\/span>,9<\/span>,14<\/span>)\r\nrescale <- function<\/span>(v) { # Rescales a vector, v, to lie in the range 0 to 1.<\/span>\r\nL <- min(v)\r\nH <- max(v)\r\nresult <- (v - L) \/ (H - L)\r\nreturn<\/span>(result)\r\n}\r\nrescale(v)<\/code><\/pre>\n<\/div>\n<\/div>\n
\n
<\/div>\n<\/div>\n
\n
<\/div>\n<\/div>\n
\n
\n
\n
\n
sahar=function<\/span>(n){\r\n  factorial = 1<\/span>\r\n  i = 1<\/span>\r\nwhile<\/span> (i <= n)\r\n{\r\n    factorial = factorial * i\r\n    i = i + 1<\/span>\r\n}\r\nprint(factorial)\r\n}\r\nsahar(5<\/span>)<\/code><\/pre>\n<\/div>\n<\/div>\n<\/div>\n
\n
END(1-2)<\/h1>\n<\/div>\n<\/div>\n","protected":false},"excerpt":{"rendered":"
R Notebook by: babak babaabasi R If \u2026 Else Conditions and If Statements   x = readline(prompt=”Enter an integer number: “) if(x>3) print(“Positive”) if(x<7) print(“negative”) Write the R script that take two integers as input and print out the larger number. A = as.numeric(readline(prompt=”Enter first numbera: “)) B = as.numeric(readline(prompt=”Enter second number: “)) if(A > B) print(A) if(B > A) print(B) x = as.integer(readline(prompt=”Enter an integer number: “)) if(x>0) print(“Positive”) else print(“Negative”) You can also run a[…]<\/p>\n","protected":false},"author":1,"featured_media":2149,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[],"class_list":["post-2176","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-1"],"views":89,"_links":{"self":[{"href":"https:\/\/ibp.ir\/index.php?rest_route=\/wp\/v2\/posts\/2176","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/ibp.ir\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/ibp.ir\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/ibp.ir\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/ibp.ir\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=2176"}],"version-history":[{"count":6,"href":"https:\/\/ibp.ir\/index.php?rest_route=\/wp\/v2\/posts\/2176\/revisions"}],"predecessor-version":[{"id":2203,"href":"https:\/\/ibp.ir\/index.php?rest_route=\/wp\/v2\/posts\/2176\/revisions\/2203"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/ibp.ir\/index.php?rest_route=\/wp\/v2\/media\/2149"}],"wp:attachment":[{"href":"https:\/\/ibp.ir\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=2176"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/ibp.ir\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=2176"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/ibp.ir\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=2176"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}