LATIHAN WEEK 3

#1. VEKTOR
#combine untuk menggabungkan data
angka <- c(1,2,3,4,5)
angka

## [1] 1 2 3 4 5

#Sepuence untuk membuat barisan angka dengan pola tertentu
bilangan <- seq(1,10, by=3)
bilangan

## [1]  1  4  7 10

#Rep() Repeat untuk pengulangan
#rep times untuk mengulang seluruh kelompok data
rep(c(1,2,3), times=3)

## [1] 1 2 3 1 2 3 1 2 3

#rep each untuk mengulang setiap elemen satu persatu
rep(c(1,2,3),each=2)

## [1] 1 1 2 2 3 3

#2. FACTOR
#untuk menyimpan data kategorik
pendidikan <- c("SD", "SMP", "SMA")
factor(pendidikan, levels=c("SD","SMP","SMA"),ordered=TRUE)

## [1] SD  SMP SMA
## Levels: SD < SMP < SMA

#3. MATRIKS
#matriks coloumn-wise
matriks1<-matrix(1:6,nrow=2,ncol=3)
matriks1

##      [,1] [,2] [,3]
## [1,]    1    3    5
## [2,]    2    4    6

#1:6 maksudnya urutan angka dari 1-6
#matriks row-wise
matriks2<-matrix(1:6,nrow=2,ncol=3,byrow=TRUE)
matriks2

##      [,1] [,2] [,3]
## [1,]    1    2    3
## [2,]    4    5    6

#mengambil elemen baris dan kolom
matriks1[1,2]

## [1] 3

#mengambil seluruh baris
matriks2[2, ]

## [1] 4 5 6

#mengambil kolom 1 dan 2
matriks1[ ,c(1,2)]

##      [,1] [,2]
## [1,]    1    3
## [2,]    2    4

#4.ARRAY
V1<-c(1,2,3,4,5)
V2<-c(10,20,30,40,50,60,70)
#membuat array 4x4x3 (4 baris, 4 coloumn, 3 matriks)
arr<-array(c(V1,V2), dim=c(4,4,3))
arr

## , , 1
## 
##      [,1] [,2] [,3] [,4]
## [1,]    1    5   40    1
## [2,]    2   10   50    2
## [3,]    3   20   60    3
## [4,]    4   30   70    4
## 
## , , 2
## 
##      [,1] [,2] [,3] [,4]
## [1,]    5   40    1    5
## [2,]   10   50    2   10
## [3,]   20   60    3   20
## [4,]   30   70    4   30
## 
## , , 3
## 
##      [,1] [,2] [,3] [,4]
## [1,]   40    1    5   40
## [2,]   50    2   10   50
## [3,]   60    3   20   60
## [4,]   70    4   30   70

#5. DATA FRAME
nama<-c("HAZI","IIN","KUR","ACIN")
umur<-c(18,18,19,19)
asal<-c("Banyumas","Cilacap","Rembang","Jepara")
df<-data.frame(NAMA=nama,UMUR=umur,ASAL=asal)
df

##   NAMA UMUR     ASAL
## 1 HAZI   18 Banyumas
## 2  IIN   18  Cilacap
## 3  KUR   19  Rembang
## 4 ACIN   19   Jepara

#6. LIST
#mirip vektor tapi tie data nya beda beda
nama<-"hajimah"
nilai<-c(80,90,100)
matriksnew<-matrix(1:4,nrow=2)
arraynew<-array(1:6,dim=c(2,2,2))
df_hazi<-data.frame(nama=c("gamma","hazi"), jurusan=c("SSD","FMIPA"))
#membuat list
list_hazi<-list(variabel=nama,vektor=nilai,matriks=matriksnew,array=arraynew,dataframe=df_hazi)
list_hazi

## $variabel
## [1] "hajimah"
## 
## $vektor
## [1]  80  90 100
## 
## $matriks
##      [,1] [,2]
## [1,]    1    3
## [2,]    2    4
## 
## $array
## , , 1
## 
##      [,1] [,2]
## [1,]    1    3
## [2,]    2    4
## 
## , , 2
## 
##      [,1] [,2]
## [1,]    5    1
## [2,]    6    2
## 
## 
## $dataframe
##    nama jurusan
## 1 gamma     SSD
## 2  hazi   FMIPA