Tugas 2 - Kelompok 13 - Metode Shuffle
Tugas 2 - Kelompok 13 - Metode Shuffle
Kelompok 13 :
1. Habib Muardika Falderama (24050119120014)
2. Pinaka Swastika Arifin (24050119120017)
3. Atika Nurzida (24050119120023)
4. M. Pratama Aryansah (24050119130059)
5. Luluk Arkha Pradana (24050119140102)
DEPARTEMEN STATISTIKA
FAKULTAS SAINS DAN MATEMATIKA
UNIVERSITAS DIPONEGORO
SEMARANG
2022
METODE LINIER CONGRUENT
Syntax R
lincong<-function()
{
n=1000
hasil <- vector(length=n)
m<-100
a<-17
c<-43
X0<-as.numeric(Sys.time())*1000
for (i in 1:n) {
X0 <- (a*X0 + c) %% m
hasil[i] <- X0 / m
}
return(hasil)
}
Output
> lincong()
data: lincong()
D = 0.029156, p-value = 0.3631
alternative hypothesis: two-sided
Daerah kritis :
H0 ditolah jika nilai sig < 𝛼 = 5% = 0,05
Keputusan :
Dari hasil analisis One–Sample Kolmogorov-Smirnov Test diperoleh nilai Asymp.sig (2-
tailed) = 0,3631 yang dimana nilai tersebut > 𝛼 = 5% = 0,05. Maka dapat diputuskan H0
diterima.
Kesimpulan :
Karena menerima H0 maka dapat disimpulkan bahwa sampel data berdistribusi uniform.
60
40
20
0
Bilangan Random
METODE SHUFFLE
Syntax R
data <- function()
{
n=1000
hasil <- vector(length = n)
m <- 100
a <- 17
c <- 43
X0 <- as.numeric(Sys.time()) * 1000
for (i in 1:n) {
X0 <- (a * X0 + c) %% m
hasil[i] <- X0 / m
}
return(hasil)
baru<-vector(length = n)
X0 <- as.numeric(Sys.time()) * 1000
for (i in 1:n) {
X0<-(a*X0 + c) %% m
k<-n*X0
r<-hasil*k
baru=r
}
return(baru)
}
Output
> data()
[1] 0.772304688 0.559179688 0.936054687 0.342929688 0.259804688 0.846679688
[7] 0.823554688 0.430429687 0.747304688 0.134179688 0.711054688 0.517929688
[13] 0.234804687 0.421679688 0.598554687 0.605429688 0.722304687 0.709179688
[19] 0.486054688 0.692929687 0.209804688 0.996679688 0.373554687 0.780429687
[25] 0.697304687 0.284179688 0.261054687 0.867929687 0.184804688 0.571679687
[31] 0.148554688 0.955429688 0.672304688 0.859179687 0.036054688 0.042929688
[37] 0.159804687 0.146679687 0.923554688 0.130429688 0.647304688 0.434179688
[43] 0.811054687 0.217929687 0.134804687 0.721679688 0.698554688 0.305429687
[49] 0.622304688 0.009179688 0.586054688 0.392929688 0.109804687 0.296679688
[55] 0.473554688 0.480429687 0.597304687 0.584179688 0.361054688 0.567929687
[61] 0.084804688 0.871679688 0.248554688 0.655429687 0.572304687 0.159179688
[67] 0.136054687 0.742929687 0.059804688 0.446679687 0.023554688 0.830429688
[73] 0.547304688 0.734179687 0.911054687 0.917929688 0.034804688 0.021679687
[79] 0.798554688 0.005429687 0.522304688 0.309179688 0.686054687 0.092929687
[85] 0.009804687 0.596679688 0.573554688 0.180429687 0.497304688 0.884179687
[91] 0.461054688 0.267929688 0.984804688 0.171679688 0.348554688 0.355429687
[97] 0.472304687 0.459179687 0.236054687 0.442929688 0.959804688 0.746679688
[103] 0.123554687 0.530429687 0.447304688 0.034179688 0.011054688 0.617929687
[109] 0.934804688 0.321679687 0.898554688 0.705429688 0.422304687 0.609179687
[115] 0.786054687 0.792929688 0.909804687 0.896679688 0.673554688 0.880429687
[121] 0.397304687 0.184179687 0.561054687 0.967929687 0.884804687 0.471679688
[127] 0.448554687 0.055429687 0.372304688 0.759179687 0.336054688 0.142929688
[133] 0.859804688 0.046679687 0.223554687 0.230429688 0.347304687 0.334179687
[139] 0.111054687 0.317929688 0.834804688 0.621679688 0.998554687 0.405429688
[145] 0.322304688 0.909179688 0.886054688 0.492929687 0.809804688 0.196679688
[151] 0.773554688 0.580429688 0.297304687 0.484179688 0.661054687 0.667929688
[157] 0.784804687 0.771679688 0.548554688 0.755429687 0.272304687 0.059179688
[163] 0.436054687 0.842929687 0.759804687 0.346679688 0.323554687 0.930429687
[169] 0.247304688 0.634179687 0.211054688 0.017929687 0.734804688 0.921679687
[175] 0.098554688 0.105429687 0.222304687 0.209179687 0.986054688 0.192929688
[181] 0.709804688 0.496679688 0.873554687 0.280429688 0.197304687 0.784179688
[187] 0.761054688 0.367929687 0.684804688 0.071679688 0.648554688 0.455429688
[193] 0.172304687 0.359179688 0.536054687 0.542929688 0.659804687 0.646679688
[199] 0.423554688 0.630429687 0.147304688 0.934179688 0.311054687 0.717929687
[205] 0.634804687 0.221679688 0.198554687 0.805429687 0.122304687 0.509179687
[211] 0.086054688 0.892929688 0.609804688 0.796679687 0.973554687 0.980429688
[217] 0.097304688 0.084179688 0.861054688 0.067929688 0.584804688 0.371679688
[223] 0.748554687 0.155429687 0.072304688 0.659179688 0.636054688 0.242929687
[229] 0.559804688 0.946679687 0.523554688 0.330429688 0.047304687 0.234179688
[235] 0.411054688 0.417929687 0.534804687 0.521679688 0.298554688 0.505429687
[241] 0.022304687 0.809179688 0.186054688 0.592929687 0.509804687 0.096679688
[247] 0.073554687 0.680429687 0.997304688 0.384179687 0.961054688 0.767929688
[253] 0.484804687 0.671679687 0.848554687 0.855429688 0.972304687 0.959179688
[259] 0.736054688 0.942929687 0.459804687 0.246679687 0.623554687 0.030429688
[265] 0.947304687 0.534179688 0.511054688 0.117929688 0.434804688 0.821679687
[271] 0.398554688 0.205429688 0.922304688 0.109179687 0.286054688 0.292929687
[277] 0.409804687 0.396679687 0.173554687 0.380429688 0.897304688 0.684179688
[283] 0.061054688 0.467929688 0.384804688 0.971679688 0.948554688 0.555429687
[289] 0.872304688 0.259179687 0.836054688 0.642929688 0.359804687 0.546679687
[295] 0.723554687 0.730429688 0.847304687 0.834179688 0.611054688 0.817929687
[301] 0.334804687 0.121679687 0.498554687 0.905429687 0.822304687 0.409179688
[307] 0.386054687 0.992929687 0.309804688 0.696679687 0.273554688 0.080429687
[313] 0.797304688 0.984179687 0.161054687 0.167929688 0.284804687 0.271679687
[319] 0.048554687 0.255429688 0.772304688 0.559179688 0.936054687 0.342929688
[325] 0.259804688 0.846679688 0.823554688 0.430429687 0.747304688 0.134179688
[331] 0.711054688 0.517929688 0.234804687 0.421679688 0.598554687 0.605429688
[337] 0.722304687 0.709179688 0.486054688 0.692929687 0.209804688 0.996679688
[343] 0.373554687 0.780429687 0.697304687 0.284179688 0.261054687 0.867929687
[349] 0.184804688 0.571679687 0.148554688 0.955429688 0.672304688 0.859179687
[355] 0.036054688 0.042929688 0.159804687 0.146679687 0.923554688 0.130429688
[361] 0.647304688 0.434179688 0.811054687 0.217929687 0.134804687 0.721679688
[367] 0.698554688 0.305429687 0.622304688 0.009179688 0.586054688 0.392929688
[373] 0.109804687 0.296679688 0.473554688 0.480429687 0.597304687 0.584179688
[379] 0.361054688 0.567929687 0.084804688 0.871679688 0.248554688 0.655429687
[385] 0.572304687 0.159179688 0.136054687 0.742929687 0.059804688 0.446679687
[391] 0.023554688 0.830429688 0.547304688 0.734179687 0.911054687 0.917929688
[397] 0.034804688 0.021679687 0.798554688 0.005429687 0.522304688 0.309179688
[403] 0.686054687 0.092929687 0.009804687 0.596679688 0.573554688 0.180429687
[409] 0.497304688 0.884179687 0.461054688 0.267929688 0.984804688 0.171679688
[415] 0.348554688 0.355429687 0.472304687 0.459179687 0.236054687 0.442929688
[421] 0.959804688 0.746679688 0.123554687 0.530429687 0.447304688 0.034179688
[427] 0.011054688 0.617929687 0.934804688 0.321679687 0.898554688 0.705429688
[433] 0.422304687 0.609179687 0.786054687 0.792929688 0.909804687 0.896679688
[439] 0.673554688 0.880429687 0.397304687 0.184179687 0.561054687 0.967929687
[445] 0.884804687 0.471679688 0.448554687 0.055429687 0.372304688 0.759179687
[451] 0.336054688 0.142929688 0.859804688 0.046679687 0.223554687 0.230429688
[457] 0.347304687 0.334179687 0.111054687 0.317929688 0.834804688 0.621679688
[463] 0.998554687 0.405429688 0.322304688 0.909179688 0.886054688 0.492929687
[469] 0.809804688 0.196679688 0.773554688 0.580429688 0.297304687 0.484179688
[475] 0.661054687 0.667929688 0.784804687 0.771679688 0.548554688 0.755429687
[481] 0.272304687 0.059179688 0.436054687 0.842929687 0.759804687 0.346679688
[487] 0.323554687 0.930429687 0.247304688 0.634179687 0.211054688 0.017929687
[493] 0.734804688 0.921679687 0.098554688 0.105429687 0.222304687 0.209179687
[499] 0.986054688 0.192929688 0.709804688 0.496679688 0.873554687 0.280429688
[505] 0.197304687 0.784179688 0.761054688 0.367929687 0.684804688 0.071679688
[511] 0.648554688 0.455429688 0.172304687 0.359179688 0.536054687 0.542929688
[517] 0.659804687 0.646679688 0.423554688 0.630429687 0.147304688 0.934179688
[523] 0.311054687 0.717929687 0.634804687 0.221679688 0.198554687 0.805429687
[529] 0.122304687 0.509179687 0.086054688 0.892929688 0.609804688 0.796679687
[535] 0.973554687 0.980429688 0.097304688 0.084179688 0.861054688 0.067929688
[541] 0.584804688 0.371679688 0.748554687 0.155429687 0.072304688 0.659179688
[547] 0.636054688 0.242929687 0.559804688 0.946679687 0.523554688 0.330429688
[553] 0.047304687 0.234179688 0.411054688 0.417929687 0.534804687 0.521679688
[559] 0.298554688 0.505429687 0.022304687 0.809179688 0.186054688 0.592929687
[565] 0.509804687 0.096679688 0.073554687 0.680429687 0.997304688 0.384179687
[571] 0.961054688 0.767929688 0.484804687 0.671679687 0.848554687 0.855429688
[577] 0.972304687 0.959179688 0.736054688 0.942929687 0.459804687 0.246679687
[583] 0.623554687 0.030429688 0.947304687 0.534179688 0.511054688 0.117929688
[589] 0.434804688 0.821679687 0.398554688 0.205429688 0.922304688 0.109179687
[595] 0.286054688 0.292929687 0.409804687 0.396679687 0.173554687 0.380429688
[601] 0.897304688 0.684179688 0.061054688 0.467929688 0.384804688 0.971679688
[607] 0.948554688 0.555429687 0.872304688 0.259179687 0.836054688 0.642929688
[613] 0.359804687 0.546679687 0.723554687 0.730429688 0.847304687 0.834179688
[619] 0.611054688 0.817929687 0.334804687 0.121679687 0.498554687 0.905429687
[625] 0.822304687 0.409179688 0.386054687 0.992929687 0.309804688 0.696679687
[631] 0.273554688 0.080429687 0.797304688 0.984179687 0.161054687 0.167929688
[637] 0.284804687 0.271679687 0.048554687 0.255429688 0.772304688 0.559179688
[643] 0.936054687 0.342929688 0.259804688 0.846679688 0.823554688 0.430429687
[649] 0.747304688 0.134179688 0.711054688 0.517929688 0.234804687 0.421679688
[655] 0.598554687 0.605429688 0.722304687 0.709179688 0.486054688 0.692929687
[661] 0.209804688 0.996679688 0.373554687 0.780429687 0.697304687 0.284179688
[667] 0.261054687 0.867929687 0.184804688 0.571679687 0.148554688 0.955429688
[673] 0.672304688 0.859179687 0.036054688 0.042929688 0.159804687 0.146679687
[679] 0.923554688 0.130429688 0.647304688 0.434179688 0.811054687 0.217929687
[685] 0.134804687 0.721679688 0.698554688 0.305429687 0.622304688 0.009179688
[691] 0.586054688 0.392929688 0.109804687 0.296679688 0.473554688 0.480429687
[697] 0.597304687 0.584179688 0.361054688 0.567929687 0.084804688 0.871679688
[703] 0.248554688 0.655429687 0.572304687 0.159179688 0.136054687 0.742929687
[709] 0.059804688 0.446679687 0.023554688 0.830429688 0.547304688 0.734179687
[715] 0.911054687 0.917929688 0.034804688 0.021679687 0.798554688 0.005429687
[721] 0.522304688 0.309179688 0.686054687 0.092929687 0.009804687 0.596679688
[727] 0.573554688 0.180429687 0.497304688 0.884179687 0.461054688 0.267929688
[733] 0.984804688 0.171679688 0.348554688 0.355429687 0.472304687 0.459179687
[739] 0.236054687 0.442929688 0.959804688 0.746679688 0.123554687 0.530429687
[745] 0.447304688 0.034179688 0.011054688 0.617929687 0.934804688 0.321679687
[751] 0.898554688 0.705429688 0.422304687 0.609179687 0.786054687 0.792929688
[757] 0.909804687 0.896679688 0.673554688 0.880429687 0.397304687 0.184179687
[763] 0.561054687 0.967929687 0.884804687 0.471679688 0.448554687 0.055429687
[769] 0.372304688 0.759179687 0.336054688 0.142929688 0.859804688 0.046679687
[775] 0.223554687 0.230429688 0.347304687 0.334179687 0.111054687 0.317929688
[781] 0.834804688 0.621679688 0.998554687 0.405429688 0.322304688 0.909179688
[787] 0.886054688 0.492929687 0.809804688 0.196679688 0.773554688 0.580429688
[793] 0.297304687 0.484179688 0.661054687 0.667929688 0.784804687 0.771679688
[799] 0.548554688 0.755429687 0.272304687 0.059179688 0.436054687 0.842929687
[805] 0.759804687 0.346679688 0.323554687 0.930429687 0.247304688 0.634179687
[811] 0.211054688 0.017929687 0.734804688 0.921679687 0.098554688 0.105429687
[817] 0.222304687 0.209179687 0.986054688 0.192929688 0.709804688 0.496679688
[823] 0.873554687 0.280429688 0.197304687 0.784179688 0.761054688 0.367929687
[829] 0.684804688 0.071679688 0.648554688 0.455429688 0.172304687 0.359179688
[835] 0.536054687 0.542929688 0.659804687 0.646679688 0.423554688 0.630429687
[841] 0.147304688 0.934179688 0.311054687 0.717929687 0.634804687 0.221679688
[847] 0.198554687 0.805429687 0.122304687 0.509179687 0.086054688 0.892929688
[853] 0.609804688 0.796679687 0.973554687 0.980429688 0.097304688 0.084179688
[859] 0.861054688 0.067929688 0.584804688 0.371679688 0.748554687 0.155429687
[865] 0.072304688 0.659179688 0.636054688 0.242929687 0.559804688 0.946679687
[871] 0.523554688 0.330429688 0.047304687 0.234179688 0.411054688 0.417929687
[877] 0.534804687 0.521679688 0.298554688 0.505429687 0.022304687 0.809179688
[883] 0.186054688 0.592929687 0.509804687 0.096679688 0.073554687 0.680429687
[889] 0.997304688 0.384179687 0.961054688 0.767929688 0.484804687 0.671679687
[895] 0.848554687 0.855429688 0.972304687 0.959179688 0.736054688 0.942929687
[901] 0.459804687 0.246679687 0.623554687 0.030429688 0.947304687 0.534179688
[907] 0.511054688 0.117929688 0.434804688 0.821679687 0.398554688 0.205429688
[913] 0.922304688 0.109179687 0.286054688 0.292929687 0.409804687 0.396679687
[919] 0.173554687 0.380429688 0.897304688 0.684179688 0.061054688 0.467929688
[925] 0.384804688 0.971679688 0.948554688 0.555429687 0.872304688 0.259179687
[931] 0.836054688 0.642929688 0.359804687 0.546679687 0.723554687 0.730429688
[937] 0.847304687 0.834179688 0.611054688 0.817929687 0.334804687 0.121679687
[943] 0.498554687 0.905429687 0.822304687 0.409179688 0.386054687 0.992929687
[949] 0.309804688 0.696679687 0.273554688 0.080429687 0.797304688 0.984179687
[955] 0.161054687 0.167929688 0.284804687 0.271679687 0.048554687 0.255429688
[961] 0.772304688 0.559179688 0.936054687 0.342929688 0.259804688 0.846679688
[967] 0.823554688 0.430429687 0.747304688 0.134179688 0.711054688 0.517929688
[973] 0.234804687 0.421679688 0.598554687 0.605429688 0.722304687 0.709179688
[979] 0.486054688 0.692929687 0.209804688 0.996679688 0.373554687 0.780429687
[985] 0.697304687 0.284179688 0.261054687 0.867929687 0.184804688 0.571679687
[991] 0.148554688 0.955429688 0.672304688 0.859179687 0.036054688 0.042929688
[997] 0.159804687 0.146679687 0.923554688 0.130429688
data: data
D = 0.011047, p-value = 0.9997
alternative hypothesis: two-sided
Daerah kritis :
H0 ditolah jika nilai sig < 𝛼 = 5% = 0,05
Keputusan :
Dari hasil analisis One–Sample Kolmogorov-Smirnov Test diperoleh nilai Asymp.sig (2-
tailed) = 0,9997 yang dimana nilai tersebut > 𝛼 = 5% = 0,05. Maka dapat diputuskan H0
diterima.
Kesimpulan :
Karena menerima H0 maka dapat disimpulkan bahwa sampel data berdistribusi uniform.
40
20
0
Bilangan Random
data: runif(1000)
D = 0.03446, p-value = 0.1859
alternative hypothesis: two-sided
Daerah kritis :
H0 ditolah jika nilai sig < 𝛼 = 5% = 0,05
Keputusan :
Dari hasil analisis One–Sample Kolmogorov-Smirnov Test diperoleh nilai Asymp.sig (2-
tailed) = 0,1859 yang dimana nilai tersebut > 𝛼 = 5% = 0,05. Maka dapat diputuskan H0
diterima.
Kesimpulan :
Karena menerima H0 maka dapat disimpulkan bahwa sampel data berdistribusi uniform.
60
40
20
0
Bilangan Random