MINI ANALYSIS 1 data-read.csv('C:UsersGeorgeDesktoptv.csv')

MINI ANALYSIS 1
data<-read.csv("C:\\Users\\George\\Desktop\\tv.csv",header=T)
attach(data)
plot(data$ppDr,data$ppTV,xlab="people per Dr",ylab="people per TV",main="People per TV vs People
per Doctors")
plot(log10(data$ppDr),log10(data$ppTV),xlab="log10(people per Dr)",ylab="log10(people per
TV)",main="log10 transform: People per TV vs People per Doctors")
mm<-lm(data$ppTV~data$ppDr)
mm
summary(mm)
mm<-lm(log10(data$ppTV)~log10(data$ppDr))
mm
summary(mm)
plot(1/(data$ppDr),1/(data$ppTV),xlab="1/Dr per capita",ylab="1/TV per capita",main="1/TV/capita vs
1/Doctors/capita")
mm<-lm(I(1/data$ppTV)~I(1/data$ppDr))
abline(mm)
lines(sort(1/data$ppDr[is.na(data$ppTV)==F]),sort(mm$fit),lwd=2,col=2)
plot(sqrt(1/(data$ppDr)),sqrt(1/(data$ppTV)),xlab="sqrt Dr per capita",ylab="sqrt TV per
capita",main="Sqrt transform: TV/capita vs Doctors/capita")
mm<-lm(sqrt(1/(data$ppT))~sqrt(1/(data$ppD)))
abline(mm)
lines(sort(sqrt(1/data$ppD[is.na(data$ppT)==F])),sort(mm$fit),lwd=2,col=2)

housedata<-read.csv("C:\\Users\\George\\Desktop\\housedata.csv",header=T)
attach(housedata)
plot(price~bathrooms,ylab="Price",xlab="bathrooms", main="Price vs Bathrooms")
mm1<-lm(price~bathrooms)
abline(mm1)
plot(price~sqft_living,ylab="Price",xlab="sqft_living", main="Price vs sqft_living")
mm2<-lm(price~sqft_living)
abline(mm2)
plot(price~sqft_lot,ylab="Price",xlab="sqft_lot", main="Price vs sqft_lot")
mm3<-lm(price~sqft_lot)
abline(mm3)
plot(price~yr_built,ylab="Price",xlab="yr_built", main="Price vs yr_built")
mm4<-lm(price~yr_built)
abline(mm4)
plot(price~long,ylab="Price",xlab="long", main="Price vs long")
mm5<-lm(price~long)
abline(mm5)
plot(log10(price)~log10(bathrooms),ylab="log10 Price",xlab="log10 bathrooms", main="log10
transform: Price vs Bathrooms")
mm1<-lm(log10(price)~log10(bathrooms))
abline(mm1)
plot(log10(price)~log10(sqft_living),ylab="log10 Price",xlab="log10 sqft_living", main="log10
transform:Price vs sqft_living")
mm2<-lm(log10(price)~log10(sqft_living))
abline(mm2)
plot(log10(price)~log10(sqft_lot),ylab="log10 Price",xlab="log10 sqft_lot", main="log10 transform:Price
vs sqft_lot")
mm3<-lm(log10(price)~log10(sqft_lot))

abline(mm3)
plot(log10(price)~log10(yr_built),ylab="log10 Price",xlab="log10 yr_built", main="log10 transform:Price
vs yr_built")
mm4<-lm(log10(price)~log10(yr_built))
abline(mm4)
plot(log10(price)~log10(long),ylab="log10 Price",xlab="log10 long", main="log10 transform:Price vs
long")
mm5<-lm(log10(price)~log10(long))
abline(mm5)
plot(1/(price)~1/(bathrooms),ylab="1/Price",xlab="1/bathrooms", main="1/Price vs 1/Bathrooms")
mm1<-lm(I(1/price)~I(1/bathrooms))
abline(mm1)
plot(1/price~1/sqft_living,ylab="1/Price",xlab="1/sqft_living", main="1/Price vs 1/sqft_living")
mm2<-lm(I(1/price)~I(1/sqft_living))
abline(mm2)
plot(1/price~1/sqft_lot,ylab="1/Price",xlab="1/sqft_lot", main="1/Price vs 1/sqft_lot")
mm3<-lm(I(1/price)~I(1/sqft_lot))
abline(mm3)
plot(1/price~1/yr_built,ylab="1/Price",xlab="1/yr_built", main="1/Price vs 1/yr_built")
mm4<-lm(I(1/price)~I(1/yr_built))
abline(mm4)
plot(1/price~1/long,ylab="1/Price",xlab="1/long", main="1/Price vs 1/long")
mm5<-lm(I(1/price)~I(1/long))
abline(mm5)
plot(sqrt(1/(price))~sqrt(1/(bathrooms)),ylab="sqrt1/Price",xlab="sqrt1/bathrooms", main="sqrt1/Price
vs sqrt1/Bathrooms")