1
2
3
4
5
 
 
c(1,2,3)
 
 

1
2
3
4
5
 
 
c(1,2,3)
 
print c

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
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
7
8
9
xb1lIHRvIG5lYnlsbyB0xJvFvmvDqT8gSmVuIHBybyDDunBsbm9zdCBwcm8gbm9ybcOhbG7DrSAo
dGVkeSBuZXBvxI3DrXRhxI1vdsO9KSAgbGlkIC0gcHJvxI0gUG/FoXRvdm7DrT8gIEvDs2QgQmFz
ZTY0LCBrdGVyw71tIGplIHRlbmhsZSB0ZXh0IHpha8OzZG92w6FuLCBwb3XFvsOtdsOhdGUgbWou
ICAoYW5pxb4gdG8gdMWZZWJhIHbDrXRlKSB2ZSB2xaFlY2ggdmHFoWljaCBlbWFpbG92w71jaCB6
cHLDoXbDoWNoIGsgdG9tdSwgYWJ5IHNlIGsgdsOhbSBuZWJvIG9kIHbDoXMgZG9ixZllIHDFmWVu
ZXNseSB2xaFlY2hueSBWYcWhZSBmb3RreSwgdmlkZWEsIHRleHR5IHMgxI1lc2tvdSBkaWFrcml0
aWtvdSBhIGppbsOpIHZ5Y2h5dMOhdmt5IChvYmVjbsOhIGJpbsOhcm7DrSBkYXRhIHNlIGvDs2R1
asOtIHBvIDYgYml0ZWNoIGRvIHRpc2tudXRlbG7DvWNoIDY0IHpuYWvFrywga3RlcsOpIGpzb3Ug
cMWZZW5vc2l0ZWxuw6EgcG/FoXRvdm7DrW0gIE1JTUUgcHJvdG9rb2xlbSkuIFRha8W+ZSAgdGFr
 ...

1
plot(1,1)

1
sqrt(4)

1
2
3
4
5
6
7
8
9
program Project2;
 
{$APPTYPE CONSOLE}
{$O-}
uses
  SysUtils;
 
var
  i, j, n, inf,i1,i2,i3,j1,j2,j3,s1,s2,s,ans:integer;
 ...

1
9+10

1
2
a<-1;
 

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
Ahoy, mayteys!

1
2
3
4
Ahoy, mayteys!
Aye, polly is a parrot that tells the crew what the Captain is thinkin'. Gar.
Ahoy, polly says, "Hello World!"
Dead men tell no tales.

1
2
3
4
5
R!
Ahoy, mayteys!
Aye, polly is a parrot that tells the crew what the Captain is thinkin'. Gar.
Ahoy, polly says, "Hello World!"
Dead men tell no tales.

1
2
3
4
5
6
7
8
9
SPPAPPAPAAASPSASSSASSSAPSPASPPAPPASPAPSASAPASPAAAPPPAPPASPA
SPPASSSPPPAAASPAAAPSASPSPAPPPPASAPPSASPASPPAPPPSAPPAPAPSPASSP
PAPPASSPAAASSPAPSPAPSASPPAAASPPAPSPAPAPPASSPPAPAPPPPASPAAASP
SASSSASSASSAPSAAAPSASPSPAPPPPASAPPPPAPPSASPASPPAPAPSPASAPPPSA
PPAPAPSPASSPPAPAPPPPASPAAASSAPPASPAPPSASAPASPAAAPAAAPPPAPASP
SPAPPPPASSPPAPAPPPPASPAAASSPAPSPAPSASPPAAAPPSPAPPSAPASPAPPSPA
PPSASPASPPASSPPAPSSAPSASPASSPPAPPASSPAAASPSASSSASSASSAPSAAAPP
PSAPPAPAPSPAPPPPAPPSASPASPPAPAPSPASAPAPSPPAPPSPAAASSAPPASPAPP
SASAPASP 

1
2
3
4
5
res = 0:10;
hist(rgeom(100,0.3),prob=T);
points(res,dgeom(res,0.3),type="p");
points(res,dgeom(res,0.25),type="p");
points(res,dgeom(res,0.4),type="p");

1
2
3
4
5
6
7
8
9
library(UsingR);
g = function(n)
{
        (mean(rnorm(n,1,1))-1)/(1/sqrt(n));
}
h = function(n)
{
        (mean(rexp(n,1))-1)/(1/sqrt(n));
}
 ...

1
2
3
4
5
6
7
8
9
f = function(n,m)
{
        x = 1:n;
        vars <- numeric(0);
        for(i in 1:m)
        {
                current = 0;
                perm = sample(x);
                for(j in 1:n)
 ...

1
2
3
abs(qnorm(0.16));
pgeom(4,0.3) - pgeom(1,0.3);
qexp(0.5,1);

1
2
3
abs(qnorm(0.16));
pgeom(4,0.3) - pgeom(1,0.3);
qexp(0.5,1);

1
2
3
4
5
res = 0:10;
hist(rgeom(100,0.3),prob=T);
points(res,dgeom(res,0.3),type="p");
points(res,dgeom(res,0.25),type="p");
points(res,dgeom(res,0.4),type="p");

1
2
3
abs(qnorm(0.16));
pgeom(4,0.3) - pgeom(1,0.3);
qexp(0.5,1);

1
2
3
4
5
6
7
8
9
library(UsingR);
g = function(n)
{
    (mean(rnorm(n,1,1))-1)/(1/sqrt(n));
}
h = function(n)
{
    (mean(rexp(n,1))-1)/(1/sqrt(n));
}
 ...

1
2
3
4
5
6
7
8
9
library(UsingR);
g = function(n)
{
    (mean(rnorm(n,1,1))-1)/(1/sqrt(n));
}
h = function(n)
{
    (mean(rexp(n,1))-1)/(1/sqrt(n));
}
 ...

1
2
3
4
5
6
7
8
9
f = function(n,m)
{
    x = 1:n;
    vars <- numeric(0);
    for(i in 1:m)
    {
        current = 0;
        perm = sample(x);
        for(j in 1:n)
 ...

1
2
3
4
5
6
7
8
9
f = function(n,m)
{
        x = 1:n;
        vars <- numeric(0);
        for(i in 1:m)
        {
                current = 0;
                perm = sample(x);
                for(j in 1:n)
 ...

1
2
3
4
5
6
7
8
9
f = function(n,m)
{
        x = 1:n;
        vars <- numeric(0);
        for(i in 1:m)
        {
                current = 0;
                perm = sample(x);
                for(j in 1:n)
 ...

1
2
3
4
5
6
7
8
9
f = function(n,m)
{
        x = 1:n;
        vars <- numeric(0);
        for(i in 1:m)
        {
                current = 0;
                perm = sample(x);
                for(j in 1:n)
 ...

1
2
3
4
5
6
7
8
9
f = function(n,m)
{
        x = 1:n;
        vars <- numeric(0);
        for(i in 1:m)
        {
                current = 0;
                perm = sample(x);
                for(j in 1:n)
 ...

1
var(c(1,2,3,4,5,6,7,8))