Teletrafiks, otrais mājasdarbs

R programmas kods
t = c(0,1,2,3,4,5,6,7); arr = c(0,1,1,2,3,4,4,4); dep = c(0,0,1,1,2,3,4,4)
att = c(0,1,0,1,1,1,0,0); par(mfrow=c(2,1)); par(yaxt="n")
plot(t,arr, col = "green", lwd = 4, type = "s", xlab = "dienas", ylab =
"Majasdarbu daudzums", main = "Uzdoto un izpildto majas darbu skaits",
xlim = c(0,7), ylim = c(0,4),col.axis = "dodgerblue", col.lab = "firebrick",
col.main = "darkgreen",bty = "c");
legend("bottomright", legend = c("uzdotie m.d.","pildtie m.d."),
col = 3:5, lty = 1:1)
lines(t,dep, type = "s", col = "blue", lwd = 2 )…