How to get activities properties
Activity Properties
There several methods about activities that you can use to get information about them. After you add activities to a schedule, you may want to know how much activities has in a schedule or when each activity is planned to start or to finish. In this section, we will explain how you can find these information.
- Has Any Activity: A logical value that indicate if the schedule has any activity. A TRUE value means that the schedule has some activity; a FALSE, means that the schedule is empty.
- Usage:
Schedule$has_any_activity
- Usage:
- Number of Activities: Number of activities in a schedule as an integer value.
- Usage:
Schedule$nr_activities
- Usage:
- Get activity: Gets an activity by id. It returns a data frame with one line about activity. The structure of a data is described in next topic.
- Usage:
Schedule$get_activity(id)
- Usage:
- Activities: Return a data frame with all activities of a schedule in a activity id order. This is the main information calculated by CPM. The data frame is formed by following structure:
id: Activity id.
name: The name of activity.
duration: A number that represents the activity’s duration.
milestone: A milestone is an activity with zero duration. This property indicates if a activity is a milestone or not:
TRUEindicates it is a milestone;FALSEindicates it is not.critical: A critical activity is one with total float minor or equal to zero. This property indicates if a activity is critical:
TRUEindicates it is critical;FALSEindicates it is not critical.ES: Early Start: is the earliest start period an activity can begin after its predecessors without violating precedence relation.
EF: Early Finish: is the early start plus activity duration.
LS: Late Start: is the late finish minus activity duration.
LF: Late Finish: is the latest finish an activity can finish before their successors without violating precedence relation.
total_float: It is the amount of period an activity can be delayed without violating the project duration. Its formula is: LS - ES or LF - EF.
free_float: It is the amount of period an activity can be delayed without violating the start time of the successors activities.
progr_level: Progressive level is the rank of activities counted from begin. The level of the activities that don’t have predecessor is one; the level of the other activities, is one plus the maximal level of their predecessor.
regr_level: Regressive level is the rank of activities counted from the end. The level of the activities that don’t have successor is the maximal progressive level; the level of the other activities, is one minus the minimal level of their successor.
topo_float: It is the difference between progressive level and regressive level.
Usage:
Schedule$activitiesUsage:
Schedule$get_activity(id)
# Create a schedule
schedule <- Schedule$new()
schedule$title <- "Fictitious Project Example"
schedule$reference <- "VANHOUCKE, Mario. Measuring time:
improving project performance using earned value management.
Gent: Springer, 2009, p. 18"
schedule$has_any_activity # FALSE
#> [1] FALSE
schedule$nr_activities # 0
#> [1] 0
# Add activities and relations to it.
schedule$add_act_rel( 1, "a1" , 0, c(2,3,4))
schedule$add_act_rel( 2, "a2" , 4, c(5))
schedule$add_act_rel( 3, "a3" , 9, c(10))
schedule$add_act_rel( 4, "a4" , 1, c(6))
schedule$add_act_rel( 5, "a5" , 4, c(9))
schedule$add_act_rel( 6, "a6" , 5, c(7))
schedule$add_act_rel( 7, "a7" , 1, c(8,11))
schedule$add_act_rel( 8, "a8" , 7, c(12))
schedule$add_act_rel( 9, "a9" , 8, c(12))
schedule$add_act_rel( 10, "a10", 3, c(12))
schedule$add_act_rel( 11, "a11", 3, c(12))
schedule$add_act_rel( 12, "a12", 0)
schedule$has_any_activity # TRUE
#> [1] TRUE
schedule$nr_activities # 12
#> [1] 12
schedule$get_activity(10)
#> id name duration milestone critical ES EF LS LF total_float free_float
#> 10 10 a10 3 FALSE FALSE 9 12 13 16 4 4
#> progr_level regr_level topo_float
#> 10 3 5 2
schedule$activities
#> id name duration milestone critical ES EF LS LF total_float free_float
#> 1 1 a1 0 TRUE TRUE 0 0 0 0 0 0
#> 2 2 a2 4 FALSE TRUE 0 4 0 4 0 0
#> 3 3 a3 9 FALSE FALSE 0 9 4 13 4 0
#> 4 4 a4 1 FALSE FALSE 0 1 2 3 2 0
#> 5 5 a5 4 FALSE TRUE 4 8 4 8 0 0
#> 6 6 a6 5 FALSE FALSE 1 6 3 8 2 0
#> 7 7 a7 1 FALSE FALSE 6 7 8 9 2 0
#> 8 8 a8 7 FALSE FALSE 7 14 9 16 2 2
#> 9 9 a9 8 FALSE TRUE 8 16 8 16 0 0
#> 10 10 a10 3 FALSE FALSE 9 12 13 16 4 4
#> 11 11 a11 3 FALSE FALSE 7 10 13 16 6 6
#> 12 12 a12 0 TRUE TRUE 16 16 16 16 0 0
#> progr_level regr_level topo_float
#> 1 1 1 0
#> 2 2 3 1
#> 3 2 4 2
#> 4 2 2 0
#> 5 3 4 1
#> 6 3 3 0
#> 7 4 4 0
#> 8 5 5 0
#> 9 4 5 1
#> 10 3 5 2
#> 11 5 5 0
#> 12 6 6 0Gantt Matrix
Create a matrix that represents a Gantt chart, a matrix where “1” indicate that an activity is planned to be in execution.
In this matrix, the rows represents activities, Whereas the columns represents the activity execution period. So, the number of columns is equal to project duration.
Schedule$gantt_matrix()Return the Gantt matrix.Schedule$xy_gantt_matrix(gantt=NULL)Transform a Gantt matrix in x, y coordinates and the weight one. Each point greater than zero in a Gantt matrix becomes a x, y coordinate.
activities <- data.frame(
id = c( 1, 2, 3, 4 ),
name = c("A", "B", "C", "D"),
duration = c( 2, 3, 1, 2 )
)
relations <- data.frame(
from = c(1, 2, 4, 4),
to = c(3, 3, 1, 2)
)
schedule <- Schedule$new(activities, relations)
schedule$title <- "A project"
schedule$reference <- "From criticalpath"
gantt <- schedule$gantt_matrix()
gantt
#> 1 2 3 4 5 6
#> 1 0 0 1 1 0 0
#> 2 0 0 1 1 1 0
#> 3 0 0 0 0 0 1
#> 4 1 1 0 0 0 0
#> attr(,"class")
#> [1] "Gantt" "matrix" "array"
# What is the effort by time period?
colSums(gantt) # 1 1 2 2 1 1
#> 1 2 3 4 5 6
#> 1 1 2 2 1 1
# What is the duration by activities?
rowSums(gantt) # 2 3 1 2
#> 1 2 3 4
#> 2 3 1 2
# what is the S curve
cumsum(colSums(gantt))
#> 1 2 3 4 5 6
#> 1 2 4 6 7 8
plot(cumsum(colSums(gantt)), type="l", lwd=3)
xyw <- schedule$xy_gantt_matrix()
xyw
#> [,1] [,2] [,3]
#> [1,] 2 1 1
#> [2,] 3 1 1
#> [3,] 2 2 1
#> [4,] 3 2 1
#> [5,] 4 2 1
#> [6,] 5 3 1
#> [7,] 0 4 1
#> [8,] 1 4 1
plot(xyw[, 1:2])