Run »
Data_Cars <- mtcars mean(Data_Cars$wt)
[1] 3.21725