web <- function(site = "ts", search = NULL, url = NULL){
s <- substitute(site)
s <- as.character(s)
s2 <- substitute(search)
s2 <- as.character(s2)
s3 <- substitute(url)
s3 <- as.character(s3)
switch(s,
#PRELOADED WEBSITES
talkstats = browseURL("http://www.talkstats.com"),
ts = browseURL("http://www.talkstats.com"), #talkstats shortcut
textbook = browseURL("http://udel.edu/~mcdonald/statintro.html"),
gmail = browseURL("http://www.gmail.com"),
hotmail = browseURL("http://www.hotmail.com"),
facebook = browseURL("http://www.facebook.com/home.php"),
gs = browseURL("http://scholar.google.com/"), #google scholar shortcut
google.scholar = browseURL("http://scholar.google.com/"),
rseek = browseURL("http://www.rseek.org/"),
ucla = browseURL("http://www.ats.ucla.edu/stat/"),
ucla.ex = browseURL("http://www.ats.ucla.edu/stat/r/dae/"), #examples from ucla
ucla.r = browseURL("http://www.ats.ucla.edu/stat/r/"), #[R] section from ucla
rnews = browseURL("http://www.jstatsoft.org/"),
quickr = browseURL("http://www.statmethods.net/"),
prettycode = browseURL("http://www.inside-r.org/pretty-r/tool"),
social.research.methods = browseURL("http://www.socialresearchmethods.net/"),
srm = browseURL("http://www.socialresearchmethods.net/"),
decision.tree = browseURL("http://ucspace.canberra.edu.au/download/attachments/43549148/NeillHowell2008InferentialStatisticalDecisionTree.pdf"),
dt = browseURL("http://ucspace.canberra.edu.au/download/attachments/43549148/NeillHowell2008InferentialStatisticalDecisionTree.pdf"),
stats.formulas = browseURL("http://stattrek.com/Lesson1/Formulas.aspx?Tutorial=Stat"),
formulas = browseURL("http://stattrek.com/Lesson1/Formulas.aspx?Tutorial=Stat"),
stats.dictionary = browseURL("http://stattrek.com/Help/Glossary.aspx"),
dictionary = browseURL("http://stattrek.com/Help/Glossary.aspx"),
dict = browseURL("http://stattrek.com/Help/Glossary.aspx"),
symbols = browseURL("http://stattrek.com/Lesson1/Notation.aspx"),
stats.symbols = browseURL("http://stattrek.com/Lesson1/Notation.aspx"),
#SEARCH ENGINES
google.search = browseURL(paste("http://www.google.com/#q=", s2, sep = "")),
g.s = browseURL(paste("http://www.google.com/#q=", s2, sep = "")),
rseek.search = browseURL(paste("http://www.rseek.org/?cx=010923144343702598753%3Aboaz1reyxd4&newwindow=1&q=",s2,"&sa=Search+functions%2C+lists%2C+and+more&cof=FORID%3A11&siteurl=www.rseek.org%2F#933",sep = "")),
r.s = browseURL(paste("http://www.rseek.org/?cx=010923144343702598753%3Aboaz1reyxd4&newwindow=1&q=",s2,"&sa=Search+functions%2C+lists%2C+and+more&cof=FORID%3A11&siteurl=www.rseek.org%2F#933",sep = "")),
wikipedia.search = browseURL(paste("http://en.wikipedia.org/wiki/",s2,sep = "")),
wiki.search = browseURL(paste("http://en.wikipedia.org/wiki/",s2,sep = "")),
w.s = browseURL(paste("http://en.wikipedia.org/wiki/",s2,sep = "")),
quickr.search = browseURL(paste("http://www.statmethods.net/search/index.asp?QU=",s2,"&Action=Search",sep = "")),
q.s = browseURL(paste("http://www.statmethods.net/search/index.asp?QU=",s2,"&Action=Search",sep = "")),
youtube.search = browseURL(paste("http://www.youtube.com/results?search_query=",s2,"&aq=f",sep = "")),
yt.s = browseURL(paste("http://www.youtube.com/results?search_query=",s2,"&aq=f",sep = "")),
talkstats.search = browseURL(paste("http://www.google.com/#q=",s2,"+site:www.talkstats.com", sep = "")),
ts.s = browseURL(paste("http://www.google.com/#q=",s2,"+site:www.talkstats.com", sep = "")),
dictionary.search = browseURL(paste("http://www.merriam-webster.com/dictionary/",s2,sep = "")),
d.s = browseURL(paste("http://www.merriam-webster.com/dictionary/",s2,sep = "")),
#CODE FOR url ARGUMENT
URL = browseURL(if (substring(s3,1,4)=="www."){
paste("http://",s3,sep="")
}else{
paste("http://www.",s3,sep="")
}))
}