1.Case Conversion using R

print("First 10 letters in lower case:")

  t=head(letters,10)

print(t)

print("Last10 letters in uppercase:")

t = tail(LETTERS, 10)

print(t)

print("Letters between 22^nd to 24^th letters in uppercase:")

e = tail(LETTERS[22:24])

print(e)

 

2.Finding Maximum and Minimum Number using Vector

nums = c(10, 20, 30, 40, 50, 60)

print(nums)

print(paste("Maximum value of the vector:",max(nums)))

print(paste("Minimum value of the Vector:",min(nums)))

print(paste("Mean of the said vector:",mean(nums)))

print(paste("Variance of the said vector:",var(nums)))

print(paste("Standard Deviation of the vector:",sd(nums)))

 

3.Sorting the values using DataFrame

exam_data=data.frame(

name=c('Anastasia','Dima','Katherine','James','Emily','Michael','Matthew', 'Laura', 'Kevin', 'Jonas'),

score=c(12.5,9,16.5,12,9,20,14.5,13.5,8,19),

attempts=c(1, 3,2,3, 2,3,1,1,2,1),

qualify=c('yes','no','yes','no','no','yes','yes','no','no','yes'))

print("Originaldataframe:") print(exam_data)

print("dataframe after sorting 'name' and 'score' columns:") exam_data=exam_data[with(exam_data,order(name,score)),] print(exam_data)

 

 

4.Remove duplicate values in two Vectors

a= c(10,20,10,10,40,50,20,30)

b= c(10,30,10,20,0,50,30,30)

print("Original data frame:")

ab = data.frame(a,b)

print(ab)

print("Duplicateelementsofthesaiddataframe:")

print(duplicated(ab))

print(unique(ab))

 

5.Create a Blank Matrix

m= matrix(, nrow = 10, ncol= 5)

print("Emptymatrix of 10 rows and 5 columns:")

print(m)

M=matrix(c(1:16),nrow=4,byrow=TRUE) print("Original Matrix:")

print(M)

 

6.Matrix Manipulation

m1=matrix(c (1,2,3,4,5,6), nrow=2) print("Matrix-1:")

print(m1)

m2=matrix(c(0,1,2,3,0,2), nrow=2) print("Matrix-2:")

print(m2)

result = m1 + m2 print("Result of addition") print(result)

result = m1 - m2

print("Result of subtraction") print(result)

result=m1*m2

print("Result of multiplication")

print(result)

result = m1 / m2

print("Result of division:") print(result)

 

7.Combine two vector values

v1 = c(1,3,5,7,9)

v2=c(2,4,6,8,10)

print("Original vectors:") print(v1)

print(v2)

print("Combines the said two vectors by columns:") result = cbind(v1,v2)

print(result)

print("Combines the said two vectors by rows:")

result = rbind(v1,v2)

print(result)

 

8.Program for Co-Variance

x <- c(1, 3, 5, 10)

y <- c(2, 4, 6, 20)

print(cov(x, y))

print(cov(x, y, method = "pearson"))

print(cov(x, y, method = "kendall"))

print(cov(x, y, method = "spearman"))

 

9.Program for Correlation:

x <- c(1, 3, 5, 10)

y <- c(2, 4, 6, 20)

print(cor(x, y))

print(cor(x, y, method = "pearson"))

print(cor(x, y, method = "kendall"))

print(cor(x, y, method = "spearman"))

 

 

10.Program to compute sum, mean and product of a given vector elements.

nums = c(10,20,30,50, 96, 45, 25)

print('Original vector:')

print(nums)

print(paste("Sum of vector elements:",sum(nums)))

print(paste("Mean of vector elements:",mean(nums)))

print(paste("Product of vector elements:",prod(nums)))

 

11.Sort a Vector in ascending and descending order.

x = c(10, 20, 30, 25, 9, 26)

print("Original Vectors:")

print(x)

print("Sort in ascending order:")

print(sort(x))

print("Sort in descending order:")

print(sort(x, decreasing=TRUE))