Analisis_cuaca_Satu_Minggu_SMD

#input data
hari_tanggal = c("Minggu, 9 Agt", "Senin, 10 Agt", "Selasa, 11 Agt", "Rabu, 12 Agt", "Kamis, 13 Agt", "Jumat, 14 Agt", "Sabtu, 15 Agt")
suhu_min = c(23, 24, 23, 23, 24, 23, 23)
suhu_max = c(32, 33, 32, 32, 33, 32, 32)

#Mengakses satu nilai elemen tertentu
max(suhu_max)

## [1] 33

min(suhu_min)

## [1] 23

suhu_max[3]

## [1] 32

suhu_min[3]

## [1] 23

#Melihat suhu tertingi dan terendah 
hari_tanggal[suhu_max == max(suhu_max)]

## [1] "Senin, 10 Agt" "Kamis, 13 Agt"

hari_tanggal[suhu_min == min(suhu_min)]

## [1] "Minggu, 9 Agt"  "Selasa, 11 Agt" "Rabu, 12 Agt"   "Jumat, 14 Agt" 
## [5] "Sabtu, 15 Agt"

#Mengakses beberapa data 
suhu_min[c(1,3,4)]

## [1] 23 23 23

suhu_min[2:4]

## [1] 24 23 23

#Mengubah niali suhu_min2=suhu_min
suhu_min[3]=23
suhu_min

## [1] 23 24 23 23 24 23 23

#Mengubah nilai 
suhu_min2=suhu_min
suhu_min2=suhu_min2[c(-1,-3)]
suhu_min2

## [1] 24 23 24 23 23

#operator perbandingan >, <
suhu_min[suhu_min>23]

## [1] 24 24

suhu_max[suhu_max>32]

## [1] 33 33

suhu_min[suhu_min<24]

## [1] 23 23 23 23 23

# operator &
suhu_max[suhu_max>32&suhu_max<34]

## [1] 33 33

#operator |
suhu_max[suhu_max>32 | suhu_max<32]

## [1] 33 33

#operator < lebih lanjut
suhu_max2=suhu_max
suhu_max2=suhu_max2[suhu_max2<33]
suhu_max2

## [1] 32 32 32 32 32

#operator > lebih lanjut
suhu_max2=suhu_max
suhu_max2=suhu_max2>32
suhu_max2

## [1] FALSE  TRUE FALSE FALSE  TRUE FALSE FALSE

#fungsi sederhana 
fungsi=function(x)
{
  for(i in 1:length(x))
  {
    if(x[i]<30)
    {
      x[i]=x[i]+1;
    }
    print(x[i])
  }
}
A=c(23,24,23,23,24,23,23)
fungsi(A)

## [1] 24
## [1] 25
## [1] 24
## [1] 24
## [1] 25
## [1] 24
## [1] 24

#data numerik 
mode(suhu_min)

## [1] "numeric"

#data character 
mode("Minggu")

## [1] "character"

#data logika
d=TRUE
mode(d)

## [1] "logical"

#data function  
fahrenheit=function(x)
{
  print((x*9/5)+32);
}

A=c(23)
fahrenheit(A)

## [1] 73.4

mode(fahrenheit)

## [1] "function"

#operator matematika(+, -,*, /, ^, %%)
suhu_min+c(1,1,1,1,1,1,1)

## [1] 24 25 24 24 25 24 24

suhu_max-suhu_min

## [1] 9 9 9 9 9 9 9

suhu_max*2

## [1] 64 66 64 64 66 64 64

suhu_max/2

## [1] 16.0 16.5 16.0 16.0 16.5 16.0 16.0

suhu_max^2

## [1] 1024 1089 1024 1024 1089 1024 1024

suhu_max%%suhu_min

## [1] 9 9 9 9 9 9 9

#length()
length(suhu_min)

## [1] 7

#sort()
sort(suhu_min)

## [1] 23 23 23 23 23 24 24

sort(suhu_max)

## [1] 32 32 32 32 32 33 33

#dif
diff(suhu_min)

## [1]  1 -1  0  1 -1  0

diff(suhu_max)

## [1]  1 -1  0  1 -1  0

#sqrt
sqrt(suhu_min)

## [1] 4.795832 4.898979 4.795832 4.795832 4.898979 4.795832 4.795832

sqrt(suhu_max)

## [1] 5.656854 5.744563 5.656854 5.656854 5.744563 5.656854 5.656854

#exp ()
exp(suhu_min)

## [1]  9744803446 26489122130  9744803446  9744803446 26489122130  9744803446
## [7]  9744803446

#pi
pi

## [1] 3.141593

#options 
options(digits=3)
pi

## [1] 3.14

#seq
seq(from=23,to=33)

##  [1] 23 24 25 26 27 28 29 30 31 32 33

panggil=function(x,y,z)
{
  a=x;
  print(a);
  for(i in x:z)
  {
    a=a+y;
    if(a>z)
    {
      break;
    }
    print(a);
  }
}
panggil(23,1,33)

## [1] 23
## [1] 24
## [1] 25
## [1] 26
## [1] 27
## [1] 28
## [1] 29
## [1] 30
## [1] 31
## [1] 32
## [1] 33

#tabel 
table(suhu_min)

## suhu_min
## 23 24 
##  5  2

table(suhu_max)

## suhu_max
## 32 33 
##  5  2

table(suhu_min)/length(suhu_min)

## suhu_min
##    23    24 
## 0.714 0.286

#barplot()
barplot(table(suhu_min))

barplot(table(suhu_max))

barplot(table(suhu_min)/length(suhu_min))

barplot(table(suhu_max)/length(suhu_max))

#plot 
nilai=c(1,2,3,4,5,6,7)
frekuensi=suhu_max
plot(nilai,frekuensi)

nilai=c(1,2,3,4,5,6,7)
frekuensi=suhu_min
plot(nilai,frekuensi)