1.Write R program that takes your name as an input and output each letter of your name as an output.

SOLUTION

{

name <- as.character ( readline(prompt="Input your name: "))

x <-nchar(name)

for ( i in x) {

output <- strsplit(name,"")

print(output)

}

i = i+1

}

2.Give one example that uses break statement within while loop.

SOLUTION

# while loop with break statement

i <- 1

while (i <= 6) {

if (i==4)

break;

print(i*i)

i = i+1

}

3.Give one example that uses next statement within for loop.

SOLUTION

#R Next Statement Example within for loop

number <- 1:20

for (val in number) {

if (val %% 2 != 0) {

print(paste("ODD Number = ", val, "(Skipped by Next Statement)"))

next

}

print(paste("EVEN Number = ", val))

}

4.Write R program that determine whether the given number by the user is odd or even.

SOLUTION

# A number is even, if divided by number 2 gives a remainder of 0.

# If remainder is 1, it is odd number.

#as. integer attempts to coerce its argument to be of integer type.

#Paste function in R is used to concatenate Vectors by converting them into character.

num <- as.integer (readline(prompt = "Enter a number: " ))

if((num %% 2) == 0) {

print(paste(num,"is Even"))

} else {

print(paste(num,"is Odd"))

}

5.VAT has different rate according to the product purchased. Imagine we have three different kinds of products with different VAT applied:

We can write a chain to apply the correct VAT rate to the product a customer bought.

SOLUTION

# Taking category A with price 10

category <- 'A'

price <- 10

if (category =='A'){

cat('A vat rate of 8% is applied.','The total price is',price *1.08)

} else if (category =='B'){

cat('A vat rate of 10% is applied.','The total price is',price *1.10)

} else {

cat('A vat rate of 20% is applied.','The total price is',price *1.20)

}

## 0 Comments