1
?gcd

1
?runif(1000)

1
runif(1000)

1
plot(runif(1000))

1
"hello world"

1
2
x <- 1:23
x^2

1
2
3
4
5
 
 
 
regexp {} 12-31-2011 Match
puts $Match

1
2
3
4
5
 
 
 
regexp {([0-9][0-9]?)} 12-31-2011 Match
puts $Match

1
2
3
4
5
 
 
 
regexp {([0-9][0-9]?)[/-]?([0-9]?[0-9]?)[/-]?([0-9][0-9][0-9][0-9])} 12-31-2011 Match
puts $Match

1
2
3
4
5
 
 
 
regexp -nocase {([0-9][0-9]?)[/-]?([0-9]?[0-9]?)[/-]?([0-9][0-9][0-9][0-9])} "12-31-2011" Match
puts $Match

1
2
3
4
5
6
7
8
9
proc AnalyseDate {Date} {
         if {[regexp -nocase {([a-z]+)[/-]?([0-9]?[0-9]?)[/-]?([0-9][0-9][0-9][0-9])} $Date Match Month Day Year]} {             
               switch -regexp -nocase $Month {
                 "december" {set Month 12}
                 "[a-z]*" {set Month ""}
               }
            } elseif {[regexp -nocase {([0-9][0-9]?)[/-]?([0-9]?[0-9]?)[/-]?([0-9][0-9][0-9][0-9])} $Date Match Month Day Year]} { }
               if {[info exists Day] && $Day > 31} {
               set Day ""
 ...

1
2
3
4
5
6
7
8
9
proc AnalyseDate {Date} {
         if {[regexp -nocase {([a-z]+)[/-]?([0-9]?[0-9]?)[/-]?([0-9][0-9][0-9][0-9])} $Date Match Month Day Year]} {             
               switch -regexp -nocase $Month {
                 "december" {set Month 12}
                 "[a-z]*" {set Month ""}
               }
            } elseif {[regexp -nocase {([0-9][0-9]?)[/-]?([0-9]?[0-9]?)[/-]?([0-9][0-9][0-9][0-9])} $Date Match Month Day Year]} { }
              else {set Month ""}               
               if {[info exists Day] && $Day > 31} {
 ...

1
"hello world"

1
"hello world"

1
2
3
4
mydata <- read.csv(url("http://www.ats.ucla.edu/stat/r/dae/binary.csv"))
attach(mydata)
names(mydata)
[1] "admit" "gre"   "gpa"   "rank"

1
2
3
4
5
6
7
8
9
song<-function(n=99) {
  a<-" bottle"
  b<-" of beer on the wall, "
  c<-" of beer. "
  d<-"Take one down and pass it around: "
  #
  ## set "beer counter" vector
  counter<-c(as.character(n:1),"No more")
  # 
 ...

1
2
 
rnorm(100)

1
2
3
4
5
6
7
8
9
song<-function(n=99) {
  a<-" bottle"
  b<-" of beer on the wall, "
  c<-" of beer. "
  d<-"Take one down and pass it around: "
  #
  ## set "beer counter" vector
  counter<-c(as.character(n:1),"No more")
  # 
 ...

1
2
# this is a comment
x <- 1

1
2
3
4
5
6
7
8
9
nloadRegister(function (){Quickling.init("452359;0", 10, {"prefetch_logging":false});});
onloadRegister(function (){window.intl_locale_rewrites = {"meta":{"\/_B\/":"^(.*[.,!?\\s]|)","\/_E\/":"([.,!?\\s].*|)$"},"patterns":{"\/\u0001(.*)('|')s\u0001(?:'|')s(.*)\/":"\u0001$1$2s\u0001$3","\/_\u0001([^\u0001]*)\u0001\/e":"mb_strtolower(\"\u0001$1\u0001\")","\/_\u0001([^\u0001]*)\u0001\/":"javascript"}};});
onloadRegister(function (){DocumentTitle.set("Facebook");});
onloadRegister(function (){JSCC.get('j4e8ac50018dc329714131771').init($("contentArea"), $('rightCol'), null, $('toolbarContainer'));});
onloadRegister(function (){JSCC.get('j4e8ac50018dc329714131773').getData().onLoad(false, true);});
onloadRegister(function (){new CounterDisplay("messages_unread", $("jewelInnerInboxCount"), $("jewelOuterInboxCount"), "fbMessagesItemList", "jewelUnread", true);});
onloadRegister(function (){window.presenceRequests = new RequestsJewel().init(JSCC.get('j4e8ac50018dc329714131774'), "[fb]requests", false)});
onloadRegister(function (){JSCC.get('j4e8ac50018dc329714131774').init("requests", $("fbRequestsJewel"));});
onloadRegister(function (){new MessagesJewel().init(JSCC.get('j4e8ac50018dc329714131775'), "[fb]messages")});
 ...

1
2
x <- rnorm(100)
hist(x)

1
2
x <- rnorm(x)
hist(x)

1
2
3
4
5
6
7
8
9
song<-function(n=99) {
  a<-" bottle"
  b<-" of beer on the wall, "
  c<-" of beer. "
  d<-"Take one down and pass it around: "
  #
  ## set "beer counter" vector
  counter<-c(as.character(n:1),"No more")
  # 
 ...

1
2
3
4
5
6
 
i<-c(1:13195)
 
sq<-(13195)^0.5
 
check <- 5*7*13*29

1
2
3
mooboot=()
for (i in 1:1000){
mooboot[i]=sample(1:10,replacement=T)}

1
2
3
4
5
6
theRange = function(data)
{
        c(min(data),max(data))
}
 
theRange(c(1,2,3,7,5,3,2,4,4))

1
2
3
4
5
6
theRange = function(data)
{
        c(min(data),max(data))
}
 
theRange(c(1,2,3,7,5,3,2,4,))

1
2
3
4
5
6
7
8
9
library("UsingR");
f = function()
{
        n = 100;
        p = 0.3;
        S = rbinom(1,n,p);
        (S - n * p)/sqrt(n * p * (1-p));
}
x = simple.sim(100,f);

1
2
3
4
5
6
7
8
 
 
a = 0;
for(i in 1:100)
{
        S = rnorm(100,2,25);
        a = a + S;
}

1
2
primes = c(2,3,5,7,11);
primes