setwd("/Users/zerohertz")
text=read.table('Data.txt',header=T)

> library(MASS)
> attach(Cars93)
> shapiro.test(Price)

	Shapiro-Wilk normality test

data:  Price
W = 0.88051, p-value = 4.235e-07

> str(Price)
 num [1:93] 15.9 33.9 29.1 37.7 30 15.7 20.8 23.7 26.3 34.7 ...
> qqnorm(Price)
> qqline(Price)
> qqnorm(log(Price))
> qqline(log(Price))
> shapiro.test(log(Price))

	Shapiro-Wilk normality test

data:  log(Price)
W = 0.9841, p-value = 0.32