# Calculatation of EST, EFT, LST and LFT times of activity of a project
# Define a 3 by 3 upper triangular binary matrix (DSM) of logic domain (LD) of a project.
# Specify sequence of three tasks
# Diagonal values indicates the priority of tasks
# 1=the task is mandatory
LD<-rbind(c(1,1,0), c(0,1,1), c(0,0,1))
# Define a 3 by 1 vector of time durations of a project, where the durations are 3,4,5 respectively.
TD<-c(3,4,5)
# Calculate project duration (total project time, TPT)
TPT<-tpt(LD,TD)
summary(TPT)
# Specify initial scheduled start time, where the delay is 1 for the .
SST <- c(1,0,0)
# Including scheduled starts and finishes.
TPT<-tpt(LD,TD,SST)
# Print schedule table
summary(TPT)
# Plot the scheduled Gantt chart
plot(TPT,sched="S")
Run the code above in your browser using DataLab