Request: Suggestions for "good teaching" packages, esp. with C code

f1 <- function(){
 a=5
}

The primary difference is that function 1 uses an incorrect assignment 
operator in an attempt to cause confusion ;)