ML1

#Data
pendapatan <- c(14574.49, 7606.46, 8611.41, 9175.41, 8058.65, 8105.44, 11496.28, 9766.09, 10305.32, 14379.96, 10713.97, 15433.50)
pengeluaran <- c(12051.82, 5695.07, 12319.20, 12089.72, 8658.57, 840.20, 3285.73, 5821.12, 6976.93, 16618.61, 10054.37, 3803.96)

#data teratas
head(pendapatan)

## [1] 14574.49  7606.46  8611.41  9175.41  8058.65  8105.44

#hitung laba
profit <- pendapatan - pengeluaran
profit

##  [1]  2522.67  1911.39 -3707.79 -2914.31  -599.92  7265.24  8210.55  3944.97
##  [9]  3328.39 -2238.65   659.60 11629.54

#pajak 30% dari laba
pajak <- round(0.30 * profit, 2)
pajak 

##  [1]   756.80   573.42 -1112.34  -874.29  -179.98  2179.57  2463.17  1183.49
##  [9]   998.52  -671.60   197.88  3488.86

#laba setelah pajak
profit.after.pajak <- profit - pajak
profit.after.pajak

##  [1]  1765.87  1337.97 -2595.45 -2040.02  -419.94  5085.67  5747.38  2761.48
##  [9]  2329.87 -1567.05   461.72  8140.68

#Hitung Margin Laba Sebagai Laba Setelah Pajak Atas Pendapatan
profit.margin <- round(profit.after.pajak / pendapatan, 2) * 100
profit.margin

##  [1]  12  18 -30 -22  -5  63  50  28  23 -11   4  53

#Hitung Rata-Rata Laba Setelah Pajak Selama 12 Bulan
mean_pat <- mean(profit.after.pajak)
mean_pat

## [1] 1750.682

#Cari Bulan Dengan Laba Di Atas Rata-Rata Setelah Pajak
good.months <- profit.after.pajak > mean_pat
good.months

##  [1]  TRUE FALSE FALSE FALSE FALSE  TRUE  TRUE  TRUE  TRUE FALSE FALSE  TRUE

#pndaptan terburuk
bad.months <- !good.months
bad.months

##  [1] FALSE  TRUE  TRUE  TRUE  TRUE FALSE FALSE FALSE FALSE  TRUE  TRUE FALSE

best.month <- profit.after.pajak == max(profit.after.pajak)
best.month

##  [1] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE

#Bulan Terburuk Adalah Dimana Laba Setelah Pajak Sama Dengan Minimum
worst.month <- profit.after.pajak == min(profit.after.pajak)
worst.month

##  [1] FALSE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE

#conver dollar
pendapatan.1000 <- round(pendapatan / 1000, 0)
pengeluaran.1000 <- round(pengeluaran / 1000, 0)
profit.1000 <- round(profit / 1000, 0)
profit.after.pajak.1000 <- round(profit.after.pajak / 1000, 0)

#hasil
pendapatan.1000

##  [1] 15  8  9  9  8  8 11 10 10 14 11 15

pengeluaran.1000

##  [1] 12  6 12 12  9  1  3  6  7 17 10  4

profit.1000

##  [1]  3  2 -4 -3 -1  7  8  4  3 -2  1 12

profit.after.pajak.1000

##  [1]  2  1 -3 -2  0  5  6  3  2 -2  0  8

profit.margin

##  [1]  12  18 -30 -22  -5  63  50  28  23 -11   4  53

good.months

##  [1]  TRUE FALSE FALSE FALSE FALSE  TRUE  TRUE  TRUE  TRUE FALSE FALSE  TRUE

bad.months

##  [1] FALSE  TRUE  TRUE  TRUE  TRUE FALSE FALSE FALSE FALSE  TRUE  TRUE FALSE

best.month

##  [1] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE

worst.month

##  [1] FALSE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE

#data mean, median dll
summary(pendapatan+pengeluaran)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    8946   15386   18260   18870   21014   30999

str(pendapatan)

##  num [1:12] 14574 7606 8611 9175 8059 ...