diff --git a/03_GettingData/03_03_creatingNewVariables/index.Rmd b/03_GettingData/03_03_creatingNewVariables/index.Rmd
index 6905cdbe8..655d5d0c9 100644
--- a/03_GettingData/03_03_creatingNewVariables/index.Rmd
+++ b/03_GettingData/03_03_creatingNewVariables/index.Rmd
@@ -134,7 +134,7 @@ class(restData$zcf)
 ```{r}
 yesno <- sample(c("yes","no"),size=10,replace=TRUE)
 yesnofac = factor(yesno,levels=c("yes","no"))
-relevel(yesnofac,ref="no")
+relevel(yesnofac,ref="yes")
 as.numeric(yesnofac)
 ```
 
diff --git a/03_GettingData/03_04_reshapingData/index.Rmd b/03_GettingData/03_04_reshapingData/index.Rmd
index 6d7555c8b..862715935 100644
--- a/03_GettingData/03_04_reshapingData/index.Rmd
+++ b/03_GettingData/03_04_reshapingData/index.Rmd
@@ -127,7 +127,7 @@ sapply(spIns,sum)
 ## Another way - plyr package
 
 ```{r,dependson="sprCount"}
-ddply(InsectSprays,.(spray),summarize,sum=sum(count))
+ddply(InsectSprays,.(spray),summarise,sum=sum(count))
 ```
 
 
@@ -136,7 +136,7 @@ ddply(InsectSprays,.(spray),summarize,sum=sum(count))
 ## Creating a new variable
 
 ```{r,dependson="sprCount"}
-spraySums <- ddply(InsectSprays,.(spray),summarize,sum=ave(count,FUN=sum))
+spraySums <- ddply(InsectSprays,.(spray),summarise,sum=ave(count,FUN=sum))
 dim(spraySums)
 head(spraySums)
 ```