Contruction of the ViSibook for procedure
vars <- c("time_in_intub","time_insert_probe","time_out_intub","delay_intub_prob")
label <- c( "Blade in the mouth", "Tube insert in the mouth",
"Blade out of the mouth","Blade in - Tube inserted")
typeA <- c( "p","p","p","l")
showorder <- c( 1,3,4,2)
deb <- c( NA, NA,NA,"time_in_intub")
fin <- c( NA,NA,NA,"time_insert_probe")
bookdataframe <- data.frame(vars,label,typeA,showorder,deb,fin)
library(ViSiElse)
## Loading required package: grid
## Loading required package: chron
## Loading required package: Matrix
## Loading required package: colorspace
## Loading required package: stringr
bookintubation <- ConvertoViSibook(bookdataframe)
## Warning in .local(.Object, ...): No green zone defined for punctuals actions
##
plot(bookintubation)

Graphic of the procedure
x <- buildViSiGrid( X = intubation,
book = bookintubation ,
pixel = 2 )
plot(x, main = "Intubation, t_0 : Blade in the mouth")

Graphic of the procedure strating when the blade is in the mouth
bookintubation <- changeShoworder( bookintubation , c(2,3,4))
Vintubation <- buildViSiGrid( X = intubation,
book = bookintubation ,
t_0 = "time_in_intub",
pixel = 1 )
plot(Vintubation, main = "Intubation, t_0 : Blade in the mouth")
