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
print(paste("x","y",sep=""))

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+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
x <- rnorm(100)
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
sapply(1:10,function(i) print(i + 23))

1
 

1
2
3
4
5
6
7
8
9
 my $dummy = <>;
 while(my $line=<>){
  
  @sum = split /,/,$line ;
  my $sum = shift @sum;
 
  my $ave = ($sum[0]+$sum[1]+$sum[2]+$sum[3]+$sum[4])/(@sum);
 
 # foreach my $ave(@sum){
 ...

1
2
3
4
5
6
7
8
9
 #my $dummy = <>;
 while(my $line=<>){
  
  @sum = split /,/,$line ;
  my $sum = shift @sum;
 
  my $ave = ($sum[0]+$sum[1]+$sum[2]+$sum[3]+$sum[4])/@sum;
 
 # foreach my $ave(@sum){
 ...

1
2
3
4
5
6
7
8
9
 my $dummy = <>;
 while(my $line=<>){
  
  @sum = split /,/,$line ;
  my $sum = shift @sum;
 
  my $ave = ($sum[0]+$sum[1]+$sum[2]+$sum[3]+$sum[4])/@sum;
 
 # foreach my $ave(@sum){
 ...

1
cat("\n Hello World  \n")

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
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
def string_message(string)
   if string.empty?
     "It's an empty string!"
   else
     "The string is nonempty."
   end
end

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
1+1

1
library()

1
a<-3

1
2
3
a <- rnorm(100)
a
dir('/etc')

1
2
3
a <- rnorm(100)
a
plot(a)

1
2
a <- rnorm(100)
a

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
PlusRandom <- function(initial, steps) {
  if (initial > 1) steps
  else PlusRandom(initial + urand(1), steps + 1)
}
 
mean(replicate(100000, PlusRandom(0,0))
 

1
read.table

1
read.csv