\documentclass[a4paper,10pt]{article}


\usepackage[bahasa]{babel}
\usepackage{color}
\usepackage{graphicx}
\usepackage{setspace}
\usepackage{fancyhdr}
\usepackage{lscape}
\usepackage{multicol}



\topmargin=-.5in      %topmargin is 1/2 inch (note negative value)
\oddsidemargin=0in    %left margin is 1 inch on right-hand pages
\evensidemargin=0in   %same for left-hand pages in twosided document
\textwidth=6.5in      %leaves 1 inch for the right margin
\textheight=10in       %12 inches reserved for the text.


\usepackage{here}

\pagestyle{fancy}

\begin{document}
%\pagecolor{black} % Background color
%\color{yellow}  % Text color


\title{R-PHP Enciety: \\Membuat Dokumen Sederhana}
\author{{\sl Unung Istopo Hartanto}\\[5mm]
e-mail:unung@enciety.com}

\date

\maketitle

\section{Membuat Plot Under Curve Satu Sisi}

Hasil Grafik untuk membuat plot satu sisi ada di Gambar~\ref{fig:data01}.
<<>>=
oneside <- function(x1,x2,color="gray") {
if(x1 < -4 || x1 > 4)
stop("nilai x1 harus lebih dari -4 atau kurang dari 4")
if(x2 < -4 || x2 > 4)
stop("nilai x2 harus lebih dari -4 atau kurang dari 4")
plot(dnorm,-4,4,axes=F)
segments(-4,0,4,0)
xvals <- seq(x1,x2,length=50)
dvals <- dnorm(xvals)
polygon(c(xvals,rev(xvals)),c(rep(0,50),rev(dvals)),col=color)
segments(0,0,0,0.4,col="red",lty=3)
axis(1,at=c(x1,x2,-4,4,0),labels=c(x1,x2,-4,4,0))
axis(2)
box()
}
@


\begin{figure}[b]
\caption{Daerah Penolakan Satu Sisi}
\label{fig:data01}
\centering
<<fig=TRUE,echo=FALSE>>=
oneside(-1.96,0)
@
\end{figure}

\begin{landscape}
%\begin{multicols}{2}
\section{Membuat Plot Under Curve Dua Sisi}

Hasil Grafik untuk membuat plot dua sisi ada di Gambar~\ref{fig:data02}.
<<>>=
twoside <- function(x1,x2,color="gray") {
if(x1 < -4 || x1 > 4)
stop("nilai x1 harus lebih dari -4 atau kurang dari 4")
if(x2 < -4 || x2 > 4)
stop("nilai x2 harus lebih dari -4 atau kurang dari 4")
plot(dnorm,-4,4,axes=F)
segments(-4,0,4,0)
xvals <- seq(x1,x2,length=50)
dvals <- dnorm(xvals)
polygon(c(xvals,rev(xvals)),c(rep(0,50),rev(dvals)),col=color)
xvals <- seq(-x2,-x1,length=50)
dvals <- dnorm(xvals)
polygon(c(xvals,rev(xvals)),c(rep(0,50),rev(dvals)),col=color)
segments(0,0,0,0.4,col="red",lty=3)
axis(1,at=c(x1,x2,-x2,-x1,-4,4,0),labels=c(x1,x2,-x2,-x1,-4,4,0))
axis(2)
box()
}
@


\begin{figure}[b]
\caption{Daerah Penolakan Dua Sisi}
\label{fig:data02}
\centering
<<fig=TRUE,echo=FALSE>>=
twoside(-1.96,0)
@
\end{figure}

%\end{multicols}
\end{landscape}

\section{barplot with Gap Value}
<<>>=
data <- c(50,70,20,40,65,96,59.5,78.3)

barplot.gapvalue <- function(data,label=c(''),title="") {
   barplot(data,col=c('darkorange','grey45'),border='white',axes=F,
   ylim=c(0,100),xlab=' ',cex.axis=2,main=title) -> data.bp
   axis(2,col='orange',cex=2)
   axis(1,at=c(data.bp[1]+0.6,data.bp[3]+0.6,data.bp[5]+0.6,
   data.bp[7]+0.6),labels=label,
   col='white')

   for (i in c(1,3,5,7)) {
   segments(data.bp[i]-0.5,data[i],data.bp[i+1]+0.5,data[i],lwd=3)
   segments(data.bp[i]-0.5,data[i+1],data.bp[i+1]+0.5,data[i+1],lwd=3)
   arrows(data.bp[i]+0.5,data[i],data.bp[i]+0.5,data[i+1],code=3,lwd=2)
   text(data.bp[i],data[i]+((data[i+1]-data[i])/2),data[i+1]-data[i],cex=1)
   }
}

@

\begin{figure}[b]
\caption{Barplot with Gap Value}
\label{fig:data03}
\centering
<<fig=TRUE,echo=FALSE>>=
barplot.gapvalue(data,label=c('GROUP A','GROUP B','GROUP C','GROUP D'),title='Barplot with gap - R - enciety')
@
\end{figure}


\end{document}