Title: | A Shiny GUI for some Parameter Estimation Examples |
---|---|
Description: | Allows specification and fitting of some parameter estimation examples inspired by time-resolved spectroscopy via a Shiny GUI. |
Authors: | Joris Snellenburg [cre, aut], Katharine Mullen [aut], Ivo van Stokkum [aut] |
Maintainer: | Joris Snellenburg <[email protected]> |
License: | GPL (>= 2) |
Version: | 2.2.0 |
Built: | 2025-02-10 03:58:44 UTC |
Source: | https://github.com/glotaran/paramgui |
Calculates a matrix in which each column is a skewed Gaussian.
Like calcEhiergaus
from TIMP package but uses a vector not a list of
parameter estimates.
calcE(theta, lambda)
calcE(theta, lambda)
theta |
vector of parameter estimates |
lambda |
wavelengths at which to calculate model |
matrix
Dispersion corrected time-resolved transient-absorption data of the peridinin chlorophyll protein (PCP) excited with 490 nm laser light from the publication of Stokkum et.al. (2009)
Ivo van Stokkum [email protected]
doi:10.1016/j.chemphys.2008.10.005
Helper function for is_rdata, checks if the file is a compressed (gzip) file. Does not (yet) check for bzip2 or xz compression.
is_compressed(filename, magic.number = as.raw(c("0x1f", "0x8b")))
is_compressed(filename, magic.number = as.raw(c("0x1f", "0x8b")))
filename |
The filename of the file to test for magic compression codes |
magic.number |
The magic numbers in as a vector of strings with the hexadecimal numbers (e.g. "0x1f") |
boolean, TRUE if the file is compressed
Checks a file is a rdata file by inspecting the file for so called magic bytes
is_rdata(filename)
is_rdata(filename)
filename |
The filename of the file to test if it is an rdata file |
boolean, TRUE if the file is an rdata file
The column-wise kronecker product is also called the Khatri–Rao product
kroneckercol(A, B)
kroneckercol(A, B)
A |
numerical matrix |
B |
numerical matrix |
column-wise kronecker product of A and B
Generate linlog tics for a linear-logarithmic axis
linlogtics(x, mu, alpha)
linlogtics(x, mu, alpha)
x |
values for which to calculate a linlog axis |
mu |
center of axis in the original |
alpha |
linear part |
Returns matrix with new x
values in first column and the
corresponding labels in the second column.
Allows specification and fitting of some parameter estimation examples inspired by time-resolved spectroscopy via a Shiny GUI.
Master plot function for paramGUI
plotterforGUI( modtype = "kin", X = matrix(), data, model, theta = vector(), result, lin = NA, mu = 0, guessIRF = FALSE )
plotterforGUI( modtype = "kin", X = matrix(), data, model, theta = vector(), result, lin = NA, mu = 0, guessIRF = FALSE )
modtype |
either 'kin', 'spec' or 'spectemp' |
X |
matrix of conditionally linear parameters, if any |
data |
object of class |
model |
object of class |
theta |
object of class |
result |
object returned by |
lin |
The linear range for the concentration plot |
mu |
The center of the lin-log axis is |
guessIRF |
Boolean to indicate whether to try and guess the location of the IRF |
graphics
Runs the shiny paramGUI app.
runGUI()
runGUI()
## Not run: runGUI() ## End(Not run)
## Not run: runGUI() ## End(Not run)
Calculates an object of class 'kin'. <TODO>
simndecay_gen_paramGUI( kinpar, tmax, deltat, specpar = vector(), lmin, lmax, deltal, sigma, irf = FALSE, irfpar = vector(), seqmod = FALSE, dispmu = FALSE, nocolsums = FALSE, disptau = FALSE, parmu = list(), partau = vector(), lambdac = 0, fullk = FALSE, kmat = matrix(), jvec = vector(), specfun = "gaus", nupow = 1, irffun = "gaus", kinscal = vector(), lightregimespec = list(), specdisp = FALSE, specdisppar = list(), parmufunc = "exp", specdispindex = list(), amplitudes = vector(), specref = 0, nosiminfo = TRUE )
simndecay_gen_paramGUI( kinpar, tmax, deltat, specpar = vector(), lmin, lmax, deltal, sigma, irf = FALSE, irfpar = vector(), seqmod = FALSE, dispmu = FALSE, nocolsums = FALSE, disptau = FALSE, parmu = list(), partau = vector(), lambdac = 0, fullk = FALSE, kmat = matrix(), jvec = vector(), specfun = "gaus", nupow = 1, irffun = "gaus", kinscal = vector(), lightregimespec = list(), specdisp = FALSE, specdisppar = list(), parmufunc = "exp", specdispindex = list(), amplitudes = vector(), specref = 0, nosiminfo = TRUE )
kinpar |
vector of rate constants |
tmax |
last time point |
deltat |
time step |
specpar |
vector of spectral parameters for location, width, skewness |
lmin |
minimum wavelength (nm) |
lmax |
maximum wavelength (nm) |
deltal |
wavelength step |
sigma |
noise level |
irf |
logical for IRF usage |
irfpar |
vector of IRF parameters for location, width |
seqmod |
logical for sequential model |
dispmu |
logical for dispersion of IRF location mu |
nocolsums |
logical for <TODO> |
disptau |
logical for dispersion of IRF width tau |
parmu |
vector of dispersion parameters for IRF location mu |
partau |
vector of dispersion parameters for IRF width tau |
lambdac |
center wavelength for dispersion |
fullk |
logical for full K matrix |
kmat |
K matrix |
jvec |
input vector |
specfun |
function for spectral shape |
nupow |
power of nu in spectral model |
irffun |
function for IRF |
kinscal |
vector of kinetic scaling parameters |
lightregimespec |
<TODO> |
specdisp |
logical for dispersion parameters of spectral parameters |
specdisppar |
vector of dispersion parameters of spectral parameters |
parmufunc |
<TODO> |
specdispindex |
<TODO> |
amplitudes |
amplitudes of components |
specref |
<TODO> |
nosiminfo |
logical for hiding simulation information |
an object of class 'kin'
Katharine M. Mullen
Ivo H. M. van Stokkum
Spectrotemporal model
spectemp(sim, model, iter, kroncol = FALSE, lin = NA, l_posk = FALSE)
spectemp(sim, model, iter, kroncol = FALSE, lin = NA, l_posk = FALSE)
sim |
object of class |
model |
object of class |
iter |
integer number of iterations |
kroncol |
object of class |
lin |
defines the range to plot linearly
(from - |
l_posk |
object of class |
The same as runGUI(), starts the shiny paramGUI app.
startGUI()
startGUI()