From a7cbe5eaab9f2f3e51a09e505bca2a7117b6f74f Mon Sep 17 00:00:00 2001 From: Walmes Zeviani <walmes@ufpr.br> Date: Sat, 26 Sep 2015 14:22:57 -0300 Subject: [PATCH] Resolves problem of non-ASCII factor levels. --- data-raw/cassavaYield.R | 8 ++++---- data/cassavaYield.RData | Bin 411 -> 413 bytes 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/data-raw/cassavaYield.R b/data-raw/cassavaYield.R index 2491776..28a39a0 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 GIT binary patch literal 413 zcmV;O0b>3iiwFP!000001FcidPQpMCUbg&LR8$Z!#uyUezyTDzc&v#YNsL_ZIJAXq zEY!5Mh8wS;S0BMg;Hs~L&bG5C1a409b!Wesote(;-rw}v*<O}0#+k-B;~J_-j-Lce zG9A|)6MP>+co4Q@F{TxeLnmz)*Q3a9J@^J_8<1R&rCQRC9omkM+J0n>*@Pg43#Dm7 z{F32Hl$7b<FHw+1=mD64>!CJZ`8oclz?Ag-KVFu_zp0WmRkD38p2Voq_aJnM(r<m! z9b3Wz#->rV9T?5t7v_#|VCcENGUvMBz<4<OsN8vW0OXeGJ_lkvggCFJ@~-Uw%gGKH z4Hk(}8AM_<UZuPlrB5keMxOZMWhBNq*_D5t_%iV)#GlgnD~ewyzD<0M_$uwIWN#7Q zn#St|?T^V`qdaGE-qpd6VPvbpYl`eUuKB216oM!0V4`f3_|h*$(LML2sUrQoC}|oj zry<K>XXFc#Lq%*M<V(}(Tpn>it(Fz-Aqo_)j5tJ;5XB7x%UTdXbKqeqG_?5-86FQ- H&jSDeU2w@1 literal 411 zcmV;M0c8FkiwFP!000001FcfcPQpMCUbg&5MN|+l#uyUizyTDzc&v#YNsL_ZIJAXq zEY!5MhMTXUS0BMg;Hs~L&bG4%1a409b!Wesotf^p_cy(^-qRUloN1ghuA!Uc_(`xN z%i@|d!S^AA2VpxFV_Fe8Owx96J&f|!gKvPg0m=1PnkDVnq3!tS?M2a;O$c(hP@X2l z9~rJxNtq7*5*3-39)KCR9(uEtpW_Pyrex;-@p3HwLzARwlI?5pBu3S~2cb(;_SQGu zu_Y{!8=2dI(ez^;?g$5lp6jb{z6%bFhttpMoo5F?X_@YGAjU(8`)aE1+8bbbc>_j+ zMP^h7kr|CQY41k)OWL<lAii`NnQ=~Wm0u^mLi{oDCv^Ub>eq>H6JI0#jP_>~ZxP>m zjn@m>A5pwUeNN-PtHO_AWGmq{MfM%nd{kEyf+y@?qGFTy(JxiWdhSb8Ra$%~X%d!` z$WrVKA}2*fY$0?~NS-So_UWqSM7xM0)vF*55M@MZgJ8M^0W=35jzXf%egVW1PpQuX F007=N!=eBH -- GitLab