Last data update: 2014.03.03

R: example data
XR Documentation

example data

Description

Synthetic data set created by randomly mixed natural end-members

Format

num [1:100, 1:116] 0.000899 0.000516 0.00136 0.000989 0.00102 ...

Details

The dataset is the result of four mixed natural end-members.

Examples

## load example data set
data(X)

## extract grain-size classes
s <- as.numeric(colnames(X))

## plot first 10 samples stacked in one line plot
plot(NA,
     xlim = c(1, ncol(X)),
     ylim = c(1, 20))

for(i in 1:10) {
  lines(x = s,
        y = X[i,] + i)
}

## plot grain-size map
image(x = s,
      z = t(X),
      log = "x",
      col = rainbow(n = 250))

Results


R version 3.3.1 (2016-06-21) -- "Bug in Your Hair"
Copyright (C) 2016 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(EMMAgeo)
Loading required package: GPArotation
Loading required package: limSolve
Loading required package: shape
Loading required package: shiny
> png(filename="/home/ddbj/snapshot/RGM3/R_CC/result/EMMAgeo/X.Rd_%03d_medium.png", width=480, height=480)
> ### Name: X
> ### Title: example data
> ### Aliases: X
> ### Keywords: datasets
> 
> ### ** Examples
> 
> ## load example data set
> data(X)
> 
> ## extract grain-size classes
> s <- as.numeric(colnames(X))
> 
> ## plot first 10 samples stacked in one line plot
> plot(NA,
+      xlim = c(1, ncol(X)),
+      ylim = c(1, 20))
> 
> for(i in 1:10) {
+   lines(x = s,
+         y = X[i,] + i)
+ }
> 
> ## plot grain-size map
> image(x = s,
+       z = t(X),
+       log = "x",
+       col = rainbow(n = 250))
> 
> 
> 
> 
> 
> dev.off()
null device 
          1 
>