| Glucose {PK} | R Documentation |
Baseline adjusted glucose levels following alcohol ingestion
Description
The Glucose data frame has 196 rows and 4 columns. The dataset is originally in package nlme as Glucose2.
Format
This data frame contains the following columns:
- id
-
a factor with levels
1to7identifying the subject whose glucose level is measured. - date
-
a factor with levels
12indicating the occasion in which the experiment was conducted. - time
-
a numeric vector giving the time since alcohol ingestion (in min/10).
- conc
-
a numeric vector giving the blood glucose level (in mg/dl) adjusted for baseline.
Details
Hand and Crowder (Table A.14, pp. 180-181, 1996) describe data on
the blood glucose levels measured at 14 time points over 5 hours for 7
volunteers who took alcohol at time 0. The same experiment was
repeated on a second date with the same subjects but with a dietary
additive used for all subjects.
Dataset was corrected for baseline using the following code:
## dataset Glucose2 of package nlme
require(nlme)
Glucose2 <- Glucose2[order(Glucose2$Subject, Glucose2$Date, Glucose2$Time),]
## adjust for pre-infusion levels measured at time points -1 and 0
data <- NULL
for(i in unique(Glucose2$Subject)){
for(j in unique(Glucose2$Date)){
temp <- subset(Glucose2, Subject==i & Date==j)
temp$Conc <- temp$glucose - mean(c(temp$glucose[1], temp$glucose[2]))
temp$Conc <- ifelse(temp$Conc < 0 | temp$Time <= 0, 0, temp$Conc)
## handle intermediate values > 0
index1 <- which.max(temp$Conc)
index2 <- which.min(temp$Conc[-c(1:index1)]) + index1
if(temp$Conc[index2]==0){temp$Conc[c(index2:nrow(temp))] <- 0}
data <- rbind(data,temp)
}
}
Glucose <- subset(data, Time >= 0,
select=c('Subject', 'Date', 'Time', 'Conc'))
names(Glucose) <- c("id","date","time","conc")
Source
Pinheiro, J. C. and Bates, D. M. (2000), Mixed-Effects Models in S and S-PLUS, Springer, New York. (Appendix A.10)
Hand, D. and Crowder, M. (1996), Practical Longitudinal Data Analysis, Chapman and Hall, London.