KOMPUTASI STATISTIKA

8/17/2019 KOMPUTASI STATISTIKA

1/8

TUGAS KOMPUTASI STATISTIKA

Nama : Sella Aji Oktarin

Nim : 111810101023

Soal A :

1. a. Tulislah ekspresi sederhana dengan menghasilkan vektor barisan sebagai

berikut:i) 50 bilangan pertama yang berpangkat 3, dimulai dengan 3

Skrip : 3^(1:50)

ii) 1, 22, 3, 2, 5, !2, ..., ", 1002

Skrip : (1:100)^(1:2)

iii) 1, #1, 2, #1, 3, #1, ..., 10, #1.

Skrip :

b. $ara yang digunakan pada subset %&i' tergantung pada vektor i yang

digunakan

i) i adalah logika

ketika i yang digunakan adalah logika , (ika %&i' terdapat pada vektor

maka akan didapatkan nilai T*+. Sebaliknya, (ika %&i' tidak terdapat

pada vektor makan akan didapatkan nilai alse

ii) i adalah numerik

ketika i yang dimasukkan lebih besar dari pan(ang vektor %, maka yang

dihasilkan adalah -, namun (ika i yang dimasukkan kurang dari atau

sama dengan pan(ang vektor %, maka hasil yang didapatkan adalah

elemen ke#i pada sebuah vektor.

iii) i adalah karakter ketika i adalah karakter, maka elemen di % akan men(adi karakter.

/. ndaikan baha % adalah vektor numerik. elaskan hasil dari setiap ekspresi

berikut ini:

i) sum(!is.na(x))

aab: sum) digunakan untuk men(umlahkan nilai dari argumen ).

is.na) digunakan untuk mengu(i kebenaran setiap elemen yang bernilai

- atau --. Sehingga skrip diatas digunakan untuk men(umlahkan

nilai pada ungsi is.na) yang berbentuk 0 dan 1. Seperti dibaah ini> !is.na(x)


2/8

[1] TRUE TRUE TRUE TRUE TRUE TRUE> sum(!is.na(x))

[1] 6

ii) c(x, x[-(1:ln"#(x))])iii) x[ln"#(x) $ 1] % ln"#(x)

(aab> x[ln"#(x) $ 1] % ln"#(x)[1] &'

hasil dari x[ln"#(x) $ 1] adalah - karena melebihi dari pan(ang

% itu sendiri. ika kemudia dibagi dengan ln"#(x) maka hasilnya

akan tetap men(adi -.i) sum(x > man(x))

(aab:> x > man(x)[1] '*+E> sum(x > man(x))[1] 0

> man (x) menghasilkan nilai 4S+, (ika kemudian di(umlahkan

menggunakan ungsi sum) maka akan menghasilkan 0 karena 4S+

bernilai 0.

2. ungsi pada

a. Tulis kode yang digunkan untuk menghitung (umlah dari ungsi

berikut:

i) +lemen maksimum di setiap baris %

Skrip : al(x, 1, max)

ii) ata rata dari bilangan positi pada baris %

Skrip : al(x, 1, /unc"in(x) man(x[x>0], na.mTRUE))

iii) +lemen pertama dari setiap baris yang lebih besar dari nilai sebelumnya

berturut#turut itu, atau - (ika elemen tidak ada

b. Tabel 6ari pada sebuah bulan :

an eb 7ar pr 7ay un ul ug Sep 8/t -ov 9e/

31 2 31 30 31 30 31 31 30 31 30 31

i) 9iasumsikan nilai tabel hari disimpan dalam vektor month.days.

Skript pada yang dapat menampilkan bulan dan hari yaitu :

;ita gunakan ungsi rep) untuk mengulang 12 bulan sebanyak

month.days. Sehingga didapatkan banyaknya bulan :> ulan (1:12, mn"#.4as)

Selan(utnya untuk menampilkan hari, dengan menggunakan ungsi

sapply) yang digunakan untuk menerapkan suatu ungsi untuk elemen


3/8

yang ada dalam datar dan mengembalikan hasilnya dalam suatu

vektor atau datar. Sehingga didapatkan banyaknya bulan :> #ai sal(mn"#.4as, s)

ii) 6ari pertama pada tahun 2011 adalah hari Sabtu. Skrip yang

menghasilkan sebuah variabel yang disebut yang berisi 7inggu#

Sabtu) yang terdapat 3!5 hari pada tahun 2011.

> 4a (c(+a, 7i, +, +l, Ra, 8a,

9um),

ln"# 365)

iii) 7enulis ungsi pada 3. 2, ungsi chi-square density memiliki nilai maksimum tunggal.

S/ript yang mengoptimalkan ungsi se/ara akurat untuk mendapatkan

nilai kepadatan maksimum untuk n > 2 yaitu :

5. 9ata disimpan pada ile =/ountdata.t%t>

a) S/ript untuk memba/a ile datarame yang disebut /ountdata.t%t, yang

mengandung 3 variabel, 4a", cun", ;a"#. ?ariabel tersebut

masing masing bertipe karakter, numerik dan aktor yaitu :cun"4a"a a4."al(cun"4a"a."x",

cl&ams c(4a", cun", ;a"#),


4/8

cl?lasss c(c#aac", numic, /ac"))

b) S/ript untuk mengatur datarame, sehingga variabel /ount brada dalam

urutan as/ending.cun"4a"a[;i"#(cun"4a"a, 4(cun"))]

/) S/ript untuk menghitung (umlah ;" dan 4 dalam data.

;i"#(cun"4a"a, c(;" sum(;a"# ;"),

4 sum(;a"# 4)))

d) S/ript untuk menghitung median untuk ;" dan 4 dalam data.;i"#(cun"4a"a, "al(cun", ;a"#, m4ian))

e) S/ript untuk menambahkan variabel mn"# dan 4a pada datarame.

Soal B :

1. elaskan se/ara detail tu(uan dari blok kode yang ditun(ukan oleh gambar 1

dibaah ini:

aab:

# mn"# @- 1:12

menampilkan bulan yang terdiri dari 12 bulan. *ntuk itu mengunakan 1:12

yaitu membuat vektor yang berisi bilangan dari 1 sampai 12. Seperti di baah

ini:> mn"# @- 1:12> mn"# [1] 1 2 3 = 5 6 A B 10 11 12

# mn"#+"in @- sin"/(C024, mn"#)

mendeinisikan mn"#+"in dengan men/etak hasil keluaran berupa

tampilan karakter mn"#. ;arena ungsi dari sin"/ adalah

memormat per/etakan pada ob(ek . 9engan ormat yang ditampilkan

adalah C024 yang berarti bahaa hasil keluaran akan berupa 2 karakter

dengan aalan 0, namun (ika tidak ingin menampilkan nya maka hilangkan

angka 0. 6asil kelurannya seperti dibaah ini


5/8

> mn"#+"in @- sin"/(C024, mn"#)> mn"#+"in [1] 01 02 03 0= 05 06 0A 0 0B 10

11 12

> mn"#+"in @- sin"/(C24, mn"#)> mn"#+"in [1] 1 2 3 = 5 6 A B 10

11 12

# a @- 2005:200B

membuat tahun yang terdiri dari tahun 2005 sampai dengan tahun 200" dan

diberi nama year.

# 4a"7a"ix @- u"(a, mn"#+"in, as", s-)membuat keluaran dengan meletakkan strings bersamaan yaitu year dan

monthString dengan ormat -. Seperti dibaah ini:> 4a"7a"ix [,1] [,2] [,3] [,=] [,5] [,6] [,A]

[,] [,B] [,10] [,11] [,12][1,] 2005D 1 2005D 2 2005D 3 2005D = 2005D 5 2005D 6

2005D A 2005D 2005D B 2005D10 2005D11 2005D12[2,] 2006D 1 2006D 2 2006D 3 2006D = 2006D 5 2006D 6

2006D A 2006D 2006D B 2006D10 2006D11 2006D12[3,] 200AD 1 200AD 2 200AD 3 200AD = 200AD 5 200AD 6

200AD A 200AD 200AD B 200AD10 200AD11 200AD12[=,] 200D 1 200D 2 200D 3 200D = 200D 5 200D 6

200D A 200D 200D B 200D10 200D11 200D12[5,] 200BD 1 200BD 2 200BD 3 200BD = 200BD 5 200BD 6

200BD A 200BD 200BD B 200BD10 200BD11 200BD12

# 4a"+"ins @- as.c#aac"("(4a"7a"ix))

mengubah 4a"7a"ix kebentuk vektor karakter dan mentranposekannya

seperti dibaah ini.

> 4a"+"in

[1] 2005D01 2005D02 2005D03 2005D0= 2005D05 2005D062005D0A 2005D0 2005D0B 2005D10 2005D11 2005D12 2006D01

2006D02 2006D03 2006D0=

[1A] 2006D05 2006D06 2006D0A 2006D0 2006D0B 2006D10

2006D11 2006D12 200AD01 200AD02 200AD03 200AD0= 200AD05

200AD06 200AD0A 200AD0

[33] 200AD0B 200AD10 200AD11 200AD12 200D01 200D02

200D03 200D0= 200D05 200D06 200D0A 200D0 200D0B

200D10 200D11 200D12

[=B] 200BD01 200BD02 200BD03 200BD0= 200BD05 200BD06

200BD0A 200BD0 200BD0B 200BD10 200BD11 200BD12


6/8

# 4a"+"ins[1:5=]

membuat vektor numerik dateString dari 1 sampai 5. seperti dibaah ini:> 4a"+"in[1:5=] [1] 2005D01 2005D02 2005D03 2005D0= 2005D05 2005D06

2005D0A 2005D0 2005D0B 2005D10 2005D11 2005D12 2006D01

2006D02 2006D03 2006D0=[1A] 2006D05 2006D06 2006D0A 2006D0 2006D0B 2006D10

2006D11 2006D12 200AD01 200AD02 200AD03 200AD0= 200AD05

200AD06 200AD0A 200AD0[33] 200AD0B 200AD10 200AD11 200AD12 200D01 200D02

200D03 200D0= 200D05 200D06 200D0A 200D0 200D0B

200D10 200D11 200D12[=B] 200BD01 200BD02 200BD03 200BD0= 200BD05 200BD06

. a. 7embuat skrip ekspresi sederhana dari yang menghasilkan vektor sebagai

berikut:

i) #10, #", # , ..., #2, #1

Skrip : -(10:1)

ii) 1, 2, 2, 3, 3, 3, , 5, 5, !, !, !, ..., 1", 20, 20, 21, 21, 21

Skrip :

iii) 1, 2, , , 1!, 32, !, 12, 25!, 512, 102

Skrip : 2^(0:10)

iv) 1, 2, !, 2, 120, @20, 500, 0320

Skrip : /ac"ial(1:)

b. apakah hasil dari #1AA3 positi atau negati B (elaskan (aabanmu

aab: -1CC3

[1] 2

/. (elaskan mengapa hasil dari perhitungan seperti dibaah ini

> 0.1 $ 0.2 0.3[1] '*+E

d. Tulislah ungsi nth) dengan % sebuah vektor logika dan n bilangan bulat

positi. Cang akan menghasilkan indeks ke#n pada vektor %. Sehingga ungsi

akan ber(alan sebagai berikut :

> x c(1, 2, =, 2, 1, 3)


7/8

> n"#(x > 2, 2)[1] 6

> n"#(x > =, 2)[1] &'

Skrip yang digunakan untuk membuat ungsi nth) adalah sebagai berikut:

n"# /unc"in(x, n) ;#ic#(is.na(x))[n]

5. a. Dagaimana mengambil subset berikut dari vektor % yang mungkin berisi

nilai -)

i) -ilai x[1]ii) Cang kedua sampai nilai kelima

