1
dgeom(4,prob=0.3)

1
2
3
4
5
6
7
8
9
f = function()
{
        x = sample(1:2,1);
        if(x == 1)
        {
                rnorm(1);
        }
        else
        {
 ...

1
2
3
4
5
6
7
8
9
f = function()
{
        x = sample(1:2,1);
        if(x == 1)
        {
                rnorm(100);
        }
        else
        {
 ...

1
2
x=runif(100)
x

1
2
3
4
5
6
7
8
f = function()
{
        sample(1:40,1);
}
for(i in 1:100)
{
        print(f());
}

1
2
3
4
5
6
7
8
f = function()
{
        sample(1:40,1);
}
for(i in 1:100)
{
        f();
}

1
2
3
4
5
6
library(UsingR)
f = function()
{
        sample(1:40,1);
}
simple.sim(100,f,1,10)

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

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

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

1
2
3
4
5
6
7
8
9
f = function(n,m)
{
        res = 0;
        x = 1:n;
        for(i in 1:m)
        {
                perm = sample(x);
                res = res + 1;
        }
 ...

1
2
3
4
5
6
x = 1:12
sample(x)
sample(x)
sample(x)
sample(x)
sample(x)

1
2
3
4
5
6
7
8
9
1
f8
b08
08e7
9a4f4
e02032
30073f3
f473f4b1
52f05330b
 ...

1
2
3
4
5
6
7
8
a=input("immetti a")
print 1, a
n=2
while (n<=a/2) :
   r=a%n
   if (r==0) :
    print n
   n=n+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
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
8
9
class Password
{
      static void Main(string[] args)
      {
             console.Write("The password is: ")
             
             for (int i = 0; i < 6; i++)
                 Console.Write(GetChar(i,i*i));
             Console.readKay();
 ...

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
 
data=as.matrix(
1 1.51 -0.56 0.23 -1.17 1.91 0.81 1.03 -0.66 1.22 0.25 0.36 1.84 1.01
1 0.25 -0.5 -0.83 -2.48 0.02 0.57 0.73 -0.82 -0.54 -0.29 0.4 1.11 0.96
1 0.2 0.02 1.11 -0.27 0.09 0.81 1.21 -0.5 2.13 0.27 0.32 0.79 1.39
1 1.69 -0.35 0.49 -0.81 0.93 2.48 1.46 -0.98 1.03 1.18 -0.43 1.18 2.33
1 0.29 0.23 1.84 0.45 1.28 0.81 0.66 0.23 0.4 -0.32 0.36 0.45 -0.04
1 1.48 -0.52 0.3 -1.29 0.86 1.56 1.36 -0.18 0.66 0.73 0.4 0.34 2.23
1 1.71 -0.42 0.3 -1.47 -0.26 0.33 0.49 -0.5 0.68 0.08 0.27 1.36 1.72
 ...

1
wine<-read.table(file.choose(),header=T,sep=" ")

1
install.packages("base")

1
install.packages("base")

1
install.packages("base")

1
install.packages("base")

1
install.packages("base")

1
install.packages("base")

1
2
3
4
5
6
7
8
9
 
 
 stat.bwss<-function(x, cl)
 {
 # Compute BSS/WSS for each row of a matrix which may have NA
 # Columns have labels cl=consecutive integers
 
   K <- max(cl) - min(cl) + 1
   tvar <- apply(x, 1, var)
 ...

1
2
3
4
5
6
7
8
dataURL<-"/var/mobile/wine.dat"
dataURL
data＜-read（dataURL）
data
data<-read.delim(file=dataURL）
data
data<-read.delim(file=dataURL,header=T,sep=" ")
data