# NOT RUN {
data("Iso_data")
## Example
names <- Iso_data$Identifier[1:312]
values <- Iso_data$d.D_H.Mean[1:312]
cor_data <- cbind.data.frame(names,values)
# 5 itterations is enough for this dataset, 10 are used to illustrate convergence
for(i in 1:10){
cor_data <- drift(cor_data[,1], as.numeric(cor_data[,2]), 8,
"LAB2", -48.7, graph = TRUE, skip.inquiry = TRUE)
cor_data <- carry.over(cor_data[,1], as.numeric(cor_data[,2]), 8,
c("LAB1","LAB3"), c(7.7, -147), graph = TRUE, skip.inquiry = TRUE)
}
sum_dat <- iso.summary(cor_data[,1], as.numeric(cor_data[,2]), 8, skip.inquiry = TRUE)
# }
Run the code above in your browser using DataLab