# NOT RUN {
data("happiness")
stopifnot(all.equal(rowSums(happiness[,c("GDP", "Family", "Health", "Freedom",
"Corruption", "Generosity",
"Dystopia")]),
happiness[, "Happiness"], tol = 5e-5))
# }
Run the code above in your browser using DataLab