#Fairuz Putri Fahriyyah #2507016022

#gambar 1 Simpan = c(10,20,40,15,40) Simpan #gambar 2 Simpan = c(1000,2000,3000,4000,5000) Simpan #gambar 3 Simpan = c(10,20,40,15,40) Simpan[3] #gambar 4 simpan = c(10,20,40,15,40) simpan[4] #gambar 5 simpan = c(10,20,40,15,40) simpan[c(1,3,4)] simpan[2:4] #gambar 6 simpan = c(10,20,40,15,40) simpan simpan[3]=100 simpan[4]=10000 simpan #gambar 7 NILAI=c(10,40,45,30,80) NILAI NILAI=NILAI[-3] NILAI NILAI=NILAI[-4] NILAI NILAI=NILAI[c(-1,-3)] NILAI

#gambar 8 NILAI=c(100,95,70,80,25,60,80,60,55,90) NILAI NILAI[NILAI>80]

#gambar 9 NILAI=c(100,95,70,80,25,60,80,60,55,90) NILAI NILAI[NILAI<70]

#gambar 10 NILAI=c(100,95,70,80,25,60,80,60,55,90) NILAI NILAI[NILAI>60&NILAI<80]

#gambar 11 NILAI=c(100,95,70,80,25,60,80,60,55,90) NILAI NILAI[NILAI>80 | NILAI<30]

#gambar 12 NILAI=c(100,95,70,80,25,60,80,60,55,90) NILAI NILAI=NILAI[NILAI<75] NILAI

#gambar 13 NILAI=c(100,95,70,80,25,60,80,60,55,90) NILAI NILAI=NILAI[NILAI>90] NILAI

#gambar 14 fungsi=function(x) { for(i in 1 : length(x)) { if(x[i]<65) { x[i]=x[i]+10; } print(x[i]) } } A=c(100,95,70,80,25,60,80,60,55,90) fungsi(A)

#gambar 15 mode(100) simpan=c(1000) mode(simpan)

#gambar 16 mode(“HALO”) simpan=c(“HALO”) mode(simpan)

#gambar 17 d=c(F) d a=c(T) a mode(d) mode(a)

#gambar 18 kuadrat=function(x) { print(x*x); } A=c(4) kuadrat(A) mode(kuadrat)

#gambar 19 A=c(1,2,3) B=c(4,5,6) C=A+B C A=c(1,2,3) B=2+A B A=c(2,4,6) B=c(1,3,5) B-A A=c(4,8,12) A*0.5 A=c(4,8,12) B=c(2,2,2) A/B A=c(3,6,1) B=c(2,2,0) A^B A=c(5,2,7) B=c(3,2,6) C=A%%B C

#gambar 20 A=c(100,70,80,55,80,70,80) length(A)

#gambar 21 A=c(70,80,50,25,100,60) sort(A)

#gambar 22 A=c(100,50,70,80,60) diff(A)

#gambar 23 A=c(50,60,70,80) sum(A)

#gambar 24 a=sqrt(81) a b=sqrt(a) b

#gambar 25 A=c(10,25,90,75,95,57) max(A) min(A)

#gambar 26 exp(1) exp(2)

#gambar 27 pi

#gambar 28 options(digits=3) pi options(digits=10) pi

#gambar 29 seq(from=1, to=10) seq(from=2, by=0.5, length.out=4)

#gambar 30 panggil=function(x,y,z) { a=x; print(a); for(i in x : z) { a=a+y; if(a>z) { break; } print(a); } } panggil(2,3,30)

#gambar 31 seq(2,30,3)

#gambar 32 A=c(10,10,30,10,30,10,10,40,40,70,90,70,80,60,60,90) table(A) A=c(10,10,30,10,30,10,10,40,40,70,90,70,80,60,60,90) table(A)/length(A) hasil=c(“ya”,“tidak”,“ya”,“ya”,“ya”,“ya”,“tidak”,“ya”,“tidak”,“ya”) table(hasil) hasil=c(“ya”,“tidak”,“ya”,“ya”,“ya”,“ya”,“tidak”,“ya”,“tidak”,“ya”) table(hasil)/length(hasil)

#gambar 33 A=c(“ikan”,“ikan”,“udang”,” ikan”,“udang”,“ikan”,“ikan”,” udang”) factor(A) A=c(“sarjana”,“diploma”,“sarjana”,“pengangguran”,“sarjana”,“diploma”,“diploma”,“pengangguran”) factor(A)

#gambar 34 A=c(10,10,10,10,20,20,30,30,30,30,30,30) barplot(table(A))

#gambar 35 A=c(10,10,10,10,20,20,30,30,30,30,30,30)

#gambar 36 A=c(10, 10, 10, 10, 20, 20, 30, 30, 30, 30, 30, 30) barplot(table(A)) barplot(table(A)/length(A)) barplot(table(A)/length(A))

#gambar 37 A=c(10,10,10,10,10,20,20,20,30,30,40) table(A) barplot(table(A))

#gambar 38 barplot(table(A)/length(A))

#gambar 39 A=c(10,10,10,10,10,20,20,20,30,30,40) table(A)

nilai=c(10,20,30,40) frekuensi=c(5,3,2,1) plot(nilai,frekuensi)

A=c(10,10,10,10,10,20,20,20,30,30,40) plot(table(A))

#gambar 40 A=c(10,10,10,10,10,20,20,20,30,30,40) table(A)

nilai=c(10,20,30,40) frekuensi=c(5,3,2,1) plot(nilai,frekuensi)

#gambar 41 nilai=c(10,20,30,40) frekuensi=c(5,3,2,1) plot(nilai,frekuensi)

#gambar 42 A=c(10,10,10,10,10,20,20,20,30,30,40) plot(table(A))