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.

A<-c(60,70,65,40,45) B<-c(2,3,6,1,7) mean(A) mean(B) A+B A*B

for (i in i=10) (cat (“Hobi aku main layang-layang”) )

nilai<-fuction(x){ cat(“Nilai Anda:”,x,“Mendapatkan”) if (x>=0 && x<50) { cat(“Grade E”) } if(x>=50 && x<60) { cat(“Grade D”) ) if(x>=60 && x<70) { cat (“Grade C”) ) if(x>=70 && x<80) { cat (“Grade B”) ) if(x>=80 && x<100) { cat (“Grade A”) } } nilai (90) nilai (59)

Keputusan <-function (x, myu, alpha = 0.05){ uji_t <- t.test (x, mu = myu, alternative = “two.sided”)

cat(“hipotesis:”) cat(” H0 : Mu= “, myu,”“) cat(” H1 : MU/=“, myu,”“)

cat(“hasil uji:”) cat(” t-hitung =“,round(uji_t\(statistic, 3),"\n") cat(" df =", uji_t\)parameter,”“) cat(” p-value =“,round(uji_t$p.value, 3),”“)

cat(“keputusan (a=”,alpha, “):”) if (uji_t$p.value < alpha){ cat(” tolak H0“) cat(” Rata rata populasi darindata adalah sama dengan 12“) }else{ cat(” gagal tolak H0“) cat(”rata rata populasi dari data adalah sama dengan 12“) } cat(” “) }

A<- c(15,20,11,25,10,12) Keputusan(A,12)

qt(0.05,5, lower.tail = F)