Near-infrared (NIR) spectroscopy of a sample of 310 tablets.

Description

The original data set contains near-infrared (NIR) spectroscopy data for 310 tablets of four different dosages from pilot, laboratory and full scale production settings are included in the study. In this subset, we combine all 80 samples of 80mg tablets with the first 50 samples of 250mg tablets.

Usage

Tablets

Format

Labels

The observations with label '1' correspond to the 80mg Tablets samples and the '0' to the 250mg ones.

Column 2–405

Near Infrared Transmittance; 404 variables; 7400 to 10507 cm-1.

Source

M. Dyrby, S.B. Engelsen, L. Norgaard, M. Bruhn and L. Lundsberg Nielsen (2002). Chemometric Quantitation of the Active Substance in a Pharmaceutical Tablet Using Near Infrared (NIR) Transmittance and NIR FT Raman Spectra Applied Spectroscopy 56(5): 579–585.

Examples

data(Tablets)
alpha<-0.5
Q<-15
p<-ncol(Tablets[,-1])
ns<-FHCSnumStarts(q=Q,eps=(1-alpha)*4/5)
RunExample<-FALSE
if(RunExample){
	Fit<-FastHCS(x=Tablets[,-1],q=Q,nSamp=ns,seed=1,alpha=0.5)
	colvec<-rep("orange",nrow(Tablets))
	colvec[Tablets[,1]==1]<-"blue"
	plot(Fit,col=colvec,pch=16)
}

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(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/Tablets.Rd_%03d_medium.png", width=480, height=480)
> ### Name: Tablets
> ### Title: Near-infrared (NIR) spectroscopy of a sample of 310 tablets.
> ### Aliases: Tablets
> ### Keywords: datasets
> 
> ### ** Examples
> 
> data(Tablets)
> alpha<-0.5
> Q<-15
> p<-ncol(Tablets[,-1])
> ns<-FHCSnumStarts(q=Q,eps=(1-alpha)*4/5)
> RunExample<-FALSE
> if(RunExample){
+ 	Fit<-FastHCS(x=Tablets[,-1],q=Q,nSamp=ns,seed=1,alpha=0.5)
+ 	colvec<-rep("orange",nrow(Tablets))
+ 	colvec[Tablets[,1]==1]<-"blue"
+ 	plot(Fit,col=colvec,pch=16)
+ }
> 
> 
> 
> 
> 
> 
> dev.off()
null device 
          1 
>