A virtual Easter egg is an intentional hidden message, in-joke, or feature in a work such as a computer program, web page, video game, movie, book, or crossword. The term was coined — according to Warren Robinett — by Atari after they were pointed to the secret message left by Robinett in the game Adventure. It draws a parallel with the custom of the Easter egg hunt observed in many Western nations as well as the last Russian imperial family’s tradition of giving elaborately jeweled egg-shaped creations by Carl Fabergé which contained hidden surprises
I like this
and these two
on 32 bit R type
and on any version try four question marks
Perhaps the prettiest eggs are the demos in animation package.
But there is magic in asking for help on internal functions in R
and you get the sobering thought that you probably are a R Muggle
Call an Internal Function
.Internal performs a call to an internal code which is built in to the R interpreter.
Only true R wizards should even consider using this function, and only R developers can add to the list of internal functions.
||a call expression|
I liked that I could see the actual internal functions in svn at http://svn.r-project.org/R/trunk/src/main/names.c
The opening of the internals document floored me.
It must have been a curious year in 2003-4 when the copyright of R was held (briefly it seems) by the R Foundation and also by the R Development Core Team. (which sounds better?)
* R : A Computer Language for Statistical Data Analysis * Copyright (C) 1995, 1996 Robert Gentleman and Ross Ihaka * Copyright (C) 1997--2012 The R Development Core Team * Copyright (C) 2003, 2004 The R Foundation
R help discourages for loop
Try ??for or ?for
you go into a loop till you hit escapeIf you want more-just write .Internal(inspect(ls())) at the end of your R program.
The lovely colors at http://ColorBrewer.org can be used for much better color palettes in R.
and we use the function
brewer.pal(N,”Name”) as the col parameter for the new color palettes
where we can see name of palettes from the list above
data(VADeaths) par(mfrow=c(2,3)) hist(VADeaths,col=brewer.pal(3,"Set3"),main="Set3 3 colors") hist(VADeaths,col=brewer.pal(3,"Set2"),main="Set2 3 colors") hist(VADeaths,col=brewer.pal(3,"Set1"),main="Set1 3 colors") hist(VADeaths,col=brewer.pal(8,"Set3"),main="Set3 8 colors") hist(VADeaths,col=brewer.pal(8,"Greys"),main="Greys 8 colors") hist(VADeaths,col=brewer.pal(8,"Greens"),main="Greens 8 colors")