diff --git a/data-raw/cassavaYield.R b/data-raw/cassavaYield.R
index 249177652586b7e681d46791e5c219d2c827688f..28a39a046edc776dafaa6903ecac7d76f5a6f09a 100644
--- a/data-raw/cassavaYield.R
+++ b/data-raw/cassavaYield.R
@@ -6,6 +6,10 @@ cassavaYield <- read.table("http://www.leg.ufpr.br/~walmes/data/pimentel_mandioc
 names(cassavaYield) <- c("block", "variety", "yield")
 str(cassavaYield)
 
+levels(cassavaYield$variety) <- 
+    c("Aipim bravo", "Escondida", "Mamão", "Milagrosa", "Salangó Preta", 
+      "Sutinga")
+
 cassavaYield <- cassavaYield[with(cassavaYield, order(block, variety)),]
 
 save(cassavaYield, file="../data/cassavaYield.RData")
@@ -32,7 +36,3 @@ par(mfrow=c(2,2)); plot(m0); layout(1)
 
 ## ANOVA table.
 anova(m0)
-
-library(doBy)
-ls <- LSmatrix(m0, effect="variety")
-dput(ls)
diff --git a/data/cassavaYield.RData b/data/cassavaYield.RData
index 07cdb35446a418b6d57821875406864be2fff9a8..6fa7094064f95fc01ec7dc5f087b8d8fafb1b09a 100644
Binary files a/data/cassavaYield.RData and b/data/cassavaYield.RData differ