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