CRAN v 0.2.2

nano-optics · May 19, 2013 · c704ed6 · c704ed6
1 parent ab00cbf
commit c704ed6
Show file tree

Hide file tree

Showing 8 changed files with 27 additions and 5 deletions.
diff --git a/NEWS b/NEWS
@@ -1,5 +1,11 @@
+dielectric 0.2.2 (2013-05-18)
+
+* cleaning examples for CRAN
+
+* amorphous Si
+
 dielectric 0.2.1 (2013-01-06)
 
-* NEW added
+* NEWS added
 
 * units are in nm
diff --git a/data/AgPalik.rda b/data/AgPalik.rda
diff --git a/data/AuJC.rda b/data/AuJC.rda
diff --git a/data/aSi.rda b/data/aSi.rda
diff --git a/demo/00Index b/demo/00Index
@@ -1,3 +1,3 @@
 AuJC         gold dielectric function from Johnson and Christy
 AgPalik      silver dielectric function from Johnson and Christy
-Si           silicon dielectric function from http://refractiveindex.info
+Si           silicon dielectric function from http://refractiveindex.info
diff --git a/demo/AgPalik.r b/demo/AgPalik.r
@@ -3,9 +3,9 @@ library(ggplot2)
 
 data(AgPalik)
 
-AgPalik$set_span(300, 800)
+AgPalik$set_span(200, 800)
 raw <- dielectric2plot(AgPalik$raw())
-silver <- AgPalik$predict(n=300, all.knots=TRUE)
+silver <- AgPalik$predict(n=300, all.knots=TRUE, df=200)
 
 d <- dielectric2plot(silver)
 

diff --git a/inst/rawdata/silicon.r b/inst/rawdata/silicon.r
@@ -1,5 +1,5 @@
 require(dielectric)
-setwd("/Users/auguieba/Documents/r/github/dielectric/inst/rawdata/")
+setwd("~/Documents/github/dielectric/inst/rawdata")
 ## test <- read.table("CRYSTALS_a-Si_sopra_asi.txt", head=TRUE)
 ## test <- transform(test, epsilon = complex(real = n,  imag = k)^2,  wavelength=lambda*1e3)
 ## dput(test[, c("wavelength", "epsilon")])

diff --git a/man/aSi.Rd b/man/aSi.Rd
@@ -0,0 +1,16 @@
+\name{aSi}
+\alias{aSi}
+\docType{data}
+\title{ aSi }
+\description{
+  Amorphous Si dielectric function
+}
+\usage{data(aSi)}
+\source{
+  http://refractiveindex.info/?group=CRYSTALS&material=a-Si
+}
+\examples{
+data(aSi)
+str(aSi$raw())
+}
+\keyword{datasets}