Nothing
### R code from vignette source 'testTimeAndSimpleUse.Rnw'
###################################################
### code chunk number 1: foo
###################################################
options(keep.source = TRUE, width = 60)
fftwtools1 <- packageDescription("fftwtools")
###################################################
### code chunk number 2: timing1
###################################################
library("fftwtools")
## We increment by powers of 2, but one can use other incrementes
## We choose fftlength = 2^20, but
## **this was reduced to 2^8 for the vignette distribution.**
fftLength <- 2^8
set.seed(10)
g <- rnorm(fftLength)
##Start the clock
ptm <- proc.time()
## Loop through
for (i in 1:100){
fft(g)
}
## Stop the clock
proc.time() - ptm
###################################################
### code chunk number 3: <timing2
###################################################
##timing # Start the clock!
ptm <- proc.time()
# Loop through
for (i in 1:100){
fftw(g)
}
# Stop the clock
proc.time() - ptm
###################################################
### code chunk number 4: <timing3
###################################################
## Start the clock!
ptm <- proc.time()
## Loop through
for (i in 1:100){
fftw(g, HermConj=FALSE)
}
## Stop the clock
proc.time() - ptm
###################################################
### code chunk number 5: replace function
###################################################
## basic option ot overwrite calls
fft <- function(z, inverse = FALSE) {
fftwtools::fftw(z, inverse=inverse)
}
mvfft <- function(z, inverse=FALSE) {
fftwtools::mvfftw(z, invese=inverse)
}
###################################################
### code chunk number 6: <replace without conjugate
###################################################
fft <- function(z, inverse = FALSE) {
fftwtools::fftw(z, inverse=inverse, HermConj=FALSE)
}
###################################################
### code chunk number 7: cleanup1
###################################################
rm(fft, mvfft)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.