#Problem 1

install.packages("lars")
library(lars)

data(diabetes)
attach(diabetes)

#Problem 2

summfunc<-function(x,y,z){
	
	mx<-mean(x)
	varx<-var(x)

	my<-mean(y)
	vary<-var(y)	
	
	mz<-mean(z)
	varz<-var(z)

	par(mfrow=c(3,1))
	hist(x)
	hist(y)
	hist(z)

	c(mx, varx, my, vary, mz, varz)

}

x<-diabetes[,1]
y<-diabetes[,2]
z<-diabetes[,3]

summfunc(x,y,z)

#Problem 3

datas<-read.table("C:/ggdata.txt", header=T)

t.test(gpa~gender, var.equal=T)

wilcox.test(gpa~gender)

#Problem 4

x<-c(5,10,15,20,25,30,35,40,45,50)
y<-c(2,4,7,10,12,13,18,21,23,22)

p4<-lm(y~x)

p4$fitted

plot(x,y)
abline(p4)

cor.test(x,y)