The dataset called intubation is a sample of SIMULRUN’s data. SIMULRUN is a research project funded by European funds (FEDER) and focusses on learning processes in simulation in healthcare. This set of data corresponds to an intubation procedure of a new-born resuscitation during a high fidelity simulation.

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")


Any question?

If you have any request or comment >> https://github.com/CEPOI/ViSiElse