R Markdown

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.

When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:

summary(cars)
##      speed           dist       
##  Min.   : 4.0   Min.   :  2.00  
##  1st Qu.:12.0   1st Qu.: 26.00  
##  Median :15.0   Median : 36.00  
##  Mean   :15.4   Mean   : 42.98  
##  3rd Qu.:19.0   3rd Qu.: 56.00  
##  Max.   :25.0   Max.   :120.00

Including Plots

You can also embed plots, for example:

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.

1:20
##  [1]  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18 19 20

Matriks adalah belangan yang diatur pada sebuah baris dan kolom, dimana yang kesamping disebut baris dan kebawaah disebut kolom.berikut contoh penerapan matriks dengan bahasa R : 1. tuliskan syarat perulangannya bil <- (1:10) 2. untuk melihat hasilnya gunakan “view” dengan variable yang sudah ditentukan

bil <- (1:10)
matrix.bil<-matrix(bil)
View(matrix.bil)
matrix.bil
##       [,1]
##  [1,]    1
##  [2,]    2
##  [3,]    3
##  [4,]    4
##  [5,]    5
##  [6,]    6
##  [7,]    7
##  [8,]    8
##  [9,]    9
## [10,]   10

3.Cara menuliskan jumlah baris, pastikan barisnya angka yang bisa dibagi dengan jumlah total berikut merupakan contoh penerapan matriks dengan harga buku,makanan, dan minuman .untuk hasil bisa dilihat pada tabel

matrix.bil <- matrix( bil,nrow = 5)
matrix.bil <- matrix( bil,byrow=T,nrow = 5)
#Harga
food1 <- c(5000,5500,10000,7700,12000)
food2 <- c(34000,65000,12000,15000,4000)

harga <- c(food1,food2)
harga.matrix <- matrix(harga,byrow = T,nrow = 2)
hari<-c('senin','selasa','rabu','kamis','jumat')
nama.harga<-c('book','food')

colnames(harga.matrix)<-hari
row.names(harga.matrix)<- nama.harga

milk <- c (1200, 300, 4500, 1300, 400)
harga.baru <- rbind(harga.matrix,milk)
colSums(harga.baru)
##  senin selasa   rabu  kamis  jumat 
##  40200  70800  26500  24000  16400
rowSums(harga.baru)
##   book   food   milk 
##  40200 130000   7700
rowMeans(harga.baru)
##  book  food  milk 
##  8040 26000  1540
colMeans(harga.baru)
##     senin    selasa      rabu     kamis     jumat 
## 13400.000 23600.000  8833.333  8000.000  5466.667
Rataan <- rowMeans(harga.baru)
harga.baru <- cbind(harga.baru,Rataan)