author1 1 author2 2 April 1, 2014

Pembuatan GUI di R shortname Outline Pengenalan

Pembuatan GUI di R

Pengenalan GUI R Function R Packages

Contoh Fgui RExcel Resource

author1

1

author2

1 affiliation

for author1

2 affiliation

for author2

April 1, 2014

2

Pembuatan GUI di R shortname Outline Pengenalan Pengenalan GUI R Function R Packages

Contoh

1 Pengenalan

Pengenalan GUI R Function R Packages

Fgui RExcel Resource

2 Contoh


Apa GUI? Pembuatan GUI di R shortname Outline Pengenalan Pengenalan GUI R Function R Packages


Dalam teknologi komputasi, antarmuka pengguna grafis atau APG (Inggris: Graphical User Interface atau GUI) adalah jenis antarmuka pengguna yang menggunakan metoda interaksi pada piranti elektronik secara grafis (bukan perintah teks) antara pengguna dan komputer.(sumber: http://id.wikipedia.org/.)

Function Pseudo Code Pembuatan GUI di R shortname Outline

syntax

Pengenalan Pengenalan GUI R Function R Packages


myfct <- function(arg1, arg2, ...) { function_body }

R Packages GUI? Pembuatan GUI di R shortname Outline Pengenalan Pengenalan GUI R Function R Packages


1

Packages fgui 1 .

2

Packages RExcel 2 .

1 2

http://cran.r-project.org/web/packages/fgui/index.html www.rcom.univie.ac.at

Contoh 1 Pembuatan GUI di R shortname Outline Pengenalan Pengenalan GUI R Function R Packages

Menetapkan ukuran sampel untuk proporsi dgn ada keterangan sekunder


n1 =

Z1−α/2

!2 p Π0 (1 − Π0 ) ε n1

n= 1+

(n1 −1) N

Fungsi Ukuran Sampel ? Pembuatan GUI di R shortname

Syntax R

Outline Pengenalan Pengenalan GUI R Function R Packages


library(fgui) #belum ada install.packages("fgui") samplesize=function (alpha, p0, e,N) { n1=(qnorm(1-alpha/2)*sqrt(p0*(1-p0))/e)^2 n=n1/(1+((n1-1)/N)) return(n) } res=gui(samplesize)


Menetapkan ukuran sampel untuk proporsi dgn tidak ada keterangan sekunder


n1 =

Z1−α/2 2ε

2

n1

n= 1+

(n1 −1) N

Fungsi Ukuran Sampel dengan opsi? Pembuatan GUI di R

Syntax R

shortname Outline Pengenalan Pengenalan GUI R Function R Packages


samplesize=function (alpha, p0, e,N,Ket) { if (Ket){ n1=(qnorm(1-alpha/2)*sqrt(p0*(1-p0))/e)^2 n=n1/(1+((n1-1)/N)) return(n) } else { n1=(qnorm(1-alpha/2)/(2*e))^2 n=n1/(1+((n1-1)/N)) return(n) } } res=gui(samplesize,argOption=list (Ket=c("TRUE","FALSE")))


Contoh

Membuat fungsi dengan menggunakan data external dan melakukan operasi statistik sederhana seperti summmary statistics Syntax R


data=read.csv("data.csv",header=TRUE,sep=",") summary(data)

Contoh 3 dengan GUI interface continue part 1 Pembuatan GUI di R shortname Outline

Syntax R



lmgui <- function(csvFilename,response) { data <- as.data.frame(read.csv(csvFilename)) wh.response <- which(names(data) == response) h=(data[[wh.response]]) return(summary(h)) }

Contoh 3 dengan GUI interface continue part 2 Pembuatan GUI di R

Syntax R

shortname Outline Pengenalan Pengenalan GUI R Function R Packages


lmguiCallback <- function( arg ) { if( arg=="csvFilename" ) { datanames <- names(read.csv (guiGetValue("csvFilename"))) print(datanames) guiSet("datanames", datanames ) setListElements("response",datanames ) } } guiv( lmgui, argFilename=list(csvFilename=NULL), argList=list(response=NULL), callback=lmguiCallback)

Apa RExcel ? Pembuatan GUI di R shortname

Applikasi connectors 3 untuk MS Office (MS Excel) yang bertujuan mengintegrasikan antara users dan developer.



3

http://rcom.univie.ac.at/

GUI dalam Excel? Pembuatan GUI di R shortname Outline Pengenalan Pengenalan GUI R Function R Packages


Pembuatan GUI dalam Excel relatif lebih mudah jika dibandingkan dengan membuat GUI dalam R,RExcel mampu membuat intergrasi antara R dan Excel, bentuk integrasi ini di implementasikan dalam bentuk pemanggilan fungsi dari R dengan menggunakan fasilitas GUI dalam Excel.

Instalasi RExcel Pembuatan GUI di R shortname Outline

Syntax R



install.packages("RExcelInstaller", "rcom", "rsproxy") library(rcom) comRegisterRegistry() library(RExcelInstaller) installstatconnDCOM() installRExcel()

Memulai Koneksi Pembuatan GUI di R shortname Outline Pengenalan Pengenalan GUI R Function R Packages


1

Jalankan R terlebih dahulu

2

Jalankan RExcel

3

Buka Jendela VB editor (ALT+F11)

4

Tambahkan referensi RExcelVBAlib



Pembangkitan suatu variabel acak x mengikuti distribusi normal dengan algoritma Box Muller 4 . sbb: 1

u1 ∼ Unif (0, 1)

2 3

u2 ∼ Unif (0, 1) p r = −2log (u1 ) dan θ = 2πu2

4

z = rcos(θ)

5

x = µ + z ∗ sigma

4

Computer Simulation, 2nd Edition,Watson.,Blackstone

GUI dalam VB dalam bentuk Form Pembuatan GUI di R shortname Outline Pengenalan Pengenalan GUI R Function R Packages


GUI dalam Excel dibuat dengan bahas VB melalui form yang terdiri atas object untuk mempermudah user

Membuat fungsi di VB Excel Pembuatan GUI di R shortname

Syntax VB Excel



Function GNorm(mu As Double, sigma As Double) As Double u1 = Rnd(1) u2 = Rnd(1) r = (-2 * WorksheetFunction.Ln(u1)) ^ (0.5) theta = 2 * Pi * u2 z = r * Cos(theta) GNorm = mu + z * sigma End Function

Memanggil fungsi R di VB Excel Pembuatan GUI di R shortname Outline Pengenalan Pengenalan GUI R Function R Packages


Syntax Fungsi R dalam VB Excel Function Rnorm(N) Rnorm = Rapply("rnorm", N) End Function

Resource Pembuatan GUI di R shortname Outline Pengenalan Pengenalan GUI R Function R Packages


Materi pelatihan dapat didownload di http://zulstat.wordpress.com/

author1 1 author2 2 April 1, 2014

Recommend Documents