komputasi-stk-nis-24.R

data <- c(1,2,3)
data[5]

## [1] NA

data[c(1,3,4)]

## [1]  1  3 NA

data[4:7]

## [1] NA NA NA NA

#mengubah data
data <- c(5,7,6,8,1,2,4)
data[3] = 9
data

## [1] 5 7 9 8 1 2 4

#menambahkan data
data[8] = 3
data

## [1] 5 7 9 8 1 2 4 3

#mengurang data
data[-5]

## [1] 5 7 9 8 2 4 3

data[data>4]

## [1] 5 7 9 8

data[data>3 & data<8]

## [1] 5 7 4

data[data>7 | data<4]

## [1] 9 8 1 2 3

#fungsi \ function
nilai <- c(75,78,77,80,82,74,90)

#length \ panjang data \ banyak data
length(nilai)

## [1] 7

 #sort \ mengurutkan 
sort(nilai)

## [1] 74 75 77 78 80 82 90

sort(nilai , decreasing = TRUE) 

## [1] 90 82 80 78 77 75 74

#suum \ penjumlahan
sum(nilai)

## [1] 556

#mean rata2
mean(nilai)

## [1] 79.42857

#min minimum
min(nilai)

## [1] 74

#max \ niali maximum
max(nilai)

## [1] 90

#sqrt \ akar
sqrt(max(nilai))

## [1] 9.486833

a <- c(10,10,30,30,10,30,10,10,40,40,70,90,70,80,60,60,90)
barplot(table(a))

  #fungsi table (a)
table(a)/length(a)

## a
##         10         30         40         60         70         80         90 
## 0.29411765 0.17647059 0.11764706 0.11764706 0.11764706 0.05882353 0.11764706

b <- c("ya", "ya", "ya", "tidak", "tidak", "ya", "ya", "ya", "tidak", "mungkin", "mungkin")