# Calculatation of maximum resource demands of a project scenario using MFPP package.
library(pracma)
# Generate a 10 by 10 upper triangular binary matrix (DSM) of logic domain of a project.
DSM <- triu(round(rand(10)))
# Generate a 10 by 1 vector of task durations of a project.
TD <- rand(10,1)*20
# Define a 10 by 1 vector of Scheduled Start Time using tpt function.
SST <- tpt(DSM,TD)[["EST"]]
# Generate a 10 by 3 matrix of resource demands of a project.
RD <- rand(10,3)*5
# Calculation of maximum resource demands of a project using MFPP package.
tpr(SST,DSM,TD, RD)
## Plot resources for SST
tpr(SST,DSM,TD,RD,res.graph = TRUE)
Run the code above in your browser using DataLab