Forged Swiss Bank Notes

Description

The swiss data set consists of measurements on the width of bottom margin and image diagonal length for forged and real notes. Histogram smoothing method is applied to understand the width of bottom margins for the forged notes.

Usage

data(swiss)

Format

A data frame with 100 observations on the following 4 variables.

Bottforg

bottom margin of forged notes

Diagforg

diagonal margin of forged notes

Bottreal

bottom margin of real notes

Diagreal

diagonal margin of real notes

References

Simonoff, J.S. (1996). Smoothing Methods in Statistics. Springer.

Examples

data(swiss)
par(mfrow=c(1,3))
hist(swiss$Bottforg,breaks=28,probability=TRUE,col=0,ylim=c(0,.5),
  xlab="Margin width (mm)",ylab="Density")
hist(swiss$Bottforg,breaks=12,probability=TRUE,col=0,ylim=c(0,.5),
  xlab="Margin width (mm)",ylab="Density")
hist(swiss$Bottforg,breaks=6,probability=TRUE,col=0,ylim=c(0,.5),
  xlab="Margin width (mm)",ylab="Density")

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(ACSWR)
> png(filename="/home/ddbj/snapshot/RGM3/R_CC/result/ACSWR/swiss.Rd_%03d_medium.png", width=480, height=480)
> ### Name: swiss
> ### Title: Forged Swiss Bank Notes
> ### Aliases: swiss
> ### Keywords: histogram smoothing
> 
> ### ** Examples
> 
> data(swiss)
> par(mfrow=c(1,3))
> hist(swiss$Bottforg,breaks=28,probability=TRUE,col=0,ylim=c(0,.5),
+   xlab="Margin width (mm)",ylab="Density")
> hist(swiss$Bottforg,breaks=12,probability=TRUE,col=0,ylim=c(0,.5),
+   xlab="Margin width (mm)",ylab="Density")
> hist(swiss$Bottforg,breaks=6,probability=TRUE,col=0,ylim=c(0,.5),
+   xlab="Margin width (mm)",ylab="Density")
> 
> 
> 
> 
> 
> dev.off()
null device 
          1 
>