[Photonics-commits] r339 - pkg/SPPr/man

[noreply at r-forge.r-project.org]

Author: baptiste
Date: 2008-11-25 20:40:49 +0100 (Tue, 25 Nov 2008)
New Revision: 339

Modified:
   pkg/SPPr/man/SPPr-package.Rd
Log:
test

Modified: pkg/SPPr/man/SPPr-package.Rd
===================================================================
--- pkg/SPPr/man/SPPr-package.Rd	2008-11-25 19:37:25 UTC (rev 338)
+++ pkg/SPPr/man/SPPr-package.Rd	2008-11-25 19:40:49 UTC (rev 339)
@@ -32,31 +32,31 @@
 }
 \examples{
 
-library(SPPr)
+# library(SPPr)
+# 
+# data(scanSPP)
+# data(parameters)
+# head(scanSPP)
+# 
+# parameters$zeroShift <- -0.4
+# parameters$thickness[3] <- 0
+# 
+# dataNorm <- data2norm(scanSPP,parameters)
+# head(dataNorm)
+# 
+# plotData(dataNorm, int=TRUE, col=1, ylim=c(0, 1))
+# criticalEdge(parameters)
+# 
+# layer2fit <- 1
+# pIni <- c(-18,0.7, 45e-9, 1.05)
+# 
+# plotModel(pIni, int=TRUE,  col=2)
 
-data(scanSPP)
-data(parameters)
-head(scanSPP)
+# result <- optim(pIni, objF)
+# 
+# yFin <- fitModel(result$par)
+# yErr<-abs(yFin-dataNorm$N)
+# 
+# plotModel(result$par,col=3)
 
-parameters$zeroShift <- -0.4
-parameters$thickness[3] <- 0
-
-dataNorm <- data2norm(scanSPP,parameters)
-head(dataNorm)
-
-plotData(dataNorm, int=TRUE, col=1, ylim=c(0, 1))
-criticalEdge(parameters)
-
-layer2fit <- 1
-pIni <- c(-18,0.7, 45e-9, 1.05)
-
-plotModel(pIni, int=TRUE,  col=2)
-
-result <- optim(pIni, objF)
-
-yFin <- fitModel(result$par)
-yErr<-abs(yFin-dataNorm$N)
-
-plotModel(result$par,col=3)
-
 }