#Lab 1

setwd("C:/Documents and Settings/BuroK/My Documents/R")

data.in<-read.table("data.txt", header=TRUE)
data.in<-read.table(file.choose(), header=TRUE)

data.in
is.data.frame(data.in)
is.matrix(data.in)
x
data.in$y


with(data.in, summary(x))
summary(data.in)

hist(data.in$x)
hist(data.in$y1)
plot(data.in$x,data.in$y1)
identify(data.in$x,data.in$y1,row.names(data))

line(lm(data.in$y1~data.in$x))

model<-lm(y~x,, data=data.in)
summary(model)

#######################


library(car)
qqPlot(y,id.n=5, , data=data.in)
identify