Publications by Jerrel
Week 13
# Input data Data <- read_excel("total_kunjungan_mancanegara.xlsx") Visitors <- Data$Visitors Visitors.Diff1 <- diff(Visitors, differences = 1) # Plot hasil differencing ts.plot(Visitors.Diff1, col= "darkgreen", main="Time Series Plot") # Transformasi Visitors.Log.Diff1 <- diff(log(Visitors), diff=1) ts.plot(Visitors.Log.Diff1, col="da...
234 sym R (1456 sym/6 pcs) 4 img
Week 15
1 Abstrak Video Game pada konsol saat ini masih menjadi pilihan sebagai hiburan selain Smartphone atau PC. Hal itu dikarenakan adanya sensasi yang berbeda saat bermain game konsol. Dikabarkan juga akan beredar konsol baru berupa Xbox series X/S dan juga PS5, maka sebagai developer harus melakukan analisis terhadap data yang telah dikumpulkan dan ...
3597 sym R (13022 sym/64 pcs) 6 img
Week 11
## Warning: package 'rstatix' was built under R version 4.0.3 ## ## Attaching package: 'rstatix' ## The following object is masked from 'package:stats': ## ## filter ## Loading required package: carData ## Warning: package 'faraway' was built under R version 4.0.3 ## Registered S3 methods overwritten by 'lme4': ## method ...
9946 sym R (8149 sym/65 pcs) 7 img
Week 9
1 Tentang Kali ini akan lebih fokus dalam membahas analisis sensitivitas dan simulasi Monte Carlo. Analisis sensitivitas mempelajari sebagaimana ketidakpastian sebuah output/hasil model matematika atau sistem (numeric atau lainnya) dapat dibagikan ke berbagai sumber ketidakpastian pada inputnya. Paket R lpSolveAPI akan digunakan. Simulasi Monte C...
6764 sym R (4119 sym/25 pcs) 2 img
Week 11
Evaluating equation (3.4) with \(N1,2,\hat{x}_{1,2} and s_{1,2}\) gives a t-value of \(t_{1,2}=-2.740403\). The following R-snippet shows how the two samples were generated and how the t-value was calculated with the user function \(“t.val()”\) (note that both samples truly differ by \(\Delta\mu=5\) with “true” uncertainty \(\sigma=5\)). ...
3705 sym R (13319 sym/42 pcs) 3 img
Time Series 2
1 Hannan Rissanen Data <- read_excel("total_kunjungan_mancanegara.xlsx") Visitors <- Data$Visitors # hannan(x, p, q) Main <- c("diff",6) er <- Resid(Visitors, Main) result <- hannan(er,1,1) print(result) ## $phi ## [1] 0.7920423 ## ## $theta ## [1] 1.076769 ## ## $sigma2 ## [1] 62319274586 ## ## $aicc ## [1] 762.815...
351 sym R (402 sym/2 pcs) 1 img
Time Series 3
1 Box-Pierce test Data <- read_excel("total_kunjungan_mancanegara.xlsx") Visitors <- Data$Visitors #conduct Box-Pierce test Box.test(Visitors, lag = 3, type = c("Box-Pierce")) ## ## Box-Pierce test ## ## data: Visitors ## X-squared = 55.919, df = 3, p-value = 4.372e-12 ...
28 sym R (267 sym/2 pcs) 1 img
Week 16
1 Soal: Let say you would like to make some sausages and you have the following ingredients available: Ingredient <- c("Chicken","Wheat","Starch") Cost <- c(4.32,2.46,1.86) Availability <- c(30,20,17) Sausage <- data.frame(Ingredient,Cost,Availability) Sausage ## Ingredient Cost Availability ## 1 Chicken 4.32...
12954 sym R (389830 sym/77 pcs) 2 img
Week 16
1 Regresi Linear Berganda Dalam proyek ini saya memberikan anda dataset insurance.csv, informasi lanjut mengenai data ini dapat anda baca di Kaggle. Tugas kalian adalah sebagai berikut: Meringkas informasi penting yang terkadung data insurance.csv tersebut. Memahami faktor-faktor apa yang mempengaruhi premi asuransi konsumen. Menemukan model ter...
6197 sym R (22815 sym/46 pcs) 5 img
Week 3
1 Analisis Risiko Bersaing Pada bagian terakhir bab 2 kita telah membahas tentang pengenalan konsep dan metode pada analisis kelangsungan hidup. Sekarang kita akan fokus pada Analisi Risiko Bersaing (CRA) dengan memilih model dan menilai kecukupan dan kecocokannya , package utama yang digunakan dalam analisis risiko bersaing adalah cmprsk. librar...
9266 sym R (5909 sym/33 pcs) 7 img 3 tbl