Berikut ini R Script dalam membangun bidang dengan fungsi polygon().

plot(0,0,type=”n”,xlim=c(-5,5),ylim=c(-5,5))
x < - c(0,4,2,-2,-4)
y <- c(-4,0,4,4,0)
polygon(x,y,col="blue",border="black")

Hasilnya disajikan seperti berikut ini :

Kita dapat menggunakan fungsi ini untuk membangun berbagai bidang sesuai dengan fungsi matematis yang kita buat. Berikut ini contoh penggunaan fungsi polygon.

Selamat bermain dengan bidang dan warna menggunakan R. (unung@enciety.com)

Saat ini penulis membuat thermo function yang menggabungkan antara image dan fungsi rect.

thermochart(x=20.6,px=100)
thermochart(x=75.2,px=300)
thermochart(x=65.8,px=500)
thermochart(x=89.7,px=700)

Hasilnya adalah sebagai berikut :

Dengan menggunakan image, maka kita lebih mudah menggunakan warna degradasi dan desain yang tidak kaku. Thanks. [unung@enciety.com]

Agar tabel yang kita buat cukup dinamis dan mampu terisi dengan berbagai macam obyek (:cell) maka kita terlebih dahulu menuangkan ide obyek table tersebut kedalam UML Class Diagram. Hal ini kita perlukan untuk menangkap fungsi-fungsi dasar dalam tabel seperti colnum, rownum, colspace, rowspace, colors dan lain sebagainya. Termasuk bagaimana hubungan struktur antara tabel dengan items yang ada didalamnya.

Berikut ini hasil R script, yang merupakan implementasi dari desain tabel dengan bantuan notasi UML.

Salam.

unung@enciety.com.

Data access log dapat kita copy dan diletakkan dalam folder khusus atau diakses real time. Data ini kita baca menggunakan fungsi read.table sebagai berikut :

> read.table(“/var/log/squid/access.log”) -> myaccess.log

Data myaccess.log terdiri dari sepuluh variabel penting web caching.

1. Waktu pencatatan access log.

Dengan menggunakan Date-Time Conversion Functions di R, kita dapat mengetahui rentang waktu pencatatan access.log. Dalam obyek myaccess.log di atas, melalui variabel pertama kita dapat mengetahui waktu pencatatan log. Berikut ini script untuk menampilkan data waktu :

> myaccess.log[1,1] -> z1 # Start pencatatan access.log

> myaccess.log[nrow(myaccess.log),1] -> z2 # Akhir pencatatan access.log

Kemudian data pada obyek z1 dan z2 tersebut kita convert berdasarkan Unix Time / POSIX Time dengan menggunakan script sebagai berikut :

> ISOdatetime(1970,1,1,0,0,0) + z1 -> start.time.mylog
> ISOdatetime(1970,1,1,0,0,0) + z2 -> end.time.mylog

Berdasarkan hasil tersebut maka waktu rentang pencatatan log adalah

mulai : 2008-09-20 23:25:07Z
akhir : 2008-09-21 10:43:17Z ,

atau selama 11.30275 jam.

2. Tipe Content paling sering diakses.

Untuk mengetahui summary most popular content type, dapat kita analisis variabel lima dan sepuluh data myaccess.log.

Berikut ini script sederhana untuk menampilkan persentase akses, volume dan rata-rata dalam tiap tipe konten.

> table(myaccess.log[[10]]) -> count.mylog
> tapply(myaccess.log[[5]],myaccess.log[[10]],sum) -> volume.mylog
> tapply(myaccess.log[[5]],myaccess.log[[10]],mean) -> mean.size

Dalam analisis ini kita tidak menyertakan kelompok tanpa content (-), yaitu 302 (Found) dan 304 (Not Modified). Untuk itu, ada beberapa tambahan script sedikit untuk menghilangkan kelompok yang tidak kita kehendaki.

> count.mylog[rownames(count.mylog) != "-"] -> count.mylog.with
> volume.mylog[rownames(volume.mylog) != "-"] -> volume.mylog.with
> mean.size[rownames(mean.size) != "-"] -> mean.size.with

Berdasarkan obyek-obyek diatas maka summary analisis dapat kita tampilkan menjadi satu melalui fungsi cbind.

> summary.myaccess.log < - cbind(count.mylog.with/sum(count.mylog.with)*100,volume.mylog.with/sum(volume.mylog.with)*100,mean.size.with/1000)

Hasil akhir dapat ditampilkan dengan mengurutkan kelompok tipe konten berdasarkan persentase jumlah akses tertinggi.

> summary.myaccess.log[order(summary.myaccess.log[,1],decreasing=TRUE),] -> result1

3. Mean dan Median Service Times.

Dengan menggunakan data pada variabel kedua, maka dengan menggunakan script R berikut ini kita dapat memperoleh nilai ukuran pemusatan Service Times pada cache.

Demikian, masih banyak informasi yang bisa didalami, terutama rekan-rekan yang suka dalam web caching. Banyak aplikasi analisis squid tersedia bebas (free & open source), sehingga mudah2an script sederhana ini dapat membuat kita semakin sayang dengan data terdekat kita dan mampu melakukan eksplorasi sesuai kebutuhan.

Terima kasih buat mas Iqbal (Dhodit).

Salam.

Unung Istopo.

Berikut ini R script untuk ikut memeriahkan Ulang Tahun Kemerdekaan RI ke – 62 – 17 Agustus 2007.

acakbendera < - function() {

plot(1:100,type="n",main="Dirgahayu RI ke-62",axes=F,xlab="",ylab="")
a <- sample(5:95,17)
b <- sample(5:95,17)

for (i in 1:17) {
rect(a[i]-10,b[i],a[i]+10,b[i]+5,col="red")
rect(a[i]-10,b[i]-5,a[i]+10,b[i],col="white")
}

#box()

c <- sample(5:95,8)
d <- sample(5:95,8)

warna <- rainbow(8)

for (i in 1:8) {
points(c[i],d[i],pch=19,col=warna[i])
points(c[i]-2.5,d[i]+5,pch=8,col=warna[i])
points(c[i]-5,d[i],pch=8,col=warna[i])
points(c[i]-2.5,d[i]-5,pch=8,col=warna[i])
points(c[i]+2.5,d[i]-5,pch=8,col=warna[i])
points(c[i]+5,d[i],pch=8,col=warna[i])
points(c[i]+2.5,d[i]+5,pch=8,col=warna[i])

}

}

Silahkan dimodifikasi ya… script sederhana ini .. script ini akan menampilkan 17 Bendera Merah Putih dan 8 Kembang Api Warna Warni MERDEKA… Selamat Mencoba.

> acakbendera()

Hasilnya seperti berikut ini :

Salam, Unung.