Recursive Function in R

=====================================================

Nama Mahasiswa : Syafri Maulana Alfatih

NIM : 220605110139

Kelas : B

Mata Kuliah : Linear Algebra

Dosen Pengampu : Prof.Dr.Suhartono,M.Kom

Prodi : Teknik Informatika

Universitas : UIN Maulana Malik Ibrahim Malang

=====================================================

ls <- list(a = 1:5, b = 100:110, c = c('a', 'b', 'c'))
  
cat("Whole List: \n")

## Whole List:

print(ls)

## $a
## [1] 1 2 3 4 5
## 
## $b
##  [1] 100 101 102 103 104 105 106 107 108 109 110
## 
## $c
## [1] "a" "b" "c"

cat("Using replace mode:\n")

## Using replace mode:

rapply(ls, mean, how = "replace", classes = "integer")

## $a
## [1] 3
## 
## $b
## [1] 105
## 
## $c
## [1] "a" "b" "c"

ls <- list(a = 1:5, b = 100:110, c = c('a', 'b', 'c'))
  
cat("Whole List: \n")

## Whole List:

print(ls)

## $a
## [1] 1 2 3 4 5
## 
## $b
##  [1] 100 101 102 103 104 105 106 107 108 109 110
## 
## $c
## [1] "a" "b" "c"

cat("Using list mode:\n")

## Using list mode:

rapply(ls, mean, how = "list", classes = "integer")

## $a
## [1] 3
## 
## $b
## [1] 105
## 
## $c
## NULL

ls <- list(a = 1:5, b = 100:110, c = c('a', 'b', 'c'))
  
cat("Whole List: \n")

## Whole List:

print(ls)

## $a
## [1] 1 2 3 4 5
## 
## $b
##  [1] 100 101 102 103 104 105 106 107 108 109 110
## 
## $c
## [1] "a" "b" "c"

cat("Using unlist mode:\n")

## Using unlist mode:

rapply(ls, mean, how = "unlist", classes = "integer")

##   a   b 
##   3 105