M

@Manavdavecode

Data frame

R
3 years ago
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("Duplicate elements of the said data frame") print(Duplicate(ab)) print("Unique rows of the said data frame") print(unique(ab))

Calculate factorial

R
3 years ago
findfact=function(n){ factorial=1 if(n<0) print("Factorial of negative number is not possible") else if(n == 0) print("Factorial of 0 is 1") else{ for(i in 1:n) factorial=factorial*i

Calculate factorial

R
3 years ago
findfact=function(n){ factorial=1 if(n<0) print("Factorial of negative number is not possible") else if(n == 0) print("Factorial of 0 is 1") else{ for(i in 1:n) factorial=factorial*i

Prime numbers

R
3 years ago
n=readline(prompt="please enter any integer value:") n=as.integer(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) }

Accessing subset of a matrix

R
3 years ago
A=matrix(c(1:12),nrow=3,ncol=4,byrow=TRUE) print(A) print(A[c(1,2),c(3,4)]) print(A[c(2,3),]) print(A[,c(1,4)]) print(A[-2,]) print(A[-2,-3]) print(A[,c(-3,-4)])

Accessing matrix elements

R
3 years ago
A=matrix(c(1:12),nrow=3,ncol=4,byrow=TRUE) print(A[1,2]) print(A[3,4]) print(A[2,]) print(A[,4]) print(A[,])

Array addition and subtraction

R
3 years ago
vect1=c(10,20,40) vect2=c(55,67,89,96,100) A=array(c(vect1,vect2),dim=c(3,4,2)) print(A) mat.A=A[,,1] mat.B=A[,,2] print(mat.A + mat.B) print(mat.B - mat.A)

Accessing subset of a Array elements

R
3 years ago
A=array(1:24, dim=c(3,4,2)) print(A[c(1,3),c(2,4),1]) print(A[c(2,3),,2]) print(A[,c(1,4),1]) print(A[-2,-3,2])

Merging list

R
3 years ago
even=list(2,4,6) odd=list(1,3,5) mix=list(even,odd) print(mix)

Converting list to vector

R
3 years ago
list1=list (2:5) list2=list (11:14) list1+list2 v1=unlist(list1) v2=unlist(list2) v1+v2

Manipulation of list elements

R
3 years ago
list1=list(10,20,30) list1 list1[4]=40 list1 list1[2]=200 list1 list1[4]=NULL list1

Arithmetic operations

R
3 years ago
a=c(8,4,10) b=c(2,6,5) a+b a-b a*b a/b a%%a a%/%b

Combining vectors

R
3 years ago
a=c(1,2,3) b=c("p","q","r") c=c(a,b) c d=(b,a) d