R でのラドン変換の実装を探しています。私が知っているのは、パッケージ内だけPETです。しかし、それは私が期待する結果を私に与えていません。ウィキペディアのページの例を使用しています
require(png)
require(EBImage)
require(RCurl)
require(PET)
im <- readPNG( getBinaryURL( "http://upload.wikimedia.org/wikipedia/en/thumb/e/e5/Shepp_logan.png/170px-Shepp_logan.png" ) )[,,1]
rad = radon(im)$rData
# Normalize intensity values from 0-1
rad = normalize(rad)
display(t(im))
display(t(rad))
私はこの画像を取得します：
私が期待するとき：
関数のパラメーターを間違って使用していませんか? 私はラドン変換の詳細にあまり精通していません