basic

https://www.w3resource.com/r-programming-exercises/

R programming Exercises, Practice, Solution - w3resource

 

https://www.w3schools.com/r/exercise.asp

W3Schools R Exercise

 

 

터미널에서..

>Rscript ~~.R

또는

R 상태에서

R> source("~~.R")

 

basic1.R

name <- readline(prompt="Inputer your name : ")
age <- readline(prompt="Inputer your age : ")
print(paste("Your name is : ", name, " and your age is : ", age))
print(R.version.string)

 

 

basic2.R

name = "korea"
n1 = 10
n2 = 0.5
nums = c(10,20,30,40,50,60)
print(ls())
print("Details of the objects in memory: ")
print(ls.str())

 

basic3.R

print("Sequence of numbers from 20 to 50 :")
print(seq(20,50))
print("Mean of numbers from 20 to 60 :")
print(mean(20:60))
print("Sum of numbers from 51 to 91 :")
print(sum(51:91))

 

basic4.R

v = sample(-50:50, 10, replace=FALSE)
print("Content of the vector :")
print("10 random integer values between -50 and +50 :")
print(v)

 

basic5.R

Fibonacci <- numeric(10)
Fibonacci[1] <- Fibonacci[2] <- 1

for(i in 3:10) Fibonacci[i] <- Fibonacci[i-2] + Fibonacci[i-1]

print("First 10 Fibonacci numbers :")
print(Fibonacci)

 

basic6.R

prime_numbers <- function(n)
{
  if(n >=2) 
  {
    x = seq(2,n)
    prime_nums = c()
    
    for(i in seq(2,n))
    {
      if(any(x == i))
      {
        prime_nums = c(prime_nums, i)
        x = c(x[(x %% i) != 0], i)
      }
    }
    
    return (prime_nums)
  }
  else {
    stop("Input number should be at least 2. ")
  }
}

#prime_numbers(12)