powered by
tpwd
tpwr(tpwdobj, verbose = FALSE)
tpwdobj
imwr
data(lennon) ltpwd <- tpwd(lennon) # # now perform the inverse and compare to the original # ltpwr <- tpwr(ltpwd) sum((ltpwr - lennon)^2) # [1] 9.22802e-10
Run the code above in your browser using DataLab