Tune data for experimental purpose

Description

The error can be reduced and sample size increased for specific purpose.

Usage

tune_Data(data, decrease.error = 0, increase.data = 0)

Arguments

Value

Returns a data.frame with tuned values.

Function version

0.5.0 (2015-11-29 17:27:48)

Note

You should not use this function to improve your poor data set!

Author(s)

Michael Dietze, GFZ Potsdam (Germany)
R Luminescence Package Team

References

#

See Also

#

Examples

## load example data set
data(ExampleData.DeValues, envir = environment())
x <- ExampleData.DeValues$CA1

## plot original data
plot_AbanicoPlot(data = x,
                 summary = c("n", "mean"))

## decrease error by 10 %
plot_AbanicoPlot(data = tune_Data(x, decrease.error = 0.1),
                 summary = c("n", "mean"))

## increase sample size by 200 %
#plot_AbanicoPlot(data = tune_Data(x, increase.data = 2) ,
#                summary = c("n", "mean"))

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(Luminescence)
Welcome to the R package Luminescence version 0.6.0 [Built: 2016-05-30 16:47:30 UTC]
Goldfinger: 'You cannot get this machine better and cheaper than from us.'
> png(filename="/home/ddbj/snapshot/RGM3/R_CC/result/Luminescence/tune_Data.Rd_%03d_medium.png", width=480, height=480)
> ### Name: tune_Data
> ### Title: Tune data for experimental purpose
> ### Aliases: tune_Data
> ### Keywords: manip
> 
> ### ** Examples
> 
> ## load example data set
> data(ExampleData.DeValues, envir = environment())
> x <- ExampleData.DeValues$CA1
> 
> ## plot original data
> plot_AbanicoPlot(data = x,
+                  summary = c("n", "mean"))
> 
> ## decrease error by 10 %
> plot_AbanicoPlot(data = tune_Data(x, decrease.error = 0.1),
+                  summary = c("n", "mean"))
Warning message:
In tune_Data(x, decrease.error = 0.1) :
  Dear ddbj, these activities on your Linux machine have been tracked and will be submitted to the R.Lum data base. Cheating does not pay off! [2016-07-04 19:31:57]
> 
> ## increase sample size by 200 %
> #plot_AbanicoPlot(data = tune_Data(x, increase.data = 2) ,
> #                summary = c("n", "mean"))
> 
> 
> 
> 
> 
> 
> 
> dev.off()
null device 
          1 
>