library(nlme) Remi <- Remifentanil[complete.cases(Remifentanil),] Remi$ID <- factor(Remi$ID) qRemi <- qdata(Remi) qtime(Time, conc, qRemi, hdiv=ID) Qanviz::PlotView instance id <- link_cat(qRemi, "ID")