Displaying 2 results from an estimated 2 matches for "resultslist_1600".
2011 Jun 14
1
problems with plots in loop (corrected Email)
...enerating the first derivative and multiply it by 100 to adjust for the
scale.
Here is the code.
pdf('F:/diffnormal_16001a.pdf')
par(mfcol = c(4,2))
for(i in 1: 92){
fit <- NULL
der <- NULL
Zeit <- NULL
Zeit <- seq(0,300)
try(guess <- predict(resultslist_1600[[i]]) )
if(class(guess) == "try-error") {next}
fit <- smooth.spline(Zeit, guess)
der <- 100*(predict(fit, Zeit, deriv = 1))$y
if((i/4)%%1 ==0){par(mar =c(4,4,0, 0) + 0.1)}
else{par(mar =c(0,4,0, 0) + 0.1)}
leg = paste("Data_", i,sep = "")
plot...
2011 Jun 14
0
problems with plots in loop
...enerating the first derivative and multiply it by 100 to adjust for the
scale.
Here is the code.
pdf('F:/diffnormal_16001a.pdf')
par(mfcol = c(4,2))
for(i in 1: 92){
fit <- NULL
der <- NULL
Zeit <- NULL
Zeit <- seq(0,300)
try(guess <- predict(resultslist_1600[[i]]) )
if(class(guess) == "try-error") {next}
fit <- smooth.spline(Zeit, guess)
der <- 100*(predict(fit, Zeit, deriv = 1))$y
if((i/4)%%1 ==0){par(mar =c(4,4,0, 0) + 0.1)}
else{par(mar =c(0,4,0, 0) + 0.1)}
leg = paste("Data_", i,sep = "")
plot...