Simulation Report

[1] "/Users/jornbrouwer/Onedrive/Programeren/the_big_five/thebigfive/RScript/SpaandersBV_dataset_2"

[1] 576000
[1] "6d 16H 0M 0S"

---

Simulatie informatie

1.0 Logbestand: ../LogFiles/logfile-v7_minimale_productie.csv

1.1 aantal gemaakte budget-tafels: 15396

1.2 aantal gemaakte luxe-tafels: 1820

1.3 Gesimuleerde tijd: 260d 0H 0M 57S

1.4 aantal reparaties: 7

1.5 Aantal keer dat machines zijn omgesteld tussen luxe- en budgettafels: 51

nTimesBroken <- filter(logfile, logfile$Message=="REPAIR")
nTimestampsBroken <- as.numeric(nTimesBroken$Timestamp)
print(head(nTimesBroken))

hist(summary(nTimestampsBroken))

nTimesReconfigured <- filter(logfile, logfile$Message=="CONFIG")
print(head(nTimesReconfigured))

---

---

Productielijnen

Budget-bladen

• Rendered time period is: 5.7610^{5}

Machine 1 - (Hout) zaagmachine

---

Machine 4 - Voorboormachine

---

Machine 5 - Schuurmachine

---

Machine 6 - Verfmachine

---

Budget-poten

Machine 7 - IJzerzaag-machine

---

Machine 9 - Lasmachine

---

Machine 10 - Poedercoat-machine

---

Luxe-bladen

Render time

• Rendered time period is: 5.7610^{5}

Machine 1 - (Hout) zaagmachine

Machine 2 - (Hout) lijmmachine

Machine 3 - (Hout) Freezemachine

Machine 4 - (Hout) Voorboormachine

Machine 5 - (Hout) Schuurmachine

Machine 6 - (Hout) Verfmachine

Luxe-poten

Machine 7 - IJzerzaag-machine

Machine 8 - (IJzer) buigmachine

# M8 <- subset(logfile,select=c(Timestamp,Sender,Message,InputBuffer,OutputBuffer,Workload,ItemType),
#              subset=((machines_V==8)&(itemtype_V=="E")&(timestamps_V<=renderTime[renderingTime])))
M8_ <- subset(logfile,select=c(Timestamp,Sender,Message,InputBuffer,OutputBuffer,Workload),subset=((machines_V==8)&(itemtype_V=="E")))
m8_t <- as.numeric(M8_$Timestamp)
M8 <- subset(M8_,select=c(Timestamp,Sender,Message,InputBuffer,OutputBuffer,Workload),subset=((m8_t < renderingTime)))
print(head(M8$OutputBuffer))

[1] "X" "X" "X" "X" "X" "X"

print(unique(M8$OutputBuffer))

[1] "X"

#print(count((M8$OutputBuffer)))
class(M8$OutputBuffer)

[1] "character"

#output <- abs(M8$OutputBuffer)
# par(mfrow = c(1,1))
# plot(M8$Timestamp,output, main="Buigmachine",xlab = "Timestamp in seconds",ylab="1st outputbuffer")
# lines(M8$Timestamp,M8$OutputBuffer)
#print(head(M8, n=50))
#print(tail(M8, n=50))
# par(mfrow = c(1,2))
# gebogenPoten <- M8$OutputBuffer
# gebogenPoten <- as.numeric(gebogenPoten)
# hist(gebogenPoten,main="Gebogen luxe poten", xlab="bucket grootte", ylab="hoeveelheid luxe gebogen poten")
#d <- density(gezaagdeBladen)
#plot(d)
#polygon(d,col="red",border="blue")
# xaxis <- seq(1:length(gebogenPoten))
# boxplot(x = gebogenPoten,y = xaxis, main="boxplot luxe gebogen poten", ylab="Hoeveelheid luxe gebogen poten")
#print(summary(gezaagdeBladen))
#print(unique(gezaagdeBladen))

Machine 9 - Lasmachine

Machine 11 - polijstmachine

---