#Math 282 R homework


#HW3 H)   a # is used for comments

x<-cars[,1]
y<-cars[,2] 
out <- lsfit(x,y)
ls.print(out)


#HW8 H) 

#data = lizard tail length data
data <- c(6.2, 6.6, 7.1, 7.4, 7.6, 7.9, 8, 8.3, 8.4, 8.5, 8.6, 8.8, 
8.8, 9.1, 9.2, 9.4, 9.4, 9.7, 9.9, 10.2, 10.4, 10.8, 11.3, 11.9)
out <- t.test(data) 
# Extract the confidence interval
CI <- out$conf.int
CI
#press Enter if no output appeared