# NOT RUN {
cfnew <- extractSingleCor.cf(correlatormatrix, id=1)
cfnew <- bootstrap.cf(cfnew, boot.R=99, boot.l=1)
cfnew.fit <- matrixfit(cf=cfnew, t1=12, t2=20, parlist=array(c(1,1),
dim=c(2,1)), sym.vec=c("cosh"), neg.vec=c(1))
cfnew.fps <- computefps(mfit=cfnew.fit, mu1=0.004, normalisation="new")
summary(cfnew.fps)
# }
Run the code above in your browser using DataLab