R: Fourier coefficients describing the shape of many hand...
MultipleFeatures
R Documentation
Fourier coefficients describing the shape of many hand written replications of the numerals '0' and '1'.
Description
A data frame with the subset of the 'Multiple Features'
dataset corresponding to the sample of '0' and '1' numerals.
Usage
MultipleFeatures
Format
Labels
Numerals.
Column 2–77
Fourier coefficients describing the shape of each observation.
Source
Van Breukelen, M. Duin, R.P.W. Tax, D.M.J. and Den Hartog, J.E. (1998).
Handwritten digit recognition by combined classifiers, Kybernetika, vol. 34, 381–386.
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(FastHCS)
Loading required package: matrixStats
matrixStats v0.50.2 (2016-04-24) successfully loaded. See ?matrixStats for help.
Loading required package: robustbase
Attaching package: 'robustbase'
The following objects are masked from 'package:matrixStats':
colMedians, rowMedians
> png(filename="/home/ddbj/snapshot/RGM3/R_CC/result/FastHCS/MultipleFeatures.Rd_%03d_medium.png", width=480, height=480)
> ### Name: MultipleFeatures
> ### Title: Fourier coefficients describing the shape of many hand written
> ### replications of the numerals '0' and '1'.
> ### Aliases: MultipleFeatures
> ### Keywords: datasets
>
> ### ** Examples
>
> data(MultipleFeatures)
> alpha<-0.5
> Q<-15
> p<-ncol(MultipleFeatures[,-1])
> ns<-FHCSnumStarts(q=Q,eps=(1-alpha)*4/5)
> RunExample<-FALSE
> if(RunExample){
+ Fit<-FastHCS(x=MultipleFeatures[,-1],q=Q,nSamp=ns,seed=1)
+ colvec<-rep("orange",nrow(MultipleFeatures))
+ colvec[MultipleFeatures[,1]==1]<-"blue"
+ plot(Fit,col=colvec,pch=16)
+ }
>
>
>
>
>
>
> dev.off()
null device
1
>