KOMPUTASI STATISTIKA

download KOMPUTASI STATISTIKA

of 8

Transcript of 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)

  • 8/17/2019 KOMPUTASI STATISTIKA

    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

  • 8/17/2019 KOMPUTASI STATISTIKA

    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"#),

  • 8/17/2019 KOMPUTASI STATISTIKA

    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

  • 8/17/2019 KOMPUTASI STATISTIKA

    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

  • 8/17/2019 KOMPUTASI STATISTIKA

    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)

  • 8/17/2019 KOMPUTASI STATISTIKA

    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/17/2019 KOMPUTASI STATISTIKA

    8/8