====== R code related to Kalman filter methods ======
  * Process results

<hidden><code>
## process results
allse<-NULL
allpar<-NULL
SS<-200
for (i in 1:500){
	filename<-paste('out', SS, i, '.txt', sep='')
	if (file.exists(filename)){
		temp<-readLines(filename)
		temp<-temp[substr(temp, 1, 4)==' nr ']
		temp<-substr(temp, 15, 71)
		if (length(temp)>0){
			temp<-read.table(textConnection(temp))
			allse<-rbind(allse, temp$V5)
			allpar<-rbind(allpar, temp$V1)
		}
	}
}

index<-(apply(allse, 1, min) > 0) & (apply(allse, 1, max) < 1)
allpar<-allpar[index, ]
allse<-allse[index, ]


cbind(apply(allpar, 2, mean), apply(allpar, 2, sd), apply(allse, 2, mean))

nrow(allpar)

</code></hidden>