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

1
[1,2]

1
2
3
4
5
6
7
8
9
  udalosti <-0
  #Prichod studentu na Acko, stredni hodnota je 45 minut.
  udalosti[1]=[0,rexp(1,1/45)]
  #Prijezdy ochotnych aut po rade na A B a C
  udalosti[2]=[1,rexp(1,1/40)]
  udalosti[3]=[2,rexp(1,1/10)]
  udalosti[4]=[3,rexp(1,1/50)]
 
  sort(udalosti)
 ...

1
c(1,2)

1
2
3
4
5
6
7
8
9
  udalosti <-0
  #Prichod studentu na Acko, stredni hodnota je 45 minut.
  udalosti[1]=c(0,rexp(1,1/45))
  #Prijezdy ochotnych aut po rade na A B a C
  udalosti[2]=c(1,rexp(1,1/40))
  udalosti[3]=c(2,rexp(1,1/10))
  udalosti[4]=c(3,rexp(1,1/50))
 
#  sort(udalosti)
 ...

1
2
3
4
5
6
7
8
9
  udalosti <-0
  #Prichod studentu na Acko, stredni hodnota je 45 minut.
  udalosti[1]=c(0,rexp(1,1/45))
  #Prijezdy ochotnych aut po rade na A B a C
  udalosti[2]=c(1,rexp(1,1/40))
  udalosti[3]=c(2,rexp(1,1/10))
  udalosti[4]=c(3,rexp(1,1/50))
 
  sort(udalosti)
 ...

1
2
3
4
5
6
7
8
udalosti[1]=c(0,rexp(1,1/45))
  udalosti[2]=c(1,rexp(1,1/40))
  udalosti[3]=c(2,rexp(1,1/10))
  udalosti[4]=c(3,rexp(1,1/50))
 
  sort(udalosti)
 
  udalosti

1
sort(c(10:3,2:12), method = "sh", index.return=TRUE)

1
2
3
4
5
6
7
8
9
 
    # make some data
    x <- rbind(matrix(rnorm(100, sd = 0.3), ncol = 2),
               matrix(rnorm(100, mean = 1, sd = 0.3), ncol = 2))
    colnames(x) <- c("x", "y")
    #
    # do cluster analysis
    (cl <- kmeans(x, 2))
    #

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
library(quantmod)
 
example(getSymbols)
 

1
2
3
4
5
library(quantmod)
 
getSymbols(^DJI)
 
plot(DJI)

1
2
3
4
5
library(quantmod)
 
z<-getSymbols('^DJI')
 
plot(z)

1
2
3
4
s <-100000
x <-runif(s)
y <-runif(s)
sum(x^2+y^2<=1)*4/s

1
2
3
4
5
f <- function(){
        ks.test(c(1,2,3,4,5),c(9,10,11,12))
}
 
f()

1
2
3
4
5
f <- function(){
        ks.test(c(1,2,3,4,5),(9,10,11,12))
}
 
f

1
2
3
4
5
x<-c(1,2,3,4,5)
y<-c(6,7,8,9,10)
 
plot(y~x)
 

1
2
x <- c(1:20, 20:1)
x*x

1
2
x <- c(1:20)
x*x

1
2
3
4
5
6
7
8
9
 
   
        
 
        
                                         
                         
                
                
 ...

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
options(width=80)
b <- sapply(1:50, function(n) (2*n + 20)/(n^2))
plot(b, type ="l")

1
2
3
options(width=80)
b <- sapply(1:50, function(n) (2*n + 20)/(n^2))
b

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
3*4

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
SPPAPPAPAAASPSASSSASSSAPSPASPPAPPASPAPSASAPASPAAAPPPAPPASPA
SPPASSSPPPAAASPAAAPSASPSPAPPPPASAPPSASPASPPAPPPSAPPAPAPSPASSP
PAPPASSPAAASSPAPSPAPSASPPAAASPPAPSPAPAPPASSPPAPAPPPPASPAAASP
SASSSASSASSAPSAAAPSASPSPAPPPPASAPPPPAPPSASPASPPAPAPSPASAPPPSA
PPAPAPSPASSPPAPAPPPPASPAAASSAPPASPAPPSASAPASPAAAPAAAPPPAPASP
SPAPPPPASSPPAPAPPPPASPAAASSPAPSPAPSASPPAAAPPSPAPPSAPASPAPPSPA
PPSASPASPPASSPPAPSSAPSASPASSPPAPPASSPAAASPSASSSASSASSAPSAAAPP
PSAPPAPAPSPAPPPPAPPSASPASPPAPAPSPASAPAPSPPAPPSPAAASSAPPASPAPP
SASAPASP