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**(5+4)))M

1
$((2**(5+4)))M

1
Mfp ey zwvo fvat rjx hwprdrr lb nawzh tnfpc: Anj icvlu, hjgy Kbffhg, zk hjp gm nso nntjj, phf sw vawwhnwer, pcum nu oeq ewllxqmqit

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
x = c (1,1,1,1,1,1,-1,-1,-1,-1)
t.test(x);

1
1.3*as.integer(4)==as.integer(1.3*as.integer(4))

1
class(1.3*as.integer(4)==as.integer(1.3*as.integer(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
a<-rep(0,10);
b<-c(1:10);
c=a+b;
 

1
2
x <- c(0, 1, 2)
sum(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
x<-  c(1,2,3,4,5)
terms <- c(0,1)
terms[2]

1
2
3
x<-  c(1,2,3,4,5)
terms <- c(0,1)
terms

1
2
X<-  c(1,2,3,4,5)
X

1
2
X<-  c(1,2,3,4,5)
Print X

1
2
X<-  c(1,2,3,4,5)
Print (X)

1
2
3
4
5
6
7
8
9
options(scipen=999)
 
 
fibvals <-1
jrk <-1
 
 
vana1 <-0
vana2 <-1
 ...

1
2
3
4
5
6
7
8
9
options(scipen=999)
 
 
fibvals <-1
jrk <-1
 
 
vana1 <-0
vana2 <-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
2
3
4
5
6
7
8
9
 
set.seed(0)
numRows <- 100
age <- ceiling(100*runif(numRows))
income <- ceiling(1e5*round(rlnorm(numRows),2))
debtToIncome <- 10*runif(numRows)
dataMatrix <- matrix(c(age,income,debtToIncome),
                                         nrow=numRows,
                                         ncol=3,
 ...

1
2
3
4
5
6
7
8
9
 
set.seed(0)
numRows <- 100
age <- ceiling(100*runif(numRows))
income <- ceiling(1e5*round(rlnorm(numRows),2))
debtToIncome <- 10*runif(numRows)
dataMatrix <- matrix(c(age,income,debtToIncome),
                                         nrow=numRows,
                                         ncol=3,
 ...

1
2
3
4
5
6
7
8
9
 
set.seed(0)
numRows <- 100
age <- ceiling(100*runif(numRows))
income <- ceiling(1e5*round(rlnorm(numRows),2))
debtToIncome <- 10*runif(numRows)
dataMatrix <- matrix(c(age,income,debtToIncome),
                                         nrow=numRows,
                                         ncol=3,
 ...

1
2
3
4
5
6
7
8
9
 
set.seed(0)
numRows <- 100
age <- ceiling(100*runif(numRows))
income <- ceiling(1e5*round(rlnorm(numRows),2))
debtToIncome <- 10*runif(numRows)
dataMatrix <- matrix(c(age,income,debtToIncome),
                                         nrow=numRows,
                                         ncol=3,
 ...

1
2
3
4
5
6
7
8
9
 
set.seed(0)
numRows <- 100
age <- ceiling(100*runif(numRows))
income <- ceiling(1e5*round(rlnorm(numRows),2))
debtToIncome <- 10*runif(numRows)
dataMatrix <- matrix(c(age,income,debtToIncome),
                                         nrow=numRows,
                                         ncol=3,
 ...

1
2
3
4
5
6
7
8
9
 
set.seed(0)
numRows <- 100
age <- ceiling(100*runif(numRows))
income <- ceiling(1e5*round(rlnorm(numRows),2))
debtToIncome <- 10*runif(numRows)
dataMatrix <- matrix(c(age,income,debtToIncome),
                                         nrow=numRows,
                                         ncol=3,
 ...

1
2
3
4
5
6
7
8
9
 
set.seed(0)
numRows <- 100
age <- ceiling(100*runif(numRows))
income <- ceiling(1e5*round(rlnorm(numRows),2))
debtToIncome <- 10*runif(numRows)
dataMatrix <- matrix(c(age,income,debtToIncome),
                                         nrow=numRows,
                                         ncol=3,
 ...

1
2
3
4
5
6
7
8
9
 
set.seed(0)
numRows <- 100
age <- ceiling(100*runif(numRows))
income <- ceiling(1e5*round(rlnorm(numRows),2))
debtToIncome <- 10*runif(numRows)
dataMatrix <- matrix(c(age,income,debtToIncome),
                                         nrow=numRows,
                                         ncol=3,
 ...