CAT2

library(survival)
data()
mydata<-aml;mydata
View(mydata)
data2<-read.csv("b.csv");data2
data3<-data2$Last;data3
hist(data3)
barplot(data3)

# regression
f=data2$High
g=data2$Last
lm(f~g)
h=data2$Low
i=data2$Vol.
lm(data3~i+h)
summary(lm(data3~f+i))