data(census)
data(census) str(census) these <- census[,3] > 0 # income greater than 0 histPlot(log(census$totalFamilyIncome[these]), xlab="log(total family income)")
Run the code above in your browser using DataLab