In mjginzo/SAA: Wildfire Resources Management

---

1. Data

---

1.1. Aircraft information

air.data = list(I=params$info$I, 
                A=params$info$A, 
                CWP=params$info$CWP, 
                CRP=params$info$CRP,
                CUP=params$info$CUP,
                C=params$info$C,
                P=params$info$P,
                BPR=params$info$BPR
                )
cat(c("I | C | P | A | CWP | CRP | CUP | BPR \n"))
cat(rep("---", length(air.data)), sep=" | ")
cat("\n")
for(a in seq(length(air.data$I))){
  cat(c(air.data$I[a], " | ", air.data$C[a], " | ", 
        air.data$P[a], " | ", air.data$A[a], " | ", 
        air.data$CWP[a], " | ", air.data$CRP[a], " | ", 
        air.data$CUP[a], " | ", air.data$BPR[a], "\n"))
}

1.2. Wildfire information

fire.data = list(Period=params$info$Periods, 
                 SP=params$info$SP, 
                 NVC=params$info$NVC, 
                 EF=params$info$EF,
                 nMin=params$info$nMin
                 )
cat(c("Period | SP | NVC | EF | nMin \n"))
cat(rep("---", length(fire.data)), sep=" | ")
cat("\n")
for(p in seq(length(fire.data$Period))){
  cat(c(fire.data$Period[p], " | ", fire.data$SP[p], " | ", 
        fire.data$NVC[p], " | ", fire.data$EF[p], " | ", 
        fire.data$nMin[p], "\n"))
}

1.3. Law information

law.data = list(UP=params$info$UP, 
                 WP=params$info$WP, 
                 RP=params$info$RP, 
                 TRP=params$info$TRP,
                 nMax=params$info$nMax
                 )
cat(c("UP | WP | RP | TRP | nMax \n"))
cat(rep("---", length(law.data)), sep=" | ")
cat("\n")
cat(c(law.data$UP, " | ", law.data$WP, " | ", 
        law.data$RP, " | ", law.data$TRP, " | ", 
        law.data$nMax, "\n"))

---

2. Solver Information

---

cat("Method | Solver | M \n")
cat("--- | --- | --- \n")
cat(params$input$method, " | ", 
  params$input$solver, " | ", 
  params$input$M, "\n")

---

3. Results

---

3.1. General Information

cat("Cost | Contention Period | Solve Time", "--- | --- | ---", sep="\n")
cat(params$results$cost, " | ", params$results$contper, " | ", params$results$time, "\n")

3.2. Solution Information

3.2.1. Scheduling

wrm::plotscheduling(wrm::data.scheduling(params$results))

3.2.2. Contention

wrm::plotcontention(wrm::data.contention(params$info, params$results))

3.2.3. Number of Aircraft

wrm::plotnumaircraft(wrm::data_num_resources(params$results))

3.2.4. Yield

wrm::plotyield(wrm::data.yield(params$info, params$results))

mjginzo/SAA documentation built on May 24, 2019, 5:05 a.m.