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
>