webR <- function(site=NULL){
if (is.null(site)){
x <- menu(c("Addicted to R Graphics", "Announcements", "ALSM examples (Bryan Goodrich)", "Calendar",
"Coding Conventions", "Contributed Documentation (CRAN)", "CRAN", "Creating R Packages",
"Experience With R (blog)", "ggplot2", "Insider-R","Journal of Statistical Software",
"Learn R(Webinar)", "Manuals", "News", "One R Tip a Day", "Packages(alphabetical)",
"Packages(date)", "planet r (daily news)", "Programming R", "QuickR", "R-bloggers",
"R-Forge", "R Forum", "r-for-stats (R tutorial)", "R Graphics Manual",
"R Study Guide (R tutorial)", "Reference Card (Tom Short)", "Revolutions",
"Rseek", "R Tips (Paul Johnson)", "R-Tutotial", "Statistical Data Analysis",
"Statistics With R (Vincent Zoonekynd's notes)", "Stack Overflow", "Tutorials (Burns Statistics)",
"UCLA-R Statistics Examples", "UCLA-R", "Vanderbilt University (Frank Harrell)",
"Videos 1 (Jeremy Anglim's)", "Videos2 (vcasmo)"))
SEL <- c(LETTERS, letters)[x]
}
else {
SEL = site
}
switch(SEL,
A = browseURL("http://addictedtor.free.fr/graphiques/"),
B = browseURL("http://blog.revolutionanalytics.com/announcements/"),
C = browseURL("http://www.bryangoodrich.com/?page_id=7"),
D = browseURL("http://blog.revolutionanalytics.com/calendar.html"),
E = browseURL("http://www1.maths.lth.se/help/R/RCC/"),
F = browseURL("http://cran.r-project.org/other-docs.html"),
G = browseURL("http://cran.r-project.org/"),
H = browseURL("http://web.archive.org/web/20080619144014/http://www.maths.bris.ac.uk/~maman/computerstuff/Rhelp/Rpackages.html"),
I = browseURL("http://statisticsr.blogspot.com/"),
J = browseURL("http://had.co.nz/ggplot2/"),
K = browseURL("http://www.inside-r.org/"),
L = browseURL("http://www.jstatsoft.org/"),
M = browseURL("http://www.fort.usgs.gov/brdscience/LearnR.htm"),
N = browseURL("http://cran.r-project.org/manuals.html"),
O = browseURL("http://developer.r-project.org/blosxom.cgi/R-devel/NEWS"),
P = browseURL("http://onertipaday.blogspot.com/"),
Q = browseURL("http://lib.stat.cmu.edu/R/CRAN/web/packages/available_packages_by_name.html"),
R = browseURL("http://lib.stat.cmu.edu/R/CRAN/web/packages/available_packages_by_date.html"),
S = browseURL("http://planetr.stderr.org/"),
T = browseURL("http://www.programmingr.com/"),
U = browseURL("http://www.statmethods.net/"),
V = browseURL("http://www.r-bloggers.com/"),
W = browseURL("http://r-forge.r-project.org/"),
X = browseURL("http://forums.revolutionanalytics.com/forums/forum.php"),
Y = browseURL("http://r4stats.com/"),
Z = browseURL("http://www.oga-lab.net/RGM2/images.php?show=all&pageID=105"),
a= browseURL("http://www.ling.upenn.edu/~joseff/rstudy/index.html"),
b = browseURL("http://cran.r-project.org/doc/contrib/Short-refcard.pdf"),
c = browseURL("http://blog.revolutionanalytics.com/"),
d = browseURL("http://www.rseek.org/"),
e = browseURL("http://pj.freefaculty.org/R/statsRus.html"),
f = browseURL("http://www.r-tutor.com/"),
g = help.start(),
h = browseURL("http://zoonek2.free.fr/UNIX/48_R/all.html"),
i = browseURL("http://stackoverflow.com/questions/tagged/r"),
j = browseURL("http://www.burns-stat.com/pages/tutorials.html"),
k = browseURL("http://www.ats.ucla.edu/stat/r/dae/"),
l = browseURL("http://www.ats.ucla.edu/stat/r/"),
m = browseURL("http://biostat.mc.vanderbilt.edu/wiki/Main/RS"),
n = browseURL("http://jeromyanglim.blogspot.com/2010/05/videos-on-data-analysis-with-r.html"),
o = browseURL("http://www.vcasmo.com/user/drewconway"))
}