# Bones Example -- bones.R source code.

# Read and print data.
data <- read.table("bones.txt", header=TRUE)
ratio <- data$LWRatio
print("Length-to-width ratios")
print(ratio)

# Perform one-sample t-test.
ttest <- t.test(x=ratio, y=NULL, alternative="two.sided", mu=8.5, paired=FALSE, conf.level=0.95)
print(ttest)