Basic R Programming | R Programming Solved Assignment

 Assignment 1: Basic R Programming

1. Write a R program to take input from the user (name and age) and display the values. Also print the version of R installation.

Answer :

name <- readline(prompt="Enter name: ") age <- readline(prompt="Enter age: ") print(paste("My name is",name, "and I am",age ,"years old.")) print(R.version.string)

2. Write a R program to get the details of the objects in memory.

Answer :

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

SET A:

1. Write a R program to accept dimensions of a cylinder and print the surface area and volume.

Answer :

radius <- readline(prompt="Enter an integer: ") radius <- as.integer(radius) height <- readline(prompt="Enter an integer: ") height <- as.integer(height) sarea<-2*pi*radius*(radius+height) volume<-pi*radius*radius*height print("Surface Area of Cylinder") print(sarea) print("Volume of Cylinder") print(volume)

2. Write a R program to accept temperatures in Fahrenheit (F) and print it in Celsius(C) and Kelvin (K).

Answer :

fer <- readline(prompt="Enter an integer: ") fer <- as.integer(fer) cel <- (fer-32)/1.8 print(paste("Celsius",cel))print(cel kel <-(fer-32)/1.8+273.15 print(paste("Kelvin",kel))

3. Write a R program to accept two numbers and print arithmetic and harmonic mean of the two number.

Answer :

a<- readline(prompt="Enter First Value: ") a <- as.integer(a) b <- readline(prompt="Enter second value: ") b <- as.integer(b) am <- (a+b)/2 hm <- (a*b)/(a+b) print(paste("Arithmatic Mean",am)) print(paste("Harmonic mean",hm))

4. Accept three dimensions length (l), breadth(b) and height(h) of a cuboid and print surface area and volume

Answer :

l<- readline(prompt="Enter Length : ") l <- as.integer(l) b <- readline(prompt="Enter Breadth : ") b <- as.integer(b) h <- readline(prompt="Enter Height: ") h <- as.integer(h) sarea <- 2*(l*b + l*h + b*h) volume <- (l*b*h) print(paste("The Surface area of a cuboid",sarea)) print(paste("The volume of a cuboid",volume))

SET B:

1. Accept the x and y coordinates of two points and computes the distance between the two points.

Answer :

x1<- readline(prompt="Enter x1 value : ") x1 <- as.integer(x1) y1 <- readline(prompt="Enter y1 value : ") y1 <- as.integer(y1) x2 <- readline(prompt="Enter x2 value: ") x2 <- as.integer(x2) y2 <- readline(prompt="Enter y2 value: ") y2 <- as.integer(y2) distance = sqrt( (x2 - x1)*(x2 - x1) + (y2 - y1)*(y2 - y1) ) print(paste(“Distance Between Points are : “, distance))

2. A cashier has currency notes of denomination 1, 5 and 10. Accept the amount to be withdrawn from the user and print the total number of currency notes of each denomination the cashier will have to give.

Answer :

w = as.integer(readline(prompt = "Enter withdrow amount :")) x <- w/10 w <- w%%10 y <- w/5 w <- w%%5 z <- w x1 <- as.integer(x) y1 <- as.integer(y) z1 <- as.integer(z) print(paste("note of 10 :",x1)) print(paste("note of 5 :",y1)) print(paste("note of 1 :",z1))

SET C:

1. Write a R program to create a sequence of numbers from 20 to 50 and find the mean of numbers from 20 to 60 and sum of numbers from 51 to 91.

Answer :

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))