as.gantt | R Documentation |
This creates a gantt object.
as.gantt(key, description, start, end, done, neededBy)
key |
integer key for task, normally 1 for the first task, 2 for the second, etc. |
description |
character string describing the task (brief) |
start |
start date for task (POSIXt or character string that converts
to POSIXt with |
end |
end date for task (POSIXt or character string that converts to
POSIXt with |
done |
percentage completion for the task |
neededBy |
optional key for a dependent task |
A gantt object; for details, see read.gantt()
.
Dan Kelley
Other things related to gantt data:
gantt-class
,
ganttAddTask()
,
gantt
,
plot,gantt-method
,
read.gantt()
,
summary,gantt-method
library(plan)
arrive <- as.POSIXct("2012-09-05")
month <- 28 * 86400
year <- 12 * month
leave <- arrive + 4 * year
startT1 <- arrive
endT1 <- startT1 + 4 * month
startT2 <- endT1 + 1
endT2 <- startT2 + 4 * month
startQE <- arrive + 9 * month
endQE <- arrive + 12 * month
QEabsoluteEnd <- arrive + 15 * month
startProposal <- arrive + 15 * month # for example
endProposal <- arrive + 20 * month
startThesisWork <- arrive + 2 * month # assumes no thesis work until 2 months in
endThesisWork <- leave - 4 * month
startWriting <- leave - 36 * month
endWriting <- leave
g <- as.gantt(key=1:8, c("Academic",
"Term 1 classes",
"Term 2 classes",
"Qualifying Examination",
"Research",
"Proposal Defence",
"Thesis Work",
"Paper/Thesis Writing"),
c(startT1, startT1, startT2, startQE, startProposal, startProposal,
startThesisWork, startWriting),
c(startT1, endT1, endT2, endQE, startProposal, endProposal,
endThesisWork, endWriting),
done=rep(0, 7))
plot(g, xlim=c(arrive, leave),
ylabel=list(font=c(2,rep(1,3),2), justification=c(0,rep(1,3),0)))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.