insp <- inputdata$V2
mu <- mean(insp)
sd <- sd(insp)
hist(insp)
hist((insp-mu)/sd)