inputdata <- read.table(file("clipboard"), sep = "\t")
head(inputdata)
insp <- inputdata$V1
mu <- mean(insp)
sd <- sd(insp)
par(mfrow = c(2, 1))
hist(insp, breaks = 40,freq=F,main="Original")
hist((insp - mu)/sd, breaks = 40,freq=F,main="Z-Score")
curve(dnorm,add=T,col="red",lwd=2)