GILANG MAULANA ABDI

BERIKUT Mean, Varians, Standar Deviasi, Skewness dan Kurtosis dengan menggunakan Program R :

· UKURAN PEMUSATAN (MEAN), UKURAN PENYEBARAN (VARIANS+STANDAR DEVIASI), UKURAN KESIMETRISAN (SKEWNESS) dan UKURAN KELANCIPAN (KURTOSIS) dengan metode biasa

stadeskmetodebiasa<-function(x)

{

n=length(x)

rata=sum(x)/n

kuadrat=(x-rata)^2

juml=sum(kuadrat)

varians=1/(n-1)*juml

stadev=sqrt(varians)

skewness=n/((n-1)*(n-2))*sum(((x-rata)/stadev)^3)

kurtosis=(n*(n+1))/((n-1)*(n-2)*(n-3))*sum(((x-rata)/stadev)^4)-(3*(n-1)^2)/((n-2)*(n-3))

cat("mean.biasa = ",rata,"\n")

cat("varians.biasa = ",varians,"\n")

cat("skewness.biasa = ",skewness,"\n")

cat("kurtosis.biasa = ",kurtosis,"\n")

}

· UKURAN PEMUSATAN (MEAN), UKURAN PENYEBARAN (VARIANS+STANDAR DEVIASI), UKURAN KESIMETRISAN (SKEWNESS) dan UKURAN KELANCIPAN (KURTOSIS) dengan metode MATRIKS

stadeskmetodematrix<-function(x)

{

n=length(x)

a=rep(1/n)

matrix1=rep(a,n)

matrix2=cbind(x)

rata=matrix1%*%matrix2

kuadrat=(x-rata)^2

juml=sum(kuadrat)

varians=1/(n-1)*juml

stdev=sqrt(varians)

b=n/((n-1)*(n-2))

matrix3=rep(b,n)

matrix4=cbind(((x-rata)/stdev)^3)

skewness=matrix3%*%matrix4

c=(n*(n+1))/((n-1)*(n-2)*(n-3))

matrix5=rep(c,n)

matrix6=cbind(((x-rata)/stdev)^4)

d=(3*(n-1)^2)/((n-2)*(n-3))

kurtosis=matrix5%*%matrix6-d

cat("mean = ",rata,"\n")

cat("varians = ",varians,"\n")

cat("skewness = ",skewness,"\n")

cat("kurtosis = ",kurtosis,"\n")

}

Alkisah, beberapa tahun yang silam, seorang pemuda terpelajar dari Surabaya sedang berpergian naik pesawat ke Jakarta. Disampingnya duduk seorang ibu yang sudah berumur. Si pemuda menyapa, dan tak lama mereka terlarut dalam obrolan ringan.” Ibu, ada acara apa pergi ke Jakarta ?” tanya si pemuda. “Oh… saya mau ke Jakarta terus “connecting flight” ke Singapore nengokin anak saya yang ke dua”,jawab ibu itu.” Wouw… hebat sekali putra ibu” pemuda itu menyahut dan terdiam sejenak.

Pemuda itu merenung. Dengan keberanian yang didasari rasa ingin tahu pemuda itu melanjutkan pertanyaannya.” Kalau saya tidak salah ,anak yang di Singapore tadi , putra yang kedua ya bu??Bagaimana dengan kakak adik-adik nya??”” Oh ya tentu ” si Ibu bercerita :”Anak saya yang ketiga seorang dokter di Malang, yang keempat kerja di perkebunan di Lampung, yang kelima menjadi arsitek di Jakarta, yang keenam menjadi kepala cabang bank di Purwokerto, yang ke tujuh menjadi Dosen di Semarang.””

Pemuda tadi diam, hebat ibu ini, bisa mendidik anak-anaknya dengan sangat baik, dari anak kedua sampai ke tujuh. ” Terus bagaimana dengan anak pertama ibu ??”Sambil menghela napas panjang, ibu itu menjawab, ” anak saya yang pertama menjadi petani di Godean Jogja nak”. Dia menggarap sawahnya sendiri yang tidak terlalu lebar.”

Pemuda itu segera menyahut, “Maaf ya Bu….. kalau ibu agak kecewa ya dengan anak pertama ibu, adik-adiknya berpendidikan tinggi dan sukses di pekerjaannya, sedang dia menjadi petani ??? “

Apakah kamu mau tahu jawabannya??????…

Please scroll….

.

.

.

.

…Please scroll

.

.

.

….Dengan tersenyum ibu itu menjawab,
” Ooo …tidak tidak begitu nak….Justru saya sangat bangga dengan anak pertama saya, karena dialah yang membiayai sekolah semua adik-adiknya dari hasil dia bertani”

Note :

Pelajaran Hari Ini : Semua orang di dunia ini penting. Buka matamu, pikiranmu, hatimu. Intinya adalah kita tidak bisa membuat ringkasan sebelum kita membaca buku itu sampai selesai. Orang bijak berbicara “Hal yang paling penting adalah bukanlah SIAPAKAH KAMU tetapi APA YANG SUDAH KAMU LAKUKAN”

klenteng sam poo kong masih ada hubugannya dengan dinasti cheng hoo... bela-belain nyewa baju kaisar china ... hahahaha....