test/test.oper.r

In aphalo/photobiology: Photobiological Calculations

library(ggplot2)
library(photobiologyAll)
library(profr)

test <- sun.spct

Rprof(interval = 0.0001)
z <- test * 2
Rprof(NULL)
summaryRprof()

Rprof(interval = 0.0001)
z <- test * test
Rprof(NULL)
summaryRprof()

Rprof(interval = 0.0001)
z <- (test * test)^2
Rprof(NULL)
summaryRprof()

Rprof(interval = 0.0001)
z <- trim_spct(test, c(400:500))
Rprof(NULL)
summaryRprof()

Rprof(interval = 0.0001)
z <- rbindspct(list(test, test))
Rprof(NULL)
summaryRprof()

Rprof(interval = 0.0001)
z <- e2q(test, by.ref=F)
Rprof(NULL)
summaryRprof()

Rprof(interval = 0.0001)
z <- e2q(test, by.ref=T)
Rprof(NULL)
summaryRprof()

prof <- profr({z <- test * 2}, interval = 0.001)
ggplot(prof)

prof <- profr({z <- test + test}, interval = 0.001)
ggplot(prof)

test1 <- interpolate_spct(test, length.out=1000)

prof <- profr({z <- test1 + test}, interval = 0.001)
ggplot(prof)