Skrip : x[2:5]

iii) Semua nilai ke/uali 2 nilai terakhir

Skrip: x[-ln"#(x) - 0:1]

iv) -ilai ke 2, , ! dll.

v) Semua nilai positi dalam %

Skrip: x[!is.na(x) x > 0]

b. elaskan aturan untuk mengubah ekspresi pada

/. pakah nilai yang dihailkan dari ekspresi:

1:6 F 1:2

aab : nilai yangdihasilkan sebagai berikut ini> 1:6 F 1:2[1] 1 = 3 5 12

9engan mengalikan vektor 1:! dengan vektor 1:2. ?ektor pengali akan di

ubah sama pan(ang dengan vektor yang akan dikalikan maka men(adi /1, 2,

3, , 5, !) dikalikan dengan /1, 2, 1, 2, 1, 2) dan menghasilkan keluaran

seperti diatas.

d. ungsi :> / /unc"in(x, ) i/ ( > 0) F sin(x) ls x F sin()

Tidak mematuhi aturan daur ulang. *ntuk membetulkannya kita gunakan

ungsi ielse) seperti berikut ini :/ /unc"in(x, ) i/ls( > 0, F sin(x), x F sin())


8/8

KOMPUTASI STATISTIKA

Documents

Transcript of KOMPUTASI STATISTIKA