https://github.com/cran/fda
Tip revision: cffaee83f2132e70d363589d8be217ce70ea1e3a authored by J. O. Ramsay on 02 March 2009, 00:00:00 UTC
version 2.1.2
version 2.1.2
Tip revision: cffaee8
pda.overlay.r
pda.overlay = function(pdaList,nfine=501,ncoarse=11,...){
fdrange = pdaList$bwtlist[[1]]$fd$basis$range
tfine = seq(fdrange[1],fdrange[2],len=nfine)
beta0vals = eval.fd(tfine,pdaList$bwtlist[[1]]$fd)
beta1vals = eval.fd(tfine,pdaList$bwtlist[[2]]$fd)
plot(beta1vals,beta0vals,type='l',col=4,xlab='beta 1',ylab='beta 0',...)
abline(h=0,col=2)
abline(v=0,col=2)
bv = seq(min(beta1vals),max(beta1vals),len=nfine)
lines(bv,(bv/2)^2,col=2,lty=2,...)
tcoarse = seq(fdrange[1],fdrange[2],len=ncoarse)
beta0valsc = eval.fd(tcoarse,pdaList$bwtlist[[1]]$fd)
beta1valsc = eval.fd(tcoarse,pdaList$bwtlist[[2]]$fd)
text(x=beta1valsc,y=beta0valsc,labels=tcoarse,col=4)
}