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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.