data=read.delim("ldi4_14.dat",header=TRUE)

str(data)
## 'data.frame':    50 obs. of  2 variables:
##  $ INCOME: int  28530 51074 31706 26850 38457 41429 41775 31811 30632 33801 ...
##  $ STATE : Factor w/ 50 levels "AK      ","AL      ",..: 2 1 4 3 5 7 6 47 8 9 ...
head(data)
##   INCOME    STATE
## 1  28530 AL      
## 2  51074 AK      
## 3  31706 AZ      
## 4  26850 AR      
## 5  38457 CA      
## 6  41429 CO
hist(data$INCOME,
     col="wheat")

plot of chunk unnamed-chunk-1

The histogram is skewed to the right.