# NOT RUN {
data(alkalinity)
data <- alkalinity
AT <- at(S=data$S[1], T=data$temperature, C=data$normality[1], pHTris=data$pHTris[1],
ETris=data$ETris[1], E=data$E, weight=data$weight[1], volume=data$volume)
# }
Run the code above in your browser using DataLab