Rのhead()とtail()

head(,n=)
ベクトル、行列の最初からn個（n行）抜き出す

tail(,n=)
ベクトル、行列の最後からn個（n行）抜き出す

# 行列の例
> x<-matrix(1:100,nrow=10,ncol=10)
> x
      [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
 [1,]    1   11   21   31   41   51   61   71   81    91
 [2,]    2   12   22   32   42   52   62   72   82    92
 [3,]    3   13   23   33   43   53   63   73   83    93
 [4,]    4   14   24   34   44   54   64   74   84    94
 [5,]    5   15   25   35   45   55   65   75   85    95
 [6,]    6   16   26   36   46   56   66   76   86    96
 [7,]    7   17   27   37   47   57   67   77   87    97
 [8,]    8   18   28   38   48   58   68   78   88    98
 [9,]    9   19   29   39   49   59   69   79   89    99
[10,]   10   20   30   40   50   60   70   80   90   100
> head(x)
     [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
[1,]    1   11   21   31   41   51   61   71   81    91
[2,]    2   12   22   32   42   52   62   72   82    92
[3,]    3   13   23   33   43   53   63   73   83    93
[4,]    4   14   24   34   44   54   64   74   84    94
[5,]    5   15   25   35   45   55   65   75   85    95
[6,]    6   16   26   36   46   56   66   76   86    96
> head(x,n=1)
     [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
[1,]    1   11   21   31   41   51   61   71   81    91
> head(x,n=2)
     [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
[1,]    1   11   21   31   41   51   61   71   81    91
[2,]    2   12   22   32   42   52   62   72   82    92
> tail(x)
      [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
[5,]     5   15   25   35   45   55   65   75   85    95
[6,]     6   16   26   36   46   56   66   76   86    96
[7,]     7   17   27   37   47   57   67   77   87    97
[8,]     8   18   28   38   48   58   68   78   88    98
[9,]     9   19   29   39   49   59   69   79   89    99
[10,]   10   20   30   40   50   60   70   80   90   100
> tail(x,n=1)
      [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
[10,]   10   20   30   40   50   60   70   80   90   100
> tail(x,n=2)
      [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
[9,]     9   19   29   39   49   59   69   79   89    99
[10,]   10   20   30   40   50   60   70   80   90   100




 # ベクトルの例
 > y<-c(1:10)
> y
 [1]  1  2  3  4  5  6  7  8  9 10
> head(y)
[1] 1 2 3 4 5 6
> head(y,n=1)
[1] 1
> head(y,n=2)
[1] 1 2
> tail(y,n=1)
[1] 10
> tail(y,n=2)
[1]  9 10