From 2a65e98eefe1d38952b1a26e0d10401661a29e19 Mon Sep 17 00:00:00 2001
From: hgb <hjorleifur.bergsteinsson@danfoss.com>
Date: Mon, 17 Mar 2025 13:54:04 +0100
Subject: [PATCH] update small fixes all over
---
.gitignore | 4 +-
R/qmodel.R | 102 +++++-----
R/quantile_fit.R | 26 +--
R/quantile_optim.R | 2 +-
R/quantile_predict.R | 14 +-
R/update_rq.R | 15 +-
misc-R/quantile/adaptive_quantile.R | 185 +++++++++++++++++++
misc-R/quantile/css/reset.css | 53 ++++++
misc-R/quantile/css/scianimator.blue.css | 44 +++++
misc-R/quantile/css/scianimator.css | 108 +++++++++++
misc-R/quantile/css/scianimator.dark.css | 44 +++++
misc-R/quantile/css/scianimator.light.css | 44 +++++
misc-R/quantile/css/styles.css | 3 +
misc-R/quantile/js/Rplot.js | 13 ++
misc-R/quantile/js/jquery-1.4.4.min.js | 167 +++++++++++++++++
misc-R/quantile/js/jquery.scianimator.min.js | 8 +
misc-R/quantile/model.html | 91 +++++++++
misc-R/quantile/quantile_Solar.R | 117 ++++++++++--
misc-R/quantile/rls.R | 50 +++++
src/rq_init_cpp.cpp | 2 +-
src/rq_simplex_cpp.cpp | 17 +-
src/rq_update_cpp.cpp | 5 +-
22 files changed, 1025 insertions(+), 89 deletions(-)
create mode 100644 misc-R/quantile/adaptive_quantile.R
create mode 100755 misc-R/quantile/css/reset.css
create mode 100755 misc-R/quantile/css/scianimator.blue.css
create mode 100755 misc-R/quantile/css/scianimator.css
create mode 100755 misc-R/quantile/css/scianimator.dark.css
create mode 100755 misc-R/quantile/css/scianimator.light.css
create mode 100755 misc-R/quantile/css/styles.css
create mode 100644 misc-R/quantile/js/Rplot.js
create mode 100755 misc-R/quantile/js/jquery-1.4.4.min.js
create mode 100755 misc-R/quantile/js/jquery.scianimator.min.js
create mode 100644 misc-R/quantile/model.html
create mode 100644 misc-R/quantile/rls.R
diff --git a/.gitignore b/.gitignore
index 27fe0b9..6f5aa56 100644
--- a/.gitignore
+++ b/.gitignore
@@ -19,4 +19,6 @@ vignettes/*_files*
tmp/
-onlineforecast.Rcheck
\ No newline at end of file
+onlineforecast.Rcheck
+
+images/
\ No newline at end of file
diff --git a/R/qmodel.R b/R/qmodel.R
index 818ab9b..9eb8de6 100644
--- a/R/qmodel.R
+++ b/R/qmodel.R
@@ -1,51 +1,57 @@
qmodel <- R6::R6Class("qmodel", public = list(
- ####### Store Data and information for algorithm #####
- info = list(),
- ####### Store Coefficients Data #######
- beta = list(),
- ####### Fixed Parameters ######
- ## Weighted
- W = NA,
- n_in_bin = NA,
- ## Number of predictiors
- K = NA,
- ## Quantiles
- tau = NA,
- ## Cold start size
- N1 = NA,
- debug = NA,
-
- ####### Quantile Information ########
- ## Index of the columns of the X matrix of Xny
- IX = NA,
- ## Index of the column of y
- Iy = NA,
- ## The design matrix
- X = list(),
-
- ####### debug Information ########
- listIH = list(),
-
- ####### Forecast Information ########
- inputs = list(),
- kseq = NA,
- output = NA,
- prm = NA,
- regprmexpr = NA,
- regprm = NA,
- ## Offline parameters
- prmbounds = as.matrix(data.frame(lower=NA, init =NA, upper=NA)),
- datatr = NA,
- qrFIT = NA,
- maxlagAR = NA,
- yAR = NA,
- Ypred = NA,
-
- initialize = function(N1 = NULL, debug = FALSE){
- if(is.null(N1)) stop("The number of data points for the cold start needs to be defined")
- self$N1 <- N1
- self$debug <- debug
- },
+ ####### Store Data and information for algorithm #####
+ info = list(),
+ ####### Store Coefficients Data #######
+ beta = list(),
+ ####### Fixed Parameters ######
+ ## Weighted
+ W = NA,
+ n_in_bin = NA,
+ ## Number of predictiors
+ K = NA,
+ ## Quantiles
+ tau = NA,
+ ## Cold start size
+ N1 = NA,
+ debug = NA,
+
+ ####### Quantile Information ########
+ ## Index of the columns of the X matrix of Xny
+ IX = NA,
+ ## Index of the column of y
+ Iy = NA,
+ ## The design matrix
+ X = list(),
+
+ ####### debug Information ########
+ listIH = list(),
+
+ ####### Forecast Information ########
+ inputs = list(),
+ kseq = NA,
+ output = NA,
+ prm = NA,
+ regprmexpr = NA,
+ regprm = NA,
+ ## Offline parameters
+ prmbounds = as.matrix(data.frame(lower=NA, init =NA, upper=NA)),
+ datatr = NA,
+ qrFIT = NA,
+ maxlagAR = NA,
+ yAR = NA,
+ Ypred = NA,
+
+
+ ## Initialise the model with the size of the cold start.
+ ## We need some starting point for the iteration of the quantile fit, using simplex method.
+ initialize = function(N1 = NULL, debug = FALSE){
+ if(is.null(N1)) stop("The number of data points for the cold start needs to be defined")
+ self$N1 <- N1
+ self$debug <- debug
+ },
+
+
+### Should be the same to forecastmodel.R.. maybe have an inheritance from that instead of rewrite.
#----------------------------------------------------------------
# Get the transformation parameters
@@ -241,6 +247,4 @@ qmodel <- R6::R6Class("qmodel", public = list(
return(expr)
}
#----------------------------------------------------------------
-
-
))
diff --git a/R/quantile_fit.R b/R/quantile_fit.R
index 1bb5432..50457ad 100644
--- a/R/quantile_fit.R
+++ b/R/quantile_fit.R
@@ -20,9 +20,11 @@ quantile_fit <- function(prm, model, q, data, printout = TRUE, returnanalysis =
# First insert the prm into the model input expressions
model$insert_prm(prm)
- model$n_in_bin <- round(2*(1/(1-model$regprm$lambda)))
- ## Annoying!
+ ## Compute the effective memory of lambda, the window size
+ model$n_in_bin <- round(2*(1/(1-model$regprm$lambda)))
+ ## If the effective memory is less then the cold start window, then set it to the cold start window.
+ ## HGB 11/02/2025: Unsure if this is correct
if(model$n_in_bin < model$N1){
model$n_in_bin = model$N1 + 1
}
@@ -32,6 +34,7 @@ quantile_fit <- function(prm, model, q, data, printout = TRUE, returnanalysis =
# Since rls_fit is run from scratch, the init the stored inputs data (only needed when running iteratively)
#model$datatr <- NA
#model$yAR <- NA
+
# Reset the model state (e.g. inputs state, stored iterative data, ...)
model$reset_state()
@@ -49,20 +52,21 @@ quantile_fit <- function(prm, model, q, data, printout = TRUE, returnanalysis =
Ypred <- NULL
for(k in model$kseq){
- cat("horizon :", k, "\n")
- cat("n_in_bin :", model$n_in_bin, "\n")
+ # cat("horizon :", k, "\n")
+ # cat("n_in_bin :", model$n_in_bin, "\n")
## Setup the design matrix for k step
X <- as.data.frame(subset(model$datatr, kseq=k))
- ## Lag them to match to the
+ ## Lag them to match to the output, so the input forecast matches the output.
X <- onlineforecast:::lagdf.matrix(X, k)
X$y <- data[[model$output]]
- X <- X[-1:-k,]
+ if (k > 0) {
+ X <- X[-(1:k), ]
+ }
fit <- rq(paste("y ~ -1 + ", paste(names(X[, -which(names(X) %in% c("y"))]), collapse = " + "), sep = ""), tau = q, data = X[1:(model$N1-k),])
-
-
-
- beta <- as.matrix(fit$coefficients)
+ ## Fill it from start (index 1) to the end of the cold start
+ beta <- fit$coefficients
+ model$beta[[paste0("q", q)]][[paste0("k", k)]] <- matrix(beta, nrow = model$N1, ncol = model$K, byrow = T)
r <- as.matrix(fit$residuals, ncol = length(q))
for(i in 1:dim(r)[2]){
@@ -86,7 +90,7 @@ quantile_fit <- function(prm, model, q, data, printout = TRUE, returnanalysis =
## Compute the loss function, maybe the residuals are compute in different place
loss <- sapply(model$kseq, function(i) pinball_loss(r = model$info[[paste0("q", q)]][[paste0("k", i)]]$R[data$scoreperiod[(i+1):length(data$scoreperiod)]], q))
model$Ypred <- Ypred
-
+
if(!returnanalysis){
#Yhat <- quantile_prediction(model = model, multistep = model$kseq)
cat("Quantile, tau:", q, "\n")
diff --git a/R/quantile_optim.R b/R/quantile_optim.R
index 808de19..068cdf2 100644
--- a/R/quantile_optim.R
+++ b/R/quantile_optim.R
@@ -25,7 +25,7 @@ quantile_optim <- function(model, data){
# Parameters to pass to quantile_fit
model = model,
q = model$tau[i],
- data = Dnew,
+ data = data,
returnanalysis = FALSE,
# Parameters to pass to optim
lower = lower,
diff --git a/R/quantile_predict.R b/R/quantile_predict.R
index 48c77ec..1db5eff 100644
--- a/R/quantile_predict.R
+++ b/R/quantile_predict.R
@@ -13,17 +13,11 @@ quantile_predict <- function(model, datatr){
## Setup the design matrix for k step
X <- as.data.frame(subset(datatr, kseq=k))
## Lag them to match to the
- #X <- onlineforecast:::lagdf.matrix(X, k)
+ X <- onlineforecast:::lagdf.matrix(X, k)
yhat <- as.numeric(rep(NA, nrow(X)))
-
- for(i in ((k):nrow(X))){
- if(i <= (model$N1)) {
- j <- 1
- } else{
- j <- i - model$N1
- }
- #browser()
- yhat[i] <- t(as.numeric(X[i,])) %*% model$beta[[paste0("q",q)]][[paste0("k",k)]][j,]
+
+ for(i in ((1):nrow(X))){
+ yhat[i] <- t(as.numeric(X[i,])) %*% model$beta[[paste0("q",q)]][[paste0("k",k)]][i,]
}
return(yhat)
diff --git a/R/update_rq.R b/R/update_rq.R
index d8e09de..dd6a9aa 100644
--- a/R/update_rq.R
+++ b/R/update_rq.R
@@ -25,7 +25,7 @@ update_rq <- function(Xny, tau, k, model = NULL, debug = TRUE){
Ypred <- matrix(as.numeric(NA), nrow = N, ncol = 1)
if(debug) {
- print("yeah")
+ # print("yeah")
list_idx <- matrix(as.numeric(NA), nrow = 1, ncol = length(res$Ih)+1)
list_idx[1,] <- c(0,res$Ih)
}
@@ -71,6 +71,19 @@ update_rq <- function(Xny, tau, k, model = NULL, debug = TRUE){
list_idx <- rbind(list_idx, c(counter, res$Ih))
}
+ # if(FALSE){
+ # invXh <- solve(Xold[res$Ih, 1:model$K])
+ # cB <- as.numeric(res$P < 0) + res$P * tau
+ # cC <- c(rep(tau, model$K), rep(1 - tau, model$K))
+ # #IB2 <- -(t(res$P %*% t(rep(1, model$K))) %*% Xold[res$Ihc+1, 1:model$K]) %*% invXh
+ # g <- t(IB2) %*% cB
+ # d <- cC - c(g, -g)
+ # d[abs(d) < 1e-15] <- 0
+
+ # s <- order(d)
+ # md <- sort(d)
+ # }
+
resAlg <- rq_simplex_cpp(X = Xold[,1:model$K],
Ih = res$Ih,
diff --git a/misc-R/quantile/adaptive_quantile.R b/misc-R/quantile/adaptive_quantile.R
new file mode 100644
index 0000000..c48902b
--- /dev/null
+++ b/misc-R/quantile/adaptive_quantile.R
@@ -0,0 +1,185 @@
+#----------------------------------------------------------------
+# Init by deleting all variables and functions
+rm(list=ls())
+# Set the working directory
+setwd("/home/hgb/git/onlineforecast/misc-R/quantile/")
+#----------------------------------------------------------------
+
+
+#----------------------------------------------------------------
+# Exercise on RLS
+
+# Init
+rm(list = ls())
+sapply(dir("functions",full.names=TRUE), source)
+
+
+# A function for fitting a recursive least squares estimation
+source("rls.R")
+rls
+#----------------------------------------------------------------
+
+
+#----------------------------------------------------------------
+# Generate some data from a linear model
+n <- 200
+x <- runif(n)
+beta0 <- 2
+beta1 <- -3
+y <- beta0 + beta1 * x + rnorm(n, sd=0.1)
+
+# Estimate the coefficients
+fit <- lm(y ~ x)
+plot(x, y)
+abline(fit)
+fit
+
+# Generate again with other coefficient values
+x1 <- runif(n)
+beta0 <- -2
+beta1 <- 3
+y1 <- beta0 + beta1 * x1 + rnorm(n, sd=0.1)
+
+# Estimate again
+fit1 <- lm(y1 ~ x1)
+plot(x1, y1)
+abline(fit1)
+fit
+
+# Combine them as two "periods",
+# such that at the start of the the second part, at i=201, the
+# coefficients change and have different values
+X <- data.frame(y=c(y,y1), x=c(x,x1))
+
+# See clearly there is two "regimes"
+plot(X$x, X$y)
+
+# As a time series you only see the change in mean
+plot(X$y)
+
+# Fit a linear regression on the combined data
+lm(y ~ x, X)
+#----------------------------------------------------------------
+
+
+#----------------------------------------------------------------
+# Fit a recursive least squares (linear regression) on the combined data
+val <- rls(y ~ x, lambda = 0.97, data = X, k = 1)
+
+# Plot the tracked coefficients
+colnames(val$Theta) <- c("beta0","beta1")
+plot.ts(val$Theta)
+
+
+plot.ts(val$y)
+lines(val$y - val$residuals, col ="red")
+#----------------------------------------------------------------
+
+setwd("/home/hgb/git/onlineforecast/")
+library(devtools)
+library(splines)
+library(quantreg)
+load_all(".") # need to be under the package directory
+
+## create an fcst matrix of the input data
+createFCSTmatrix <- function(vec, kHor) {
+ # Create a matrix of the temperature measurements
+ # vec: vector of temperature measurements
+ # kHor: horizon of the forecast
+ # Return: matrix of the temperature measurements
+ N <- length(vec)
+ M <- length(kHor)
+ mat <- matrix(NA, nrow = N, ncol = M)
+ for (i in 1:(N - M)) {
+ mat[i, ] <- vec[i:(i + M - 1)]
+ }
+ colnames(mat) <- paste0("k", kHor)
+ return(mat)
+}
+
+inputX <- createFCSTmatrix(X$x, kHor = 0:24)
+
+D <- list()
+D$t <- seq_along(X$x)
+D$x <- inputX
+D$y <- X$y
+
+## subset the data, as the algorithm does not handle NA! I had forgotten that.
+## it is due to the calculation for the simplex, which is not defined for NA
+#class(D) <- "data.list"
+idx <- in_range(1,D$t,350)
+Dtrain <- list()
+Dtrain$t <- D$t[idx]
+Dtrain$x <- inputX[idx,]
+Dtrain$y <- X$y[idx]
+
+## needs to have scoreperiod, for computing the loss
+Dtrain$scoreperiod <- in_range(1,D$t,300)
+
+class(Dtrain) <- "data.list"
+
+str(Dtrain)
+
+## Create the model, where N1 is the initial number of data points - for the cold start
+model <- qmodel$new(N1 = 30)
+## The output is the y
+model$output = "y"
+## The design matrix, intercept and the x
+model$add_inputs(Xinput = "x",
+ mu = "one()")
+
+## Add the regularization parameter, lambda, and the bounds
+model$add_regprm("rls_prm(lambda=0.9)")
+
+# model$add_prmbounds(lambda = c(0.99, 0.999, 0.9999))
+
+### Setup of the booking keeping matrix -
+##############################################################
+####### THIS SHOULD BE DONE IN quantile_fit.R ################
+##############################################################
+## First 2 are the intercept and the x
+model$IX <- 0:1
+## The number of predictors, we could just use the length of the input matrix or the IX
+model$K <- 2
+## The output column is the 2nd one
+model$Iy <- 2
+
+## Select which quantiles we want to optimise and fit
+model$tau <- c(0.05,0.2, 0.5, 0.8,0.95)
+## Select which prediction horizon
+model$kseq <- 0:24
+
+#opt_model <- quantile_optim(model = model, data = Dtrain)
+
+PAR <- c("lambda" = 0.999)
+quantile_fit(prm = PAR, model = model, data = Dtrain, q = model$tau[1])
+PAR <- c("lambda" = 0.999)
+quantile_fit(prm = PAR, model = model, data = Dtrain, q = model$tau[2])
+PAR <- c("lambda" = 0.97)
+quantile_fit(prm = PAR, model = model, data = Dtrain, q = model$tau[3])
+PAR <- c("lambda" = 0.999)
+quantile_fit(prm = PAR, model = model, data = Dtrain, q = model$tau[4])
+PAR <- c("lambda" = 0.999)
+quantile_fit(prm = PAR, model = model, data = Dtrain, q = model$tau[5])
+
+## compute the predictions from the input data and the estimated coefficeints.
+Pred_model <- quantile_predict(model = model, datatr = model$datatr)
+
+
+par(mfrow = c(2,1))
+
+plot(1:length(Dtrain$y), rep(NA, length(Dtrain$y)), type = "l", ylim = range(Dtrain$y))
+polygon(c(1:length(Pred_model$q0.05[,"k1"]), rev(1:length(Pred_model$q0.95[,"k1"]))), c(Pred_model$q0.05[,"k1"], rev(Pred_model$q0.95[,"k1"])), col = "grey80", border = NA)
+
+
+lines(Dtrain$y, col = "black")
+lines(Pred_model$q0.5[,"k1"], type = "l", col = "red")
+
+lines(val$y - val$residuals, col ="blue")
+legend("bottomleft", legend = c("y", "RLS pred", "Quantile Pred"), col = c("black", "blue", "red"), lty = 1, ncol = 3, bty = "n", cex = 1.4)
+
+plot(val$Theta[,"beta0"], type = "l", col = "blue", ylim = range(val$Theta, na.rm = TRUE))
+lines(model$beta$q0.5$k1[,2], lty = 1, col = "red")
+lines(val$Theta[,"beta1"], type = "l", lty = 2, col = "blue")
+lines(model$beta$q0.5$k1[,1], type = "l", lty = 2, col = "red")
+legend(x = 50, y = 0, legend = c("RLS Intercept", "RLS Slope", "Quantile Intercept", "Quantile Slope"), col = c("blue", "blue", "red", "red"), lty = c(1,2,1,2), ncol = 2, bty = "n", cex = 1.4)
diff --git a/misc-R/quantile/css/reset.css b/misc-R/quantile/css/reset.css
new file mode 100755
index 0000000..1c85489
--- /dev/null
+++ b/misc-R/quantile/css/reset.css
@@ -0,0 +1,53 @@
+/* http://meyerweb.com/eric/tools/css/reset/ */
+/* v1.0 | 20080212 */
+
+html, body, div, span, applet, object, iframe,
+h1, h2, h3, h4, h5, h6, p, blockquote, pre,
+a, abbr, acronym, address, big, cite, code,
+del, dfn, em, font, img, ins, kbd, q, s, samp,
+small, strike, strong, sub, sup, tt, var,
+b, u, i, center,
+dl, dt, dd, ol, ul, li,
+fieldset, form, label, legend,
+table, caption, tbody, tfoot, thead, tr, th, td {
+ margin: 0;
+ padding: 0;
+ border: 0;
+ outline: 0;
+ font-size: 100%;
+ vertical-align: baseline;
+ background: transparent;
+}
+body {
+ line-height: 1;
+}
+ol, ul {
+ list-style: none;
+}
+blockquote, q {
+ quotes: none;
+}
+blockquote:before, blockquote:after,
+q:before, q:after {
+ content: '';
+ content: none;
+}
+
+/* remember to define focus styles! */
+:focus {
+ outline: 0;
+}
+
+/* remember to highlight inserts somehow! */
+ins {
+ text-decoration: none;
+}
+del {
+ text-decoration: line-through;
+}
+
+/* tables still need 'cellspacing="0"' in the markup */
+table {
+ border-collapse: collapse;
+ border-spacing: 0;
+}
diff --git a/misc-R/quantile/css/scianimator.blue.css b/misc-R/quantile/css/scianimator.blue.css
new file mode 100755
index 0000000..7c5e725
--- /dev/null
+++ b/misc-R/quantile/css/scianimator.blue.css
@@ -0,0 +1,44 @@
+/**
+ * SciAnimator - Scientific Image Animator Plugin for jQuery
+ *
+ * Copyright (c) 2010 Brent Ertz
+ * Released under the MIT license.
+ * http://github.com/brentertz/scianimator
+*/
+
+/* Blue theme */
+.scianimator.blue,
+.scianimator.blue a,
+.scianimator.blue a:visited {
+ color: #3985a8;
+}
+.scianimator.blue {
+ background: #ddeef6;
+}
+.scianimator.blue .controls,
+.scianimator.blue .control {
+ background-color: #ddeef6;
+ border: 1px solid #89bad2;
+ color: #3985a8;
+ text-shadow: 0 1px #fff;
+}
+.scianimator.blue .controls {
+ box-shadow: inset 0 1px 3px #fff, inset 0 -17px #cbe6f2, 0 0 3px #89bad2;
+ -o-box-shadow: inset 0 1px 3px #fff, inset 0 -17px #cbe6f2, 0 0 3px #89bad2;
+ -webkit-box-shadow: inset 0 1px 3px #fff, inset 0 -17px #cbe6f2, 0 0 3px #89bad2;
+ -moz-box-shadow: inset 0 1px 3px #fff, inset 0 -17px #cbe6f2, 0 0 3px #89bad2;
+}
+.scianimator.blue .control {
+ box-shadow: inset 0 1px 3px #fff, inset 0 -10px #cbe6f2, 0 0 3px #89bad2;
+ -o-box-shadow: inset 0 1px 3px #fff, inset 0 -10px #cbe6f2, 0 0 3px #89bad2;
+ -webkit-box-shadow: inset 0 1px 3px #fff, inset 0 -10px #cbe6f2, 0 0 3px #89bad2;
+ -moz-box-shadow: inset 0 1px 3px #fff, inset 0 -10px #cbe6f2, 0 0 3px #89bad2;
+}
+.scianimator.blue a:hover {
+ box-shadow: inset 0 1px 3px #fff, inset 0 -10px #cbe6f2, 0 0 3px #3985a8;
+ -o-box-shadow: inset 0 1px 3px #fff, inset 0 -10px #cbe6f2, 0 0 3px #3985a8;
+ -webkit-box-shadow: inset 0 1px 3px #fff, inset 0 -10px #cbe6f2, 0 0 3px #3985a8;
+ -moz-box-shadow: inset 0 1px 3px #fff, inset 0 -10px #cbe6f2, 0 0 3px #3985a8;
+ color: #fff;
+ text-shadow: 0px 1px #3985a8;
+}
\ No newline at end of file
diff --git a/misc-R/quantile/css/scianimator.css b/misc-R/quantile/css/scianimator.css
new file mode 100755
index 0000000..3138aac
--- /dev/null
+++ b/misc-R/quantile/css/scianimator.css
@@ -0,0 +1,108 @@
+/**
+ * SciAnimator - Scientific Image Animator Plugin for jQuery
+ *
+ * Copyright (c) 2010 Brent Ertz
+ * Released under the MIT license.
+ * http://github.com/brentertz/scianimator
+*/
+
+/* Comment out @imports for themes not in use */
+@import url('scianimator.light.css');
+@import url('scianimator.dark.css');
+@import url('scianimator.blue.css');
+
+.scianimator {
+ font-family: 'Lucida Grande', sans-serif;
+ font-size: 12px;
+ text-align: center;
+ margin: auto auto 1em auto;
+ position: relative;
+}
+.scianimator .controls,
+.scianimator .control {
+ border: 1px solid;
+ border-radius: 4px;
+ -moz-border-radius: 4px;
+ font-family: 'Lucida Grande', sans-serif;
+ font-size: 10px;
+ text-shadow: 0 1px #fff;
+ margin: 2px;
+ position: relative;
+}
+.scianimator .controls {
+ margin: 0;
+ padding: 4px;
+ position: relative;
+}
+.scianimator a,
+.scianimator a:visited {
+ cursor: pointer;
+ display: inline-block;
+ padding: 5px 10px;
+ text-decoration: none;
+}
+.scianimator a.small,
+.scianimator a:visited.small {
+ padding: 1px 2px;
+}
+.scianimator a:active {
+ top: 1px;
+}
+.scianimator select.control,
+.scianimator label {
+ margin: 1px;
+ vertical-align: middle;
+}
+.scianimator .control.box {
+ padding: 1px 5px;
+ display: inline-block;
+ vertical-align: top;
+}
+.scianimator .control.box .control {
+ margin-left: 0;
+ margin-right: 0;
+}
+
+.scianimator .box.control.navigator {
+ padding: 2px;
+}
+
+.scianimator .box a.control.navigator,
+.scianimator .box a:hover.control.navigator {
+ display: inline-block;
+ height: 10px;
+ margin: 2px;
+ padding: 0;
+ width: 10px;
+
+ background: #00FF00;
+ box-shadow: 0 0 3px 1px #666666 inset, 0 0 1px #00FF00;
+ -o-box-shadow: 0 0 3px 1px #666666 inset, 0 0 1px #00FF00;
+ -webkit-box-shadow: 0 0 3px 1px #666666 inset, 0 0 1px #00FF00;
+ -moz-box-shadow: 0 0 3px 1px #666666 inset, 0 0 1px #00FF00;
+}
+.scianimator .box a.navigator.disabled,
+.scianimator .box a:hover.navigator.disabled {
+ background: red;
+ box-shadow: 0 0 3px 1px #666666 inset, 0 0 1px red;
+ -o-box-shadow: 0 0 3px 1px #666666 inset, 0 0 1px red;
+ -webkit-box-shadow: 0 0 3px 1px #666666 inset, 0 0 1px red;
+ -moz-box-shadow: 0 0 3px 1px #666666 inset, 0 0 1px red;
+}
+.scianimator .box a.navigator.current,
+.scianimator .box a:hover.navigator.current {
+ background: blue;
+ box-shadow: 0 0 3px 1px #666666 inset, 0 0 1px blue;
+ -o-box-shadow: 0 0 3px 1px #666666 inset, 0 0 1px blue;
+ -webkit-box-shadow: 0 0 3px 1px #666666 inset, 0 0 1px blue;
+ -moz-box-shadow: 0 0 3px 1px #666666 inset, 0 0 1px blue;
+}
+
+.scianimator .status {
+ background: red;
+ color: #fff;
+ right: 0;
+ padding: 5px;
+ position: absolute;
+ top: 0;
+}
\ No newline at end of file
diff --git a/misc-R/quantile/css/scianimator.dark.css b/misc-R/quantile/css/scianimator.dark.css
new file mode 100755
index 0000000..cee3628
--- /dev/null
+++ b/misc-R/quantile/css/scianimator.dark.css
@@ -0,0 +1,44 @@
+/**
+ * SciAnimator - Scientific Image Animator Plugin for jQuery
+ *
+ * Copyright (c) 2010 Brent Ertz
+ * Released under the MIT license.
+ * http://github.com/brentertz/scianimator
+*/
+
+/* Dark theme */
+.scianimator.dark,
+.scianimator.dark a,
+.scianimator.dark a:visited {
+ color: #ccc;
+}
+.scianimator.dark {
+ background: #333;
+}
+.scianimator.dark .controls,
+.scianimator.dark .control {
+ background-color: #333;
+ border-color: #666;
+ color: #ccc;
+ text-shadow: 0 1px #000;
+}
+.scianimator.dark .controls {
+ box-shadow: inset 0 1px 3px #fff, inset 0 -17px #000, 0 0 3px #000;
+ -o-box-shadow: inset 0 1px 3px #fff, inset 0 -17px #000, 0 0 3px #000;
+ -webkit-box-shadow: inset 0 1px 3px #fff, inset 0 -17px #000, 0 0 3px #000;
+ -moz-box-shadow: inset 0 1px 3px #fff, inset 0 -17px #000, 0 0 3px #000;
+}
+.scianimator.dark .control {
+ box-shadow: inset 0 1px 3px #fff, inset 0 -10px #000, 0 0 3px #000;
+ -o-box-shadow: inset 0 1px 3px #fff, inset 0 -10px #000, 0 0 3px #000;
+ -webkit-box-shadow: inset 0 1px 3px #fff, inset 0 -10px #000, 0 0 3px #000;
+ -moz-box-shadow: inset 0 1px 3px #fff, inset 0 -10px #000, 0 0 3px #000;
+}
+.scianimator.dark a:hover {
+ box-shadow: inset 0 1px 3px #fff, inset 0 -10px #000, 0 0 3px #555;
+ -o-box-shadow: inset 0 1px 3px #fff, inset 0 -10px #000, 0 0 3px #555;
+ -webkit-box-shadow: inset 0 1px 3px #fff, inset 0 -10px #000, 0 0 3px #555;
+ -moz-box-shadow: inset 0 1px 3px #fff, inset 0 -10px #333, 0 0 3px #555;
+ color: #fff;
+ text-shadow: 0px 1px #000;
+}
\ No newline at end of file
diff --git a/misc-R/quantile/css/scianimator.light.css b/misc-R/quantile/css/scianimator.light.css
new file mode 100755
index 0000000..c0298bf
--- /dev/null
+++ b/misc-R/quantile/css/scianimator.light.css
@@ -0,0 +1,44 @@
+/**
+ * SciAnimator - Scientific Image Animator Plugin for jQuery
+ *
+ * Copyright (c) 2010 Brent Ertz
+ * Released under the MIT license.
+ * http://github.com/brentertz/scianimator
+*/
+
+/* Light theme */
+.scianimator.light,
+.scianimator.light a,
+.scianimator.light a:visited {
+ color: #555;
+}
+.scianimator.light {
+ background: #ddd;
+}
+.scianimator.light .controls,
+.scianimator.light .control {
+ background-color: #ddd;
+ border-color: #999;
+ color: #555;
+ text-shadow: 0 1px #fff;
+}
+.scianimator.light .controls {
+ box-shadow: inset 0 1px 3px #fff, inset 0 -17px #ccc, 0 0 3px #999;
+ -o-box-shadow: inset 0 1px 3px #fff, inset 0 -17px #ccc, 0 0 3px #999;
+ -webkit-box-shadow: inset 0 1px 3px #fff, inset 0 -17px #ccc, 0 0 3px #999;
+ -moz-box-shadow: inset 0 1px 3px #fff, inset 0 -17px #ccc, 0 0 3px #999;
+}
+.scianimator.light .control {
+ box-shadow: inset 0 1px 3px #fff, inset 0 -10px #ccc, 0 0 3px #999;
+ -o-box-shadow: inset 0 1px 3px #fff, inset 0 -10px #ccc, 0 0 3px #999;
+ -webkit-box-shadow: inset 0 1px 3px #fff, inset 0 -10px #ccc, 0 0 3px #999;
+ -moz-box-shadow: inset 0 1px 3px #fff, inset 0 -10px #ccc, 0 0 3px #999;
+}
+.scianimator.light a:hover {
+ box-shadow: inset 0 1px 3px #fff, inset 0 -10px #ccc, 0 0 3px #555;
+ -o-box-shadow: inset 0 1px 3px #fff, inset 0 -10px #ccc, 0 0 3px #555;
+ -webkit-box-shadow: inset 0 1px 3px #fff, inset 0 -10px #ccc, 0 0 3px #555;
+ -moz-box-shadow: inset 0 1px 3px #fff, inset 0 -10px #ccc, 0 0 3px #555;
+ color: #fff;
+ text-shadow: 0px 1px #555;
+}
\ No newline at end of file
diff --git a/misc-R/quantile/css/styles.css b/misc-R/quantile/css/styles.css
new file mode 100755
index 0000000..8887991
--- /dev/null
+++ b/misc-R/quantile/css/styles.css
@@ -0,0 +1,3 @@
+body {
+ margin: 20px;
+}
\ No newline at end of file
diff --git a/misc-R/quantile/js/Rplot.js b/misc-R/quantile/js/Rplot.js
new file mode 100644
index 0000000..dbed5f1
--- /dev/null
+++ b/misc-R/quantile/js/Rplot.js
@@ -0,0 +1,13 @@
+(function($) {
+ $(document).ready(function() {
+
+ $('#Rplot').scianimator({
+ 'images': ['images/Rplot1.png', 'images/Rplot2.png', 'images/Rplot3.png', 'images/Rplot4.png', 'images/Rplot5.png', 'images/Rplot6.png', 'images/Rplot7.png', 'images/Rplot8.png', 'images/Rplot9.png', 'images/Rplot10.png', 'images/Rplot11.png', 'images/Rplot12.png', 'images/Rplot13.png', 'images/Rplot14.png', 'images/Rplot15.png', 'images/Rplot16.png', 'images/Rplot17.png', 'images/Rplot18.png', 'images/Rplot19.png', 'images/Rplot20.png', 'images/Rplot21.png', 'images/Rplot22.png', 'images/Rplot23.png', 'images/Rplot24.png', 'images/Rplot25.png', 'images/Rplot26.png', 'images/Rplot27.png', 'images/Rplot28.png', 'images/Rplot29.png', 'images/Rplot30.png', 'images/Rplot31.png', 'images/Rplot32.png', 'images/Rplot33.png', 'images/Rplot34.png', 'images/Rplot35.png', 'images/Rplot36.png', 'images/Rplot37.png', 'images/Rplot38.png', 'images/Rplot39.png', 'images/Rplot40.png', 'images/Rplot41.png', 'images/Rplot42.png', 'images/Rplot43.png', 'images/Rplot44.png', 'images/Rplot45.png', 'images/Rplot46.png', 'images/Rplot47.png', 'images/Rplot48.png', 'images/Rplot49.png', 'images/Rplot50.png', 'images/Rplot51.png', 'images/Rplot52.png', 'images/Rplot53.png', 'images/Rplot54.png', 'images/Rplot55.png', 'images/Rplot56.png', 'images/Rplot57.png', 'images/Rplot58.png', 'images/Rplot59.png', 'images/Rplot60.png', 'images/Rplot61.png', 'images/Rplot62.png', 'images/Rplot63.png', 'images/Rplot64.png', 'images/Rplot65.png', 'images/Rplot66.png', 'images/Rplot67.png', 'images/Rplot68.png', 'images/Rplot69.png', 'images/Rplot70.png', 'images/Rplot71.png', 'images/Rplot72.png', 'images/Rplot73.png', 'images/Rplot74.png', 'images/Rplot75.png', 'images/Rplot76.png', 'images/Rplot77.png', 'images/Rplot78.png', 'images/Rplot79.png', 'images/Rplot80.png', 'images/Rplot81.png', 'images/Rplot82.png', 'images/Rplot83.png', 'images/Rplot84.png', 'images/Rplot85.png', 'images/Rplot86.png', 'images/Rplot87.png', 'images/Rplot88.png', 'images/Rplot89.png', 'images/Rplot90.png', 'images/Rplot91.png', 'images/Rplot92.png', 'images/Rplot93.png', 'images/Rplot94.png', 'images/Rplot95.png', 'images/Rplot96.png', 'images/Rplot97.png', 'images/Rplot98.png', 'images/Rplot99.png', 'images/Rplot100.png', 'images/Rplot101.png', 'images/Rplot102.png', 'images/Rplot103.png', 'images/Rplot104.png', 'images/Rplot105.png', 'images/Rplot106.png', 'images/Rplot107.png', 'images/Rplot108.png', 'images/Rplot109.png', 'images/Rplot110.png', 'images/Rplot111.png', 'images/Rplot112.png', 'images/Rplot113.png', 'images/Rplot114.png', 'images/Rplot115.png', 'images/Rplot116.png', 'images/Rplot117.png', 'images/Rplot118.png', 'images/Rplot119.png', 'images/Rplot120.png', 'images/Rplot121.png', 'images/Rplot122.png', 'images/Rplot123.png', 'images/Rplot124.png', 'images/Rplot125.png', 'images/Rplot126.png', 'images/Rplot127.png', 'images/Rplot128.png', 'images/Rplot129.png', 'images/Rplot130.png', 'images/Rplot131.png', 'images/Rplot132.png', 'images/Rplot133.png', 'images/Rplot134.png', 'images/Rplot135.png', 'images/Rplot136.png', 'images/Rplot137.png', 'images/Rplot138.png', 'images/Rplot139.png', 'images/Rplot140.png', 'images/Rplot141.png', 'images/Rplot142.png', 'images/Rplot143.png', 'images/Rplot144.png', 'images/Rplot145.png', 'images/Rplot146.png', 'images/Rplot147.png', 'images/Rplot148.png', 'images/Rplot149.png', 'images/Rplot150.png', 'images/Rplot151.png', 'images/Rplot152.png', 'images/Rplot153.png', 'images/Rplot154.png', 'images/Rplot155.png', 'images/Rplot156.png', 'images/Rplot157.png', 'images/Rplot158.png', 'images/Rplot159.png', 'images/Rplot160.png', 'images/Rplot161.png', 'images/Rplot162.png', 'images/Rplot163.png', 'images/Rplot164.png', 'images/Rplot165.png', 'images/Rplot166.png', 'images/Rplot167.png', 'images/Rplot168.png', 'images/Rplot169.png', 'images/Rplot170.png', 'images/Rplot171.png', 'images/Rplot172.png', 'images/Rplot173.png', 'images/Rplot174.png', 'images/Rplot175.png', 'images/Rplot176.png', 'images/Rplot177.png', 'images/Rplot178.png', 'images/Rplot179.png', 'images/Rplot180.png', 'images/Rplot181.png', 'images/Rplot182.png', 'images/Rplot183.png', 'images/Rplot184.png', 'images/Rplot185.png', 'images/Rplot186.png', 'images/Rplot187.png', 'images/Rplot188.png', 'images/Rplot189.png', 'images/Rplot190.png', 'images/Rplot191.png', 'images/Rplot192.png', 'images/Rplot193.png', 'images/Rplot194.png', 'images/Rplot195.png', 'images/Rplot196.png', 'images/Rplot197.png', 'images/Rplot198.png', 'images/Rplot199.png', 'images/Rplot200.png', 'images/Rplot201.png', 'images/Rplot202.png', 'images/Rplot203.png', 'images/Rplot204.png', 'images/Rplot205.png', 'images/Rplot206.png', 'images/Rplot207.png', 'images/Rplot208.png', 'images/Rplot209.png', 'images/Rplot210.png', 'images/Rplot211.png', 'images/Rplot212.png', 'images/Rplot213.png', 'images/Rplot214.png', 'images/Rplot215.png', 'images/Rplot216.png', 'images/Rplot217.png', 'images/Rplot218.png', 'images/Rplot219.png', 'images/Rplot220.png', 'images/Rplot221.png', 'images/Rplot222.png', 'images/Rplot223.png', 'images/Rplot224.png', 'images/Rplot225.png', 'images/Rplot226.png', 'images/Rplot227.png', 'images/Rplot228.png', 'images/Rplot229.png', 'images/Rplot230.png', 'images/Rplot231.png', 'images/Rplot232.png', 'images/Rplot233.png', 'images/Rplot234.png', 'images/Rplot235.png', 'images/Rplot236.png', 'images/Rplot237.png', 'images/Rplot238.png', 'images/Rplot239.png', 'images/Rplot240.png', 'images/Rplot241.png', 'images/Rplot242.png', 'images/Rplot243.png', 'images/Rplot244.png', 'images/Rplot245.png', 'images/Rplot246.png', 'images/Rplot247.png', 'images/Rplot248.png', 'images/Rplot249.png', 'images/Rplot250.png', 'images/Rplot251.png', 'images/Rplot252.png', 'images/Rplot253.png', 'images/Rplot254.png', 'images/Rplot255.png', 'images/Rplot256.png', 'images/Rplot257.png', 'images/Rplot258.png', 'images/Rplot259.png', 'images/Rplot260.png', 'images/Rplot261.png', 'images/Rplot262.png', 'images/Rplot263.png', 'images/Rplot264.png', 'images/Rplot265.png', 'images/Rplot266.png', 'images/Rplot267.png', 'images/Rplot268.png', 'images/Rplot269.png', 'images/Rplot270.png', 'images/Rplot271.png', 'images/Rplot272.png', 'images/Rplot273.png', 'images/Rplot274.png', 'images/Rplot275.png', 'images/Rplot276.png', 'images/Rplot277.png', 'images/Rplot278.png', 'images/Rplot279.png', 'images/Rplot280.png', 'images/Rplot281.png', 'images/Rplot282.png', 'images/Rplot283.png', 'images/Rplot284.png', 'images/Rplot285.png', 'images/Rplot286.png', 'images/Rplot287.png', 'images/Rplot288.png', 'images/Rplot289.png', 'images/Rplot290.png', 'images/Rplot291.png', 'images/Rplot292.png', 'images/Rplot293.png', 'images/Rplot294.png', 'images/Rplot295.png', 'images/Rplot296.png', 'images/Rplot297.png', 'images/Rplot298.png', 'images/Rplot299.png', 'images/Rplot300.png', 'images/Rplot301.png', 'images/Rplot302.png', 'images/Rplot303.png', 'images/Rplot304.png', 'images/Rplot305.png', 'images/Rplot306.png', 'images/Rplot307.png', 'images/Rplot308.png', 'images/Rplot309.png', 'images/Rplot310.png', 'images/Rplot311.png', 'images/Rplot312.png', 'images/Rplot313.png', 'images/Rplot314.png', 'images/Rplot315.png', 'images/Rplot316.png', 'images/Rplot317.png', 'images/Rplot318.png', 'images/Rplot319.png', 'images/Rplot320.png', 'images/Rplot321.png', 'images/Rplot322.png', 'images/Rplot323.png', 'images/Rplot324.png', 'images/Rplot325.png', 'images/Rplot326.png', 'images/Rplot327.png', 'images/Rplot328.png', 'images/Rplot329.png', 'images/Rplot330.png', 'images/Rplot331.png', 'images/Rplot332.png', 'images/Rplot333.png', 'images/Rplot334.png', 'images/Rplot335.png', 'images/Rplot336.png', 'images/Rplot337.png', 'images/Rplot338.png', 'images/Rplot339.png', 'images/Rplot340.png', 'images/Rplot341.png', 'images/Rplot342.png', 'images/Rplot343.png', 'images/Rplot344.png', 'images/Rplot345.png', 'images/Rplot346.png', 'images/Rplot347.png', 'images/Rplot348.png', 'images/Rplot349.png', 'images/Rplot350.png', 'images/Rplot351.png', 'images/Rplot352.png', 'images/Rplot353.png', 'images/Rplot354.png', 'images/Rplot355.png', 'images/Rplot356.png', 'images/Rplot357.png', 'images/Rplot358.png', 'images/Rplot359.png', 'images/Rplot360.png', 'images/Rplot361.png', 'images/Rplot362.png', 'images/Rplot363.png', 'images/Rplot364.png', 'images/Rplot365.png', 'images/Rplot366.png', 'images/Rplot367.png', 'images/Rplot368.png', 'images/Rplot369.png', 'images/Rplot370.png', 'images/Rplot371.png', 'images/Rplot372.png', 'images/Rplot373.png', 'images/Rplot374.png', 'images/Rplot375.png', 'images/Rplot376.png', 'images/Rplot377.png', 'images/Rplot378.png', 'images/Rplot379.png', 'images/Rplot380.png', 'images/Rplot381.png', 'images/Rplot382.png', 'images/Rplot383.png', 'images/Rplot384.png', 'images/Rplot385.png', 'images/Rplot386.png', 'images/Rplot387.png', 'images/Rplot388.png', 'images/Rplot389.png', 'images/Rplot390.png', 'images/Rplot391.png', 'images/Rplot392.png', 'images/Rplot393.png', 'images/Rplot394.png', 'images/Rplot395.png', 'images/Rplot396.png', 'images/Rplot397.png', 'images/Rplot398.png', 'images/Rplot399.png', 'images/Rplot400.png', 'images/Rplot401.png', 'images/Rplot402.png', 'images/Rplot403.png', 'images/Rplot404.png', 'images/Rplot405.png', 'images/Rplot406.png', 'images/Rplot407.png', 'images/Rplot408.png', 'images/Rplot409.png', 'images/Rplot410.png', 'images/Rplot411.png', 'images/Rplot412.png', 'images/Rplot413.png', 'images/Rplot414.png', 'images/Rplot415.png', 'images/Rplot416.png', 'images/Rplot417.png', 'images/Rplot418.png', 'images/Rplot419.png', 'images/Rplot420.png', 'images/Rplot421.png', 'images/Rplot422.png', 'images/Rplot423.png', 'images/Rplot424.png', 'images/Rplot425.png', 'images/Rplot426.png', 'images/Rplot427.png', 'images/Rplot428.png', 'images/Rplot429.png', 'images/Rplot430.png', 'images/Rplot431.png', 'images/Rplot432.png', 'images/Rplot433.png', 'images/Rplot434.png', 'images/Rplot435.png', 'images/Rplot436.png', 'images/Rplot437.png', 'images/Rplot438.png', 'images/Rplot439.png', 'images/Rplot440.png', 'images/Rplot441.png', 'images/Rplot442.png', 'images/Rplot443.png', 'images/Rplot444.png', 'images/Rplot445.png', 'images/Rplot446.png', 'images/Rplot447.png', 'images/Rplot448.png', 'images/Rplot449.png', 'images/Rplot450.png', 'images/Rplot451.png', 'images/Rplot452.png', 'images/Rplot453.png', 'images/Rplot454.png', 'images/Rplot455.png', 'images/Rplot456.png', 'images/Rplot457.png', 'images/Rplot458.png', 'images/Rplot459.png', 'images/Rplot460.png', 'images/Rplot461.png', 'images/Rplot462.png', 'images/Rplot463.png', 'images/Rplot464.png', 'images/Rplot465.png', 'images/Rplot466.png', 'images/Rplot467.png', 'images/Rplot468.png', 'images/Rplot469.png', 'images/Rplot470.png', 'images/Rplot471.png', 'images/Rplot472.png', 'images/Rplot473.png', 'images/Rplot474.png', 'images/Rplot475.png', 'images/Rplot476.png', 'images/Rplot477.png', 'images/Rplot478.png', 'images/Rplot479.png', 'images/Rplot480.png', 'images/Rplot481.png', 'images/Rplot482.png', 'images/Rplot483.png', 'images/Rplot484.png', 'images/Rplot485.png', 'images/Rplot486.png', 'images/Rplot487.png', 'images/Rplot488.png', 'images/Rplot489.png', 'images/Rplot490.png', 'images/Rplot491.png', 'images/Rplot492.png', 'images/Rplot493.png', 'images/Rplot494.png', 'images/Rplot495.png', 'images/Rplot496.png', 'images/Rplot497.png', 'images/Rplot498.png', 'images/Rplot499.png', 'images/Rplot500.png', 'images/Rplot501.png', 'images/Rplot502.png', 'images/Rplot503.png', 'images/Rplot504.png', 'images/Rplot505.png', 'images/Rplot506.png', 'images/Rplot507.png', 'images/Rplot508.png', 'images/Rplot509.png', 'images/Rplot510.png', 'images/Rplot511.png', 'images/Rplot512.png', 'images/Rplot513.png', 'images/Rplot514.png', 'images/Rplot515.png', 'images/Rplot516.png', 'images/Rplot517.png', 'images/Rplot518.png', 'images/Rplot519.png', 'images/Rplot520.png', 'images/Rplot521.png', 'images/Rplot522.png', 'images/Rplot523.png', 'images/Rplot524.png', 'images/Rplot525.png', 'images/Rplot526.png', 'images/Rplot527.png', 'images/Rplot528.png', 'images/Rplot529.png', 'images/Rplot530.png', 'images/Rplot531.png', 'images/Rplot532.png', 'images/Rplot533.png', 'images/Rplot534.png', 'images/Rplot535.png', 'images/Rplot536.png', 'images/Rplot537.png', 'images/Rplot538.png', 'images/Rplot539.png', 'images/Rplot540.png', 'images/Rplot541.png', 'images/Rplot542.png', 'images/Rplot543.png', 'images/Rplot544.png', 'images/Rplot545.png', 'images/Rplot546.png', 'images/Rplot547.png', 'images/Rplot548.png', 'images/Rplot549.png', 'images/Rplot550.png', 'images/Rplot551.png', 'images/Rplot552.png', 'images/Rplot553.png', 'images/Rplot554.png', 'images/Rplot555.png', 'images/Rplot556.png', 'images/Rplot557.png', 'images/Rplot558.png', 'images/Rplot559.png', 'images/Rplot560.png', 'images/Rplot561.png', 'images/Rplot562.png', 'images/Rplot563.png', 'images/Rplot564.png', 'images/Rplot565.png', 'images/Rplot566.png', 'images/Rplot567.png', 'images/Rplot568.png', 'images/Rplot569.png', 'images/Rplot570.png', 'images/Rplot571.png', 'images/Rplot572.png', 'images/Rplot573.png', 'images/Rplot574.png', 'images/Rplot575.png', 'images/Rplot576.png', 'images/Rplot577.png', 'images/Rplot578.png', 'images/Rplot579.png', 'images/Rplot580.png', 'images/Rplot581.png', 'images/Rplot582.png', 'images/Rplot583.png', 'images/Rplot584.png', 'images/Rplot585.png', 'images/Rplot586.png', 'images/Rplot587.png', 'images/Rplot588.png', 'images/Rplot589.png', 'images/Rplot590.png', 'images/Rplot591.png', 'images/Rplot592.png', 'images/Rplot593.png', 'images/Rplot594.png', 'images/Rplot595.png', 'images/Rplot596.png', 'images/Rplot597.png', 'images/Rplot598.png', 'images/Rplot599.png', 'images/Rplot600.png', 'images/Rplot601.png', 'images/Rplot602.png', 'images/Rplot603.png', 'images/Rplot604.png', 'images/Rplot605.png', 'images/Rplot606.png', 'images/Rplot607.png', 'images/Rplot608.png', 'images/Rplot609.png', 'images/Rplot610.png', 'images/Rplot611.png', 'images/Rplot612.png', 'images/Rplot613.png', 'images/Rplot614.png', 'images/Rplot615.png', 'images/Rplot616.png', 'images/Rplot617.png', 'images/Rplot618.png', 'images/Rplot619.png', 'images/Rplot620.png', 'images/Rplot621.png', 'images/Rplot622.png', 'images/Rplot623.png', 'images/Rplot624.png', 'images/Rplot625.png', 'images/Rplot626.png', 'images/Rplot627.png', 'images/Rplot628.png', 'images/Rplot629.png', 'images/Rplot630.png', 'images/Rplot631.png', 'images/Rplot632.png', 'images/Rplot633.png', 'images/Rplot634.png', 'images/Rplot635.png', 'images/Rplot636.png', 'images/Rplot637.png', 'images/Rplot638.png', 'images/Rplot639.png', 'images/Rplot640.png', 'images/Rplot641.png', 'images/Rplot642.png', 'images/Rplot643.png', 'images/Rplot644.png', 'images/Rplot645.png', 'images/Rplot646.png', 'images/Rplot647.png', 'images/Rplot648.png', 'images/Rplot649.png', 'images/Rplot650.png', 'images/Rplot651.png', 'images/Rplot652.png', 'images/Rplot653.png', 'images/Rplot654.png', 'images/Rplot655.png', 'images/Rplot656.png', 'images/Rplot657.png', 'images/Rplot658.png', 'images/Rplot659.png', 'images/Rplot660.png', 'images/Rplot661.png', 'images/Rplot662.png', 'images/Rplot663.png', 'images/Rplot664.png', 'images/Rplot665.png', 'images/Rplot666.png', 'images/Rplot667.png', 'images/Rplot668.png', 'images/Rplot669.png', 'images/Rplot670.png', 'images/Rplot671.png', 'images/Rplot672.png', 'images/Rplot673.png', 'images/Rplot674.png'],
+ 'width': 1600,
+ 'delay': 1000,
+ 'loopMode': 'loop',
+ 'controls': ['first', 'previous', 'play', 'next', 'last', 'loop', 'speed']
+ });
+ $('#Rplot').scianimator('play');
+ });
+})(jQuery);
diff --git a/misc-R/quantile/js/jquery-1.4.4.min.js b/misc-R/quantile/js/jquery-1.4.4.min.js
new file mode 100755
index 0000000..8f3ca2e
--- /dev/null
+++ b/misc-R/quantile/js/jquery-1.4.4.min.js
@@ -0,0 +1,167 @@
+/*!
+ * jQuery JavaScript Library v1.4.4
+ * http://jquery.com/
+ *
+ * Copyright 2010, John Resig
+ * Dual licensed under the MIT or GPL Version 2 licenses.
+ * http://jquery.org/license
+ *
+ * Includes Sizzle.js
+ * http://sizzlejs.com/
+ * Copyright 2010, The Dojo Foundation
+ * Released under the MIT, BSD, and GPL Licenses.
+ *
+ * Date: Thu Nov 11 19:04:53 2010 -0500
+ */
+(function(E,B){function ka(a,b,d){if(d===B&&a.nodeType===1){d=a.getAttribute("data-"+b);if(typeof d==="string"){try{d=d==="true"?true:d==="false"?false:d==="null"?null:!c.isNaN(d)?parseFloat(d):Ja.test(d)?c.parseJSON(d):d}catch(e){}c.data(a,b,d)}else d=B}return d}function U(){return false}function ca(){return true}function la(a,b,d){d[0].type=a;return c.event.handle.apply(b,d)}function Ka(a){var b,d,e,f,h,l,k,o,x,r,A,C=[];f=[];h=c.data(this,this.nodeType?"events":"__events__");if(typeof h==="function")h=
+h.events;if(!(a.liveFired===this||!h||!h.live||a.button&&a.type==="click")){if(a.namespace)A=RegExp("(^|\\.)"+a.namespace.split(".").join("\\.(?:.*\\.)?")+"(\\.|$)");a.liveFired=this;var J=h.live.slice(0);for(k=0;k<J.length;k++){h=J[k];h.origType.replace(X,"")===a.type?f.push(h.selector):J.splice(k--,1)}f=c(a.target).closest(f,a.currentTarget);o=0;for(x=f.length;o<x;o++){r=f[o];for(k=0;k<J.length;k++){h=J[k];if(r.selector===h.selector&&(!A||A.test(h.namespace))){l=r.elem;e=null;if(h.preType==="mouseenter"||
+h.preType==="mouseleave"){a.type=h.preType;e=c(a.relatedTarget).closest(h.selector)[0]}if(!e||e!==l)C.push({elem:l,handleObj:h,level:r.level})}}}o=0;for(x=C.length;o<x;o++){f=C[o];if(d&&f.level>d)break;a.currentTarget=f.elem;a.data=f.handleObj.data;a.handleObj=f.handleObj;A=f.handleObj.origHandler.apply(f.elem,arguments);if(A===false||a.isPropagationStopped()){d=f.level;if(A===false)b=false;if(a.isImmediatePropagationStopped())break}}return b}}function Y(a,b){return(a&&a!=="*"?a+".":"")+b.replace(La,
+"`").replace(Ma,"&")}function ma(a,b,d){if(c.isFunction(b))return c.grep(a,function(f,h){return!!b.call(f,h,f)===d});else if(b.nodeType)return c.grep(a,function(f){return f===b===d});else if(typeof b==="string"){var e=c.grep(a,function(f){return f.nodeType===1});if(Na.test(b))return c.filter(b,e,!d);else b=c.filter(b,e)}return c.grep(a,function(f){return c.inArray(f,b)>=0===d})}function na(a,b){var d=0;b.each(function(){if(this.nodeName===(a[d]&&a[d].nodeName)){var e=c.data(a[d++]),f=c.data(this,
+e);if(e=e&&e.events){delete f.handle;f.events={};for(var h in e)for(var l in e[h])c.event.add(this,h,e[h][l],e[h][l].data)}}})}function Oa(a,b){b.src?c.ajax({url:b.src,async:false,dataType:"script"}):c.globalEval(b.text||b.textContent||b.innerHTML||"");b.parentNode&&b.parentNode.removeChild(b)}function oa(a,b,d){var e=b==="width"?a.offsetWidth:a.offsetHeight;if(d==="border")return e;c.each(b==="width"?Pa:Qa,function(){d||(e-=parseFloat(c.css(a,"padding"+this))||0);if(d==="margin")e+=parseFloat(c.css(a,
+"margin"+this))||0;else e-=parseFloat(c.css(a,"border"+this+"Width"))||0});return e}function da(a,b,d,e){if(c.isArray(b)&&b.length)c.each(b,function(f,h){d||Ra.test(a)?e(a,h):da(a+"["+(typeof h==="object"||c.isArray(h)?f:"")+"]",h,d,e)});else if(!d&&b!=null&&typeof b==="object")c.isEmptyObject(b)?e(a,""):c.each(b,function(f,h){da(a+"["+f+"]",h,d,e)});else e(a,b)}function S(a,b){var d={};c.each(pa.concat.apply([],pa.slice(0,b)),function(){d[this]=a});return d}function qa(a){if(!ea[a]){var b=c("<"+
+a+">").appendTo("body"),d=b.css("display");b.remove();if(d==="none"||d==="")d="block";ea[a]=d}return ea[a]}function fa(a){return c.isWindow(a)?a:a.nodeType===9?a.defaultView||a.parentWindow:false}var t=E.document,c=function(){function a(){if(!b.isReady){try{t.documentElement.doScroll("left")}catch(j){setTimeout(a,1);return}b.ready()}}var b=function(j,s){return new b.fn.init(j,s)},d=E.jQuery,e=E.$,f,h=/^(?:[^<]*(<[\w\W]+>)[^>]*$|#([\w\-]+)$)/,l=/\S/,k=/^\s+/,o=/\s+$/,x=/\W/,r=/\d/,A=/^<(\w+)\s*\/?>(?:<\/\1>)?$/,
+C=/^[\],:{}\s]*$/,J=/\\(?:["\\\/bfnrt]|u[0-9a-fA-F]{4})/g,w=/"[^"\\\n\r]*"|true|false|null|-?\d+(?:\.\d*)?(?:[eE][+\-]?\d+)?/g,I=/(?:^|:|,)(?:\s*\[)+/g,L=/(webkit)[ \/]([\w.]+)/,g=/(opera)(?:.*version)?[ \/]([\w.]+)/,i=/(msie) ([\w.]+)/,n=/(mozilla)(?:.*? rv:([\w.]+))?/,m=navigator.userAgent,p=false,q=[],u,y=Object.prototype.toString,F=Object.prototype.hasOwnProperty,M=Array.prototype.push,N=Array.prototype.slice,O=String.prototype.trim,D=Array.prototype.indexOf,R={};b.fn=b.prototype={init:function(j,
+s){var v,z,H;if(!j)return this;if(j.nodeType){this.context=this[0]=j;this.length=1;return this}if(j==="body"&&!s&&t.body){this.context=t;this[0]=t.body;this.selector="body";this.length=1;return this}if(typeof j==="string")if((v=h.exec(j))&&(v[1]||!s))if(v[1]){H=s?s.ownerDocument||s:t;if(z=A.exec(j))if(b.isPlainObject(s)){j=[t.createElement(z[1])];b.fn.attr.call(j,s,true)}else j=[H.createElement(z[1])];else{z=b.buildFragment([v[1]],[H]);j=(z.cacheable?z.fragment.cloneNode(true):z.fragment).childNodes}return b.merge(this,
+j)}else{if((z=t.getElementById(v[2]))&&z.parentNode){if(z.id!==v[2])return f.find(j);this.length=1;this[0]=z}this.context=t;this.selector=j;return this}else if(!s&&!x.test(j)){this.selector=j;this.context=t;j=t.getElementsByTagName(j);return b.merge(this,j)}else return!s||s.jquery?(s||f).find(j):b(s).find(j);else if(b.isFunction(j))return f.ready(j);if(j.selector!==B){this.selector=j.selector;this.context=j.context}return b.makeArray(j,this)},selector:"",jquery:"1.4.4",length:0,size:function(){return this.length},
+toArray:function(){return N.call(this,0)},get:function(j){return j==null?this.toArray():j<0?this.slice(j)[0]:this[j]},pushStack:function(j,s,v){var z=b();b.isArray(j)?M.apply(z,j):b.merge(z,j);z.prevObject=this;z.context=this.context;if(s==="find")z.selector=this.selector+(this.selector?" ":"")+v;else if(s)z.selector=this.selector+"."+s+"("+v+")";return z},each:function(j,s){return b.each(this,j,s)},ready:function(j){b.bindReady();if(b.isReady)j.call(t,b);else q&&q.push(j);return this},eq:function(j){return j===
+-1?this.slice(j):this.slice(j,+j+1)},first:function(){return this.eq(0)},last:function(){return this.eq(-1)},slice:function(){return this.pushStack(N.apply(this,arguments),"slice",N.call(arguments).join(","))},map:function(j){return this.pushStack(b.map(this,function(s,v){return j.call(s,v,s)}))},end:function(){return this.prevObject||b(null)},push:M,sort:[].sort,splice:[].splice};b.fn.init.prototype=b.fn;b.extend=b.fn.extend=function(){var j,s,v,z,H,G=arguments[0]||{},K=1,Q=arguments.length,ga=false;
+if(typeof G==="boolean"){ga=G;G=arguments[1]||{};K=2}if(typeof G!=="object"&&!b.isFunction(G))G={};if(Q===K){G=this;--K}for(;K<Q;K++)if((j=arguments[K])!=null)for(s in j){v=G[s];z=j[s];if(G!==z)if(ga&&z&&(b.isPlainObject(z)||(H=b.isArray(z)))){if(H){H=false;v=v&&b.isArray(v)?v:[]}else v=v&&b.isPlainObject(v)?v:{};G[s]=b.extend(ga,v,z)}else if(z!==B)G[s]=z}return G};b.extend({noConflict:function(j){E.$=e;if(j)E.jQuery=d;return b},isReady:false,readyWait:1,ready:function(j){j===true&&b.readyWait--;
+if(!b.readyWait||j!==true&&!b.isReady){if(!t.body)return setTimeout(b.ready,1);b.isReady=true;if(!(j!==true&&--b.readyWait>0))if(q){var s=0,v=q;for(q=null;j=v[s++];)j.call(t,b);b.fn.trigger&&b(t).trigger("ready").unbind("ready")}}},bindReady:function(){if(!p){p=true;if(t.readyState==="complete")return setTimeout(b.ready,1);if(t.addEventListener){t.addEventListener("DOMContentLoaded",u,false);E.addEventListener("load",b.ready,false)}else if(t.attachEvent){t.attachEvent("onreadystatechange",u);E.attachEvent("onload",
+b.ready);var j=false;try{j=E.frameElement==null}catch(s){}t.documentElement.doScroll&&j&&a()}}},isFunction:function(j){return b.type(j)==="function"},isArray:Array.isArray||function(j){return b.type(j)==="array"},isWindow:function(j){return j&&typeof j==="object"&&"setInterval"in j},isNaN:function(j){return j==null||!r.test(j)||isNaN(j)},type:function(j){return j==null?String(j):R[y.call(j)]||"object"},isPlainObject:function(j){if(!j||b.type(j)!=="object"||j.nodeType||b.isWindow(j))return false;if(j.constructor&&
+!F.call(j,"constructor")&&!F.call(j.constructor.prototype,"isPrototypeOf"))return false;for(var s in j);return s===B||F.call(j,s)},isEmptyObject:function(j){for(var s in j)return false;return true},error:function(j){throw j;},parseJSON:function(j){if(typeof j!=="string"||!j)return null;j=b.trim(j);if(C.test(j.replace(J,"@").replace(w,"]").replace(I,"")))return E.JSON&&E.JSON.parse?E.JSON.parse(j):(new Function("return "+j))();else b.error("Invalid JSON: "+j)},noop:function(){},globalEval:function(j){if(j&&
+l.test(j)){var s=t.getElementsByTagName("head")[0]||t.documentElement,v=t.createElement("script");v.type="text/javascript";if(b.support.scriptEval)v.appendChild(t.createTextNode(j));else v.text=j;s.insertBefore(v,s.firstChild);s.removeChild(v)}},nodeName:function(j,s){return j.nodeName&&j.nodeName.toUpperCase()===s.toUpperCase()},each:function(j,s,v){var z,H=0,G=j.length,K=G===B||b.isFunction(j);if(v)if(K)for(z in j){if(s.apply(j[z],v)===false)break}else for(;H<G;){if(s.apply(j[H++],v)===false)break}else if(K)for(z in j){if(s.call(j[z],
+z,j[z])===false)break}else for(v=j[0];H<G&&s.call(v,H,v)!==false;v=j[++H]);return j},trim:O?function(j){return j==null?"":O.call(j)}:function(j){return j==null?"":j.toString().replace(k,"").replace(o,"")},makeArray:function(j,s){var v=s||[];if(j!=null){var z=b.type(j);j.length==null||z==="string"||z==="function"||z==="regexp"||b.isWindow(j)?M.call(v,j):b.merge(v,j)}return v},inArray:function(j,s){if(s.indexOf)return s.indexOf(j);for(var v=0,z=s.length;v<z;v++)if(s[v]===j)return v;return-1},merge:function(j,
+s){var v=j.length,z=0;if(typeof s.length==="number")for(var H=s.length;z<H;z++)j[v++]=s[z];else for(;s[z]!==B;)j[v++]=s[z++];j.length=v;return j},grep:function(j,s,v){var z=[],H;v=!!v;for(var G=0,K=j.length;G<K;G++){H=!!s(j[G],G);v!==H&&z.push(j[G])}return z},map:function(j,s,v){for(var z=[],H,G=0,K=j.length;G<K;G++){H=s(j[G],G,v);if(H!=null)z[z.length]=H}return z.concat.apply([],z)},guid:1,proxy:function(j,s,v){if(arguments.length===2)if(typeof s==="string"){v=j;j=v[s];s=B}else if(s&&!b.isFunction(s)){v=
+s;s=B}if(!s&&j)s=function(){return j.apply(v||this,arguments)};if(j)s.guid=j.guid=j.guid||s.guid||b.guid++;return s},access:function(j,s,v,z,H,G){var K=j.length;if(typeof s==="object"){for(var Q in s)b.access(j,Q,s[Q],z,H,v);return j}if(v!==B){z=!G&&z&&b.isFunction(v);for(Q=0;Q<K;Q++)H(j[Q],s,z?v.call(j[Q],Q,H(j[Q],s)):v,G);return j}return K?H(j[0],s):B},now:function(){return(new Date).getTime()},uaMatch:function(j){j=j.toLowerCase();j=L.exec(j)||g.exec(j)||i.exec(j)||j.indexOf("compatible")<0&&n.exec(j)||
+[];return{browser:j[1]||"",version:j[2]||"0"}},browser:{}});b.each("Boolean Number String Function Array Date RegExp Object".split(" "),function(j,s){R["[object "+s+"]"]=s.toLowerCase()});m=b.uaMatch(m);if(m.browser){b.browser[m.browser]=true;b.browser.version=m.version}if(b.browser.webkit)b.browser.safari=true;if(D)b.inArray=function(j,s){return D.call(s,j)};if(!/\s/.test("\u00a0")){k=/^[\s\xA0]+/;o=/[\s\xA0]+$/}f=b(t);if(t.addEventListener)u=function(){t.removeEventListener("DOMContentLoaded",u,
+false);b.ready()};else if(t.attachEvent)u=function(){if(t.readyState==="complete"){t.detachEvent("onreadystatechange",u);b.ready()}};return E.jQuery=E.$=b}();(function(){c.support={};var a=t.documentElement,b=t.createElement("script"),d=t.createElement("div"),e="script"+c.now();d.style.display="none";d.innerHTML=" <link/><table></table><a href='/a' style='color:red;float:left;opacity:.55;'>a</a><input type='checkbox'/>";var f=d.getElementsByTagName("*"),h=d.getElementsByTagName("a")[0],l=t.createElement("select"),
+k=l.appendChild(t.createElement("option"));if(!(!f||!f.length||!h)){c.support={leadingWhitespace:d.firstChild.nodeType===3,tbody:!d.getElementsByTagName("tbody").length,htmlSerialize:!!d.getElementsByTagName("link").length,style:/red/.test(h.getAttribute("style")),hrefNormalized:h.getAttribute("href")==="/a",opacity:/^0.55$/.test(h.style.opacity),cssFloat:!!h.style.cssFloat,checkOn:d.getElementsByTagName("input")[0].value==="on",optSelected:k.selected,deleteExpando:true,optDisabled:false,checkClone:false,
+scriptEval:false,noCloneEvent:true,boxModel:null,inlineBlockNeedsLayout:false,shrinkWrapBlocks:false,reliableHiddenOffsets:true};l.disabled=true;c.support.optDisabled=!k.disabled;b.type="text/javascript";try{b.appendChild(t.createTextNode("window."+e+"=1;"))}catch(o){}a.insertBefore(b,a.firstChild);if(E[e]){c.support.scriptEval=true;delete E[e]}try{delete b.test}catch(x){c.support.deleteExpando=false}a.removeChild(b);if(d.attachEvent&&d.fireEvent){d.attachEvent("onclick",function r(){c.support.noCloneEvent=
+false;d.detachEvent("onclick",r)});d.cloneNode(true).fireEvent("onclick")}d=t.createElement("div");d.innerHTML="<input type='radio' name='radiotest' checked='checked'/>";a=t.createDocumentFragment();a.appendChild(d.firstChild);c.support.checkClone=a.cloneNode(true).cloneNode(true).lastChild.checked;c(function(){var r=t.createElement("div");r.style.width=r.style.paddingLeft="1px";t.body.appendChild(r);c.boxModel=c.support.boxModel=r.offsetWidth===2;if("zoom"in r.style){r.style.display="inline";r.style.zoom=
+1;c.support.inlineBlockNeedsLayout=r.offsetWidth===2;r.style.display="";r.innerHTML="<div style='width:4px;'></div>";c.support.shrinkWrapBlocks=r.offsetWidth!==2}r.innerHTML="<table><tr><td style='padding:0;display:none'></td><td>t</td></tr></table>";var A=r.getElementsByTagName("td");c.support.reliableHiddenOffsets=A[0].offsetHeight===0;A[0].style.display="";A[1].style.display="none";c.support.reliableHiddenOffsets=c.support.reliableHiddenOffsets&&A[0].offsetHeight===0;r.innerHTML="";t.body.removeChild(r).style.display=
+"none"});a=function(r){var A=t.createElement("div");r="on"+r;var C=r in A;if(!C){A.setAttribute(r,"return;");C=typeof A[r]==="function"}return C};c.support.submitBubbles=a("submit");c.support.changeBubbles=a("change");a=b=d=f=h=null}})();var ra={},Ja=/^(?:\{.*\}|\[.*\])$/;c.extend({cache:{},uuid:0,expando:"jQuery"+c.now(),noData:{embed:true,object:"clsid:D27CDB6E-AE6D-11cf-96B8-444553540000",applet:true},data:function(a,b,d){if(c.acceptData(a)){a=a==E?ra:a;var e=a.nodeType,f=e?a[c.expando]:null,h=
+c.cache;if(!(e&&!f&&typeof b==="string"&&d===B)){if(e)f||(a[c.expando]=f=++c.uuid);else h=a;if(typeof b==="object")if(e)h[f]=c.extend(h[f],b);else c.extend(h,b);else if(e&&!h[f])h[f]={};a=e?h[f]:h;if(d!==B)a[b]=d;return typeof b==="string"?a[b]:a}}},removeData:function(a,b){if(c.acceptData(a)){a=a==E?ra:a;var d=a.nodeType,e=d?a[c.expando]:a,f=c.cache,h=d?f[e]:e;if(b){if(h){delete h[b];d&&c.isEmptyObject(h)&&c.removeData(a)}}else if(d&&c.support.deleteExpando)delete a[c.expando];else if(a.removeAttribute)a.removeAttribute(c.expando);
+else if(d)delete f[e];else for(var l in a)delete a[l]}},acceptData:function(a){if(a.nodeName){var b=c.noData[a.nodeName.toLowerCase()];if(b)return!(b===true||a.getAttribute("classid")!==b)}return true}});c.fn.extend({data:function(a,b){var d=null;if(typeof a==="undefined"){if(this.length){var e=this[0].attributes,f;d=c.data(this[0]);for(var h=0,l=e.length;h<l;h++){f=e[h].name;if(f.indexOf("data-")===0){f=f.substr(5);ka(this[0],f,d[f])}}}return d}else if(typeof a==="object")return this.each(function(){c.data(this,
+a)});var k=a.split(".");k[1]=k[1]?"."+k[1]:"";if(b===B){d=this.triggerHandler("getData"+k[1]+"!",[k[0]]);if(d===B&&this.length){d=c.data(this[0],a);d=ka(this[0],a,d)}return d===B&&k[1]?this.data(k[0]):d}else return this.each(function(){var o=c(this),x=[k[0],b];o.triggerHandler("setData"+k[1]+"!",x);c.data(this,a,b);o.triggerHandler("changeData"+k[1]+"!",x)})},removeData:function(a){return this.each(function(){c.removeData(this,a)})}});c.extend({queue:function(a,b,d){if(a){b=(b||"fx")+"queue";var e=
+c.data(a,b);if(!d)return e||[];if(!e||c.isArray(d))e=c.data(a,b,c.makeArray(d));else e.push(d);return e}},dequeue:function(a,b){b=b||"fx";var d=c.queue(a,b),e=d.shift();if(e==="inprogress")e=d.shift();if(e){b==="fx"&&d.unshift("inprogress");e.call(a,function(){c.dequeue(a,b)})}}});c.fn.extend({queue:function(a,b){if(typeof a!=="string"){b=a;a="fx"}if(b===B)return c.queue(this[0],a);return this.each(function(){var d=c.queue(this,a,b);a==="fx"&&d[0]!=="inprogress"&&c.dequeue(this,a)})},dequeue:function(a){return this.each(function(){c.dequeue(this,
+a)})},delay:function(a,b){a=c.fx?c.fx.speeds[a]||a:a;b=b||"fx";return this.queue(b,function(){var d=this;setTimeout(function(){c.dequeue(d,b)},a)})},clearQueue:function(a){return this.queue(a||"fx",[])}});var sa=/[\n\t]/g,ha=/\s+/,Sa=/\r/g,Ta=/^(?:href|src|style)$/,Ua=/^(?:button|input)$/i,Va=/^(?:button|input|object|select|textarea)$/i,Wa=/^a(?:rea)?$/i,ta=/^(?:radio|checkbox)$/i;c.props={"for":"htmlFor","class":"className",readonly:"readOnly",maxlength:"maxLength",cellspacing:"cellSpacing",rowspan:"rowSpan",
+colspan:"colSpan",tabindex:"tabIndex",usemap:"useMap",frameborder:"frameBorder"};c.fn.extend({attr:function(a,b){return c.access(this,a,b,true,c.attr)},removeAttr:function(a){return this.each(function(){c.attr(this,a,"");this.nodeType===1&&this.removeAttribute(a)})},addClass:function(a){if(c.isFunction(a))return this.each(function(x){var r=c(this);r.addClass(a.call(this,x,r.attr("class")))});if(a&&typeof a==="string")for(var b=(a||"").split(ha),d=0,e=this.length;d<e;d++){var f=this[d];if(f.nodeType===
+1)if(f.className){for(var h=" "+f.className+" ",l=f.className,k=0,o=b.length;k<o;k++)if(h.indexOf(" "+b[k]+" ")<0)l+=" "+b[k];f.className=c.trim(l)}else f.className=a}return this},removeClass:function(a){if(c.isFunction(a))return this.each(function(o){var x=c(this);x.removeClass(a.call(this,o,x.attr("class")))});if(a&&typeof a==="string"||a===B)for(var b=(a||"").split(ha),d=0,e=this.length;d<e;d++){var f=this[d];if(f.nodeType===1&&f.className)if(a){for(var h=(" "+f.className+" ").replace(sa," "),
+l=0,k=b.length;l<k;l++)h=h.replace(" "+b[l]+" "," ");f.className=c.trim(h)}else f.className=""}return this},toggleClass:function(a,b){var d=typeof a,e=typeof b==="boolean";if(c.isFunction(a))return this.each(function(f){var h=c(this);h.toggleClass(a.call(this,f,h.attr("class"),b),b)});return this.each(function(){if(d==="string")for(var f,h=0,l=c(this),k=b,o=a.split(ha);f=o[h++];){k=e?k:!l.hasClass(f);l[k?"addClass":"removeClass"](f)}else if(d==="undefined"||d==="boolean"){this.className&&c.data(this,
+"__className__",this.className);this.className=this.className||a===false?"":c.data(this,"__className__")||""}})},hasClass:function(a){a=" "+a+" ";for(var b=0,d=this.length;b<d;b++)if((" "+this[b].className+" ").replace(sa," ").indexOf(a)>-1)return true;return false},val:function(a){if(!arguments.length){var b=this[0];if(b){if(c.nodeName(b,"option")){var d=b.attributes.value;return!d||d.specified?b.value:b.text}if(c.nodeName(b,"select")){var e=b.selectedIndex;d=[];var f=b.options;b=b.type==="select-one";
+if(e<0)return null;var h=b?e:0;for(e=b?e+1:f.length;h<e;h++){var l=f[h];if(l.selected&&(c.support.optDisabled?!l.disabled:l.getAttribute("disabled")===null)&&(!l.parentNode.disabled||!c.nodeName(l.parentNode,"optgroup"))){a=c(l).val();if(b)return a;d.push(a)}}return d}if(ta.test(b.type)&&!c.support.checkOn)return b.getAttribute("value")===null?"on":b.value;return(b.value||"").replace(Sa,"")}return B}var k=c.isFunction(a);return this.each(function(o){var x=c(this),r=a;if(this.nodeType===1){if(k)r=
+a.call(this,o,x.val());if(r==null)r="";else if(typeof r==="number")r+="";else if(c.isArray(r))r=c.map(r,function(C){return C==null?"":C+""});if(c.isArray(r)&&ta.test(this.type))this.checked=c.inArray(x.val(),r)>=0;else if(c.nodeName(this,"select")){var A=c.makeArray(r);c("option",this).each(function(){this.selected=c.inArray(c(this).val(),A)>=0});if(!A.length)this.selectedIndex=-1}else this.value=r}})}});c.extend({attrFn:{val:true,css:true,html:true,text:true,data:true,width:true,height:true,offset:true},
+attr:function(a,b,d,e){if(!a||a.nodeType===3||a.nodeType===8)return B;if(e&&b in c.attrFn)return c(a)[b](d);e=a.nodeType!==1||!c.isXMLDoc(a);var f=d!==B;b=e&&c.props[b]||b;var h=Ta.test(b);if((b in a||a[b]!==B)&&e&&!h){if(f){b==="type"&&Ua.test(a.nodeName)&&a.parentNode&&c.error("type property can't be changed");if(d===null)a.nodeType===1&&a.removeAttribute(b);else a[b]=d}if(c.nodeName(a,"form")&&a.getAttributeNode(b))return a.getAttributeNode(b).nodeValue;if(b==="tabIndex")return(b=a.getAttributeNode("tabIndex"))&&
+b.specified?b.value:Va.test(a.nodeName)||Wa.test(a.nodeName)&&a.href?0:B;return a[b]}if(!c.support.style&&e&&b==="style"){if(f)a.style.cssText=""+d;return a.style.cssText}f&&a.setAttribute(b,""+d);if(!a.attributes[b]&&a.hasAttribute&&!a.hasAttribute(b))return B;a=!c.support.hrefNormalized&&e&&h?a.getAttribute(b,2):a.getAttribute(b);return a===null?B:a}});var X=/\.(.*)$/,ia=/^(?:textarea|input|select)$/i,La=/\./g,Ma=/ /g,Xa=/[^\w\s.|`]/g,Ya=function(a){return a.replace(Xa,"\\$&")},ua={focusin:0,focusout:0};
+c.event={add:function(a,b,d,e){if(!(a.nodeType===3||a.nodeType===8)){if(c.isWindow(a)&&a!==E&&!a.frameElement)a=E;if(d===false)d=U;else if(!d)return;var f,h;if(d.handler){f=d;d=f.handler}if(!d.guid)d.guid=c.guid++;if(h=c.data(a)){var l=a.nodeType?"events":"__events__",k=h[l],o=h.handle;if(typeof k==="function"){o=k.handle;k=k.events}else if(!k){a.nodeType||(h[l]=h=function(){});h.events=k={}}if(!o)h.handle=o=function(){return typeof c!=="undefined"&&!c.event.triggered?c.event.handle.apply(o.elem,
+arguments):B};o.elem=a;b=b.split(" ");for(var x=0,r;l=b[x++];){h=f?c.extend({},f):{handler:d,data:e};if(l.indexOf(".")>-1){r=l.split(".");l=r.shift();h.namespace=r.slice(0).sort().join(".")}else{r=[];h.namespace=""}h.type=l;if(!h.guid)h.guid=d.guid;var A=k[l],C=c.event.special[l]||{};if(!A){A=k[l]=[];if(!C.setup||C.setup.call(a,e,r,o)===false)if(a.addEventListener)a.addEventListener(l,o,false);else a.attachEvent&&a.attachEvent("on"+l,o)}if(C.add){C.add.call(a,h);if(!h.handler.guid)h.handler.guid=
+d.guid}A.push(h);c.event.global[l]=true}a=null}}},global:{},remove:function(a,b,d,e){if(!(a.nodeType===3||a.nodeType===8)){if(d===false)d=U;var f,h,l=0,k,o,x,r,A,C,J=a.nodeType?"events":"__events__",w=c.data(a),I=w&&w[J];if(w&&I){if(typeof I==="function"){w=I;I=I.events}if(b&&b.type){d=b.handler;b=b.type}if(!b||typeof b==="string"&&b.charAt(0)==="."){b=b||"";for(f in I)c.event.remove(a,f+b)}else{for(b=b.split(" ");f=b[l++];){r=f;k=f.indexOf(".")<0;o=[];if(!k){o=f.split(".");f=o.shift();x=RegExp("(^|\\.)"+
+c.map(o.slice(0).sort(),Ya).join("\\.(?:.*\\.)?")+"(\\.|$)")}if(A=I[f])if(d){r=c.event.special[f]||{};for(h=e||0;h<A.length;h++){C=A[h];if(d.guid===C.guid){if(k||x.test(C.namespace)){e==null&&A.splice(h--,1);r.remove&&r.remove.call(a,C)}if(e!=null)break}}if(A.length===0||e!=null&&A.length===1){if(!r.teardown||r.teardown.call(a,o)===false)c.removeEvent(a,f,w.handle);delete I[f]}}else for(h=0;h<A.length;h++){C=A[h];if(k||x.test(C.namespace)){c.event.remove(a,r,C.handler,h);A.splice(h--,1)}}}if(c.isEmptyObject(I)){if(b=
+w.handle)b.elem=null;delete w.events;delete w.handle;if(typeof w==="function")c.removeData(a,J);else c.isEmptyObject(w)&&c.removeData(a)}}}}},trigger:function(a,b,d,e){var f=a.type||a;if(!e){a=typeof a==="object"?a[c.expando]?a:c.extend(c.Event(f),a):c.Event(f);if(f.indexOf("!")>=0){a.type=f=f.slice(0,-1);a.exclusive=true}if(!d){a.stopPropagation();c.event.global[f]&&c.each(c.cache,function(){this.events&&this.events[f]&&c.event.trigger(a,b,this.handle.elem)})}if(!d||d.nodeType===3||d.nodeType===
+8)return B;a.result=B;a.target=d;b=c.makeArray(b);b.unshift(a)}a.currentTarget=d;(e=d.nodeType?c.data(d,"handle"):(c.data(d,"__events__")||{}).handle)&&e.apply(d,b);e=d.parentNode||d.ownerDocument;try{if(!(d&&d.nodeName&&c.noData[d.nodeName.toLowerCase()]))if(d["on"+f]&&d["on"+f].apply(d,b)===false){a.result=false;a.preventDefault()}}catch(h){}if(!a.isPropagationStopped()&&e)c.event.trigger(a,b,e,true);else if(!a.isDefaultPrevented()){var l;e=a.target;var k=f.replace(X,""),o=c.nodeName(e,"a")&&k===
+"click",x=c.event.special[k]||{};if((!x._default||x._default.call(d,a)===false)&&!o&&!(e&&e.nodeName&&c.noData[e.nodeName.toLowerCase()])){try{if(e[k]){if(l=e["on"+k])e["on"+k]=null;c.event.triggered=true;e[k]()}}catch(r){}if(l)e["on"+k]=l;c.event.triggered=false}}},handle:function(a){var b,d,e,f;d=[];var h=c.makeArray(arguments);a=h[0]=c.event.fix(a||E.event);a.currentTarget=this;b=a.type.indexOf(".")<0&&!a.exclusive;if(!b){e=a.type.split(".");a.type=e.shift();d=e.slice(0).sort();e=RegExp("(^|\\.)"+
+d.join("\\.(?:.*\\.)?")+"(\\.|$)")}a.namespace=a.namespace||d.join(".");f=c.data(this,this.nodeType?"events":"__events__");if(typeof f==="function")f=f.events;d=(f||{})[a.type];if(f&&d){d=d.slice(0);f=0;for(var l=d.length;f<l;f++){var k=d[f];if(b||e.test(k.namespace)){a.handler=k.handler;a.data=k.data;a.handleObj=k;k=k.handler.apply(this,h);if(k!==B){a.result=k;if(k===false){a.preventDefault();a.stopPropagation()}}if(a.isImmediatePropagationStopped())break}}}return a.result},props:"altKey attrChange attrName bubbles button cancelable charCode clientX clientY ctrlKey currentTarget data detail eventPhase fromElement handler keyCode layerX layerY metaKey newValue offsetX offsetY pageX pageY prevValue relatedNode relatedTarget screenX screenY shiftKey srcElement target toElement view wheelDelta which".split(" "),
+fix:function(a){if(a[c.expando])return a;var b=a;a=c.Event(b);for(var d=this.props.length,e;d;){e=this.props[--d];a[e]=b[e]}if(!a.target)a.target=a.srcElement||t;if(a.target.nodeType===3)a.target=a.target.parentNode;if(!a.relatedTarget&&a.fromElement)a.relatedTarget=a.fromElement===a.target?a.toElement:a.fromElement;if(a.pageX==null&&a.clientX!=null){b=t.documentElement;d=t.body;a.pageX=a.clientX+(b&&b.scrollLeft||d&&d.scrollLeft||0)-(b&&b.clientLeft||d&&d.clientLeft||0);a.pageY=a.clientY+(b&&b.scrollTop||
+d&&d.scrollTop||0)-(b&&b.clientTop||d&&d.clientTop||0)}if(a.which==null&&(a.charCode!=null||a.keyCode!=null))a.which=a.charCode!=null?a.charCode:a.keyCode;if(!a.metaKey&&a.ctrlKey)a.metaKey=a.ctrlKey;if(!a.which&&a.button!==B)a.which=a.button&1?1:a.button&2?3:a.button&4?2:0;return a},guid:1E8,proxy:c.proxy,special:{ready:{setup:c.bindReady,teardown:c.noop},live:{add:function(a){c.event.add(this,Y(a.origType,a.selector),c.extend({},a,{handler:Ka,guid:a.handler.guid}))},remove:function(a){c.event.remove(this,
+Y(a.origType,a.selector),a)}},beforeunload:{setup:function(a,b,d){if(c.isWindow(this))this.onbeforeunload=d},teardown:function(a,b){if(this.onbeforeunload===b)this.onbeforeunload=null}}}};c.removeEvent=t.removeEventListener?function(a,b,d){a.removeEventListener&&a.removeEventListener(b,d,false)}:function(a,b,d){a.detachEvent&&a.detachEvent("on"+b,d)};c.Event=function(a){if(!this.preventDefault)return new c.Event(a);if(a&&a.type){this.originalEvent=a;this.type=a.type}else this.type=a;this.timeStamp=
+c.now();this[c.expando]=true};c.Event.prototype={preventDefault:function(){this.isDefaultPrevented=ca;var a=this.originalEvent;if(a)if(a.preventDefault)a.preventDefault();else a.returnValue=false},stopPropagation:function(){this.isPropagationStopped=ca;var a=this.originalEvent;if(a){a.stopPropagation&&a.stopPropagation();a.cancelBubble=true}},stopImmediatePropagation:function(){this.isImmediatePropagationStopped=ca;this.stopPropagation()},isDefaultPrevented:U,isPropagationStopped:U,isImmediatePropagationStopped:U};
+var va=function(a){var b=a.relatedTarget;try{for(;b&&b!==this;)b=b.parentNode;if(b!==this){a.type=a.data;c.event.handle.apply(this,arguments)}}catch(d){}},wa=function(a){a.type=a.data;c.event.handle.apply(this,arguments)};c.each({mouseenter:"mouseover",mouseleave:"mouseout"},function(a,b){c.event.special[a]={setup:function(d){c.event.add(this,b,d&&d.selector?wa:va,a)},teardown:function(d){c.event.remove(this,b,d&&d.selector?wa:va)}}});if(!c.support.submitBubbles)c.event.special.submit={setup:function(){if(this.nodeName.toLowerCase()!==
+"form"){c.event.add(this,"click.specialSubmit",function(a){var b=a.target,d=b.type;if((d==="submit"||d==="image")&&c(b).closest("form").length){a.liveFired=B;return la("submit",this,arguments)}});c.event.add(this,"keypress.specialSubmit",function(a){var b=a.target,d=b.type;if((d==="text"||d==="password")&&c(b).closest("form").length&&a.keyCode===13){a.liveFired=B;return la("submit",this,arguments)}})}else return false},teardown:function(){c.event.remove(this,".specialSubmit")}};if(!c.support.changeBubbles){var V,
+xa=function(a){var b=a.type,d=a.value;if(b==="radio"||b==="checkbox")d=a.checked;else if(b==="select-multiple")d=a.selectedIndex>-1?c.map(a.options,function(e){return e.selected}).join("-"):"";else if(a.nodeName.toLowerCase()==="select")d=a.selectedIndex;return d},Z=function(a,b){var d=a.target,e,f;if(!(!ia.test(d.nodeName)||d.readOnly)){e=c.data(d,"_change_data");f=xa(d);if(a.type!=="focusout"||d.type!=="radio")c.data(d,"_change_data",f);if(!(e===B||f===e))if(e!=null||f){a.type="change";a.liveFired=
+B;return c.event.trigger(a,b,d)}}};c.event.special.change={filters:{focusout:Z,beforedeactivate:Z,click:function(a){var b=a.target,d=b.type;if(d==="radio"||d==="checkbox"||b.nodeName.toLowerCase()==="select")return Z.call(this,a)},keydown:function(a){var b=a.target,d=b.type;if(a.keyCode===13&&b.nodeName.toLowerCase()!=="textarea"||a.keyCode===32&&(d==="checkbox"||d==="radio")||d==="select-multiple")return Z.call(this,a)},beforeactivate:function(a){a=a.target;c.data(a,"_change_data",xa(a))}},setup:function(){if(this.type===
+"file")return false;for(var a in V)c.event.add(this,a+".specialChange",V[a]);return ia.test(this.nodeName)},teardown:function(){c.event.remove(this,".specialChange");return ia.test(this.nodeName)}};V=c.event.special.change.filters;V.focus=V.beforeactivate}t.addEventListener&&c.each({focus:"focusin",blur:"focusout"},function(a,b){function d(e){e=c.event.fix(e);e.type=b;return c.event.trigger(e,null,e.target)}c.event.special[b]={setup:function(){ua[b]++===0&&t.addEventListener(a,d,true)},teardown:function(){--ua[b]===
+0&&t.removeEventListener(a,d,true)}}});c.each(["bind","one"],function(a,b){c.fn[b]=function(d,e,f){if(typeof d==="object"){for(var h in d)this[b](h,e,d[h],f);return this}if(c.isFunction(e)||e===false){f=e;e=B}var l=b==="one"?c.proxy(f,function(o){c(this).unbind(o,l);return f.apply(this,arguments)}):f;if(d==="unload"&&b!=="one")this.one(d,e,f);else{h=0;for(var k=this.length;h<k;h++)c.event.add(this[h],d,l,e)}return this}});c.fn.extend({unbind:function(a,b){if(typeof a==="object"&&!a.preventDefault)for(var d in a)this.unbind(d,
+a[d]);else{d=0;for(var e=this.length;d<e;d++)c.event.remove(this[d],a,b)}return this},delegate:function(a,b,d,e){return this.live(b,d,e,a)},undelegate:function(a,b,d){return arguments.length===0?this.unbind("live"):this.die(b,null,d,a)},trigger:function(a,b){return this.each(function(){c.event.trigger(a,b,this)})},triggerHandler:function(a,b){if(this[0]){var d=c.Event(a);d.preventDefault();d.stopPropagation();c.event.trigger(d,b,this[0]);return d.result}},toggle:function(a){for(var b=arguments,d=
+1;d<b.length;)c.proxy(a,b[d++]);return this.click(c.proxy(a,function(e){var f=(c.data(this,"lastToggle"+a.guid)||0)%d;c.data(this,"lastToggle"+a.guid,f+1);e.preventDefault();return b[f].apply(this,arguments)||false}))},hover:function(a,b){return this.mouseenter(a).mouseleave(b||a)}});var ya={focus:"focusin",blur:"focusout",mouseenter:"mouseover",mouseleave:"mouseout"};c.each(["live","die"],function(a,b){c.fn[b]=function(d,e,f,h){var l,k=0,o,x,r=h||this.selector;h=h?this:c(this.context);if(typeof d===
+"object"&&!d.preventDefault){for(l in d)h[b](l,e,d[l],r);return this}if(c.isFunction(e)){f=e;e=B}for(d=(d||"").split(" ");(l=d[k++])!=null;){o=X.exec(l);x="";if(o){x=o[0];l=l.replace(X,"")}if(l==="hover")d.push("mouseenter"+x,"mouseleave"+x);else{o=l;if(l==="focus"||l==="blur"){d.push(ya[l]+x);l+=x}else l=(ya[l]||l)+x;if(b==="live"){x=0;for(var A=h.length;x<A;x++)c.event.add(h[x],"live."+Y(l,r),{data:e,selector:r,handler:f,origType:l,origHandler:f,preType:o})}else h.unbind("live."+Y(l,r),f)}}return this}});
+c.each("blur focus focusin focusout load resize scroll unload click dblclick mousedown mouseup mousemove mouseover mouseout mouseenter mouseleave change select submit keydown keypress keyup error".split(" "),function(a,b){c.fn[b]=function(d,e){if(e==null){e=d;d=null}return arguments.length>0?this.bind(b,d,e):this.trigger(b)};if(c.attrFn)c.attrFn[b]=true});E.attachEvent&&!E.addEventListener&&c(E).bind("unload",function(){for(var a in c.cache)if(c.cache[a].handle)try{c.event.remove(c.cache[a].handle.elem)}catch(b){}});
+(function(){function a(g,i,n,m,p,q){p=0;for(var u=m.length;p<u;p++){var y=m[p];if(y){var F=false;for(y=y[g];y;){if(y.sizcache===n){F=m[y.sizset];break}if(y.nodeType===1&&!q){y.sizcache=n;y.sizset=p}if(y.nodeName.toLowerCase()===i){F=y;break}y=y[g]}m[p]=F}}}function b(g,i,n,m,p,q){p=0;for(var u=m.length;p<u;p++){var y=m[p];if(y){var F=false;for(y=y[g];y;){if(y.sizcache===n){F=m[y.sizset];break}if(y.nodeType===1){if(!q){y.sizcache=n;y.sizset=p}if(typeof i!=="string"){if(y===i){F=true;break}}else if(k.filter(i,
+[y]).length>0){F=y;break}}y=y[g]}m[p]=F}}}var d=/((?:\((?:\([^()]+\)|[^()]+)+\)|\[(?:\[[^\[\]]*\]|['"][^'"]*['"]|[^\[\]'"]+)+\]|\\.|[^ >+~,(\[\\]+)+|[>+~])(\s*,\s*)?((?:.|\r|\n)*)/g,e=0,f=Object.prototype.toString,h=false,l=true;[0,0].sort(function(){l=false;return 0});var k=function(g,i,n,m){n=n||[];var p=i=i||t;if(i.nodeType!==1&&i.nodeType!==9)return[];if(!g||typeof g!=="string")return n;var q,u,y,F,M,N=true,O=k.isXML(i),D=[],R=g;do{d.exec("");if(q=d.exec(R)){R=q[3];D.push(q[1]);if(q[2]){F=q[3];
+break}}}while(q);if(D.length>1&&x.exec(g))if(D.length===2&&o.relative[D[0]])u=L(D[0]+D[1],i);else for(u=o.relative[D[0]]?[i]:k(D.shift(),i);D.length;){g=D.shift();if(o.relative[g])g+=D.shift();u=L(g,u)}else{if(!m&&D.length>1&&i.nodeType===9&&!O&&o.match.ID.test(D[0])&&!o.match.ID.test(D[D.length-1])){q=k.find(D.shift(),i,O);i=q.expr?k.filter(q.expr,q.set)[0]:q.set[0]}if(i){q=m?{expr:D.pop(),set:C(m)}:k.find(D.pop(),D.length===1&&(D[0]==="~"||D[0]==="+")&&i.parentNode?i.parentNode:i,O);u=q.expr?k.filter(q.expr,
+q.set):q.set;if(D.length>0)y=C(u);else N=false;for(;D.length;){q=M=D.pop();if(o.relative[M])q=D.pop();else M="";if(q==null)q=i;o.relative[M](y,q,O)}}else y=[]}y||(y=u);y||k.error(M||g);if(f.call(y)==="[object Array]")if(N)if(i&&i.nodeType===1)for(g=0;y[g]!=null;g++){if(y[g]&&(y[g]===true||y[g].nodeType===1&&k.contains(i,y[g])))n.push(u[g])}else for(g=0;y[g]!=null;g++)y[g]&&y[g].nodeType===1&&n.push(u[g]);else n.push.apply(n,y);else C(y,n);if(F){k(F,p,n,m);k.uniqueSort(n)}return n};k.uniqueSort=function(g){if(w){h=
+l;g.sort(w);if(h)for(var i=1;i<g.length;i++)g[i]===g[i-1]&&g.splice(i--,1)}return g};k.matches=function(g,i){return k(g,null,null,i)};k.matchesSelector=function(g,i){return k(i,null,null,[g]).length>0};k.find=function(g,i,n){var m;if(!g)return[];for(var p=0,q=o.order.length;p<q;p++){var u,y=o.order[p];if(u=o.leftMatch[y].exec(g)){var F=u[1];u.splice(1,1);if(F.substr(F.length-1)!=="\\"){u[1]=(u[1]||"").replace(/\\/g,"");m=o.find[y](u,i,n);if(m!=null){g=g.replace(o.match[y],"");break}}}}m||(m=i.getElementsByTagName("*"));
+return{set:m,expr:g}};k.filter=function(g,i,n,m){for(var p,q,u=g,y=[],F=i,M=i&&i[0]&&k.isXML(i[0]);g&&i.length;){for(var N in o.filter)if((p=o.leftMatch[N].exec(g))!=null&&p[2]){var O,D,R=o.filter[N];D=p[1];q=false;p.splice(1,1);if(D.substr(D.length-1)!=="\\"){if(F===y)y=[];if(o.preFilter[N])if(p=o.preFilter[N](p,F,n,y,m,M)){if(p===true)continue}else q=O=true;if(p)for(var j=0;(D=F[j])!=null;j++)if(D){O=R(D,p,j,F);var s=m^!!O;if(n&&O!=null)if(s)q=true;else F[j]=false;else if(s){y.push(D);q=true}}if(O!==
+B){n||(F=y);g=g.replace(o.match[N],"");if(!q)return[];break}}}if(g===u)if(q==null)k.error(g);else break;u=g}return F};k.error=function(g){throw"Syntax error, unrecognized expression: "+g;};var o=k.selectors={order:["ID","NAME","TAG"],match:{ID:/#((?:[\w\u00c0-\uFFFF\-]|\\.)+)/,CLASS:/\.((?:[\w\u00c0-\uFFFF\-]|\\.)+)/,NAME:/\[name=['"]*((?:[\w\u00c0-\uFFFF\-]|\\.)+)['"]*\]/,ATTR:/\[\s*((?:[\w\u00c0-\uFFFF\-]|\\.)+)\s*(?:(\S?=)\s*(['"]*)(.*?)\3|)\s*\]/,TAG:/^((?:[\w\u00c0-\uFFFF\*\-]|\\.)+)/,CHILD:/:(only|nth|last|first)-child(?:\((even|odd|[\dn+\-]*)\))?/,
+POS:/:(nth|eq|gt|lt|first|last|even|odd)(?:\((\d*)\))?(?=[^\-]|$)/,PSEUDO:/:((?:[\w\u00c0-\uFFFF\-]|\\.)+)(?:\((['"]?)((?:\([^\)]+\)|[^\(\)]*)+)\2\))?/},leftMatch:{},attrMap:{"class":"className","for":"htmlFor"},attrHandle:{href:function(g){return g.getAttribute("href")}},relative:{"+":function(g,i){var n=typeof i==="string",m=n&&!/\W/.test(i);n=n&&!m;if(m)i=i.toLowerCase();m=0;for(var p=g.length,q;m<p;m++)if(q=g[m]){for(;(q=q.previousSibling)&&q.nodeType!==1;);g[m]=n||q&&q.nodeName.toLowerCase()===
+i?q||false:q===i}n&&k.filter(i,g,true)},">":function(g,i){var n,m=typeof i==="string",p=0,q=g.length;if(m&&!/\W/.test(i))for(i=i.toLowerCase();p<q;p++){if(n=g[p]){n=n.parentNode;g[p]=n.nodeName.toLowerCase()===i?n:false}}else{for(;p<q;p++)if(n=g[p])g[p]=m?n.parentNode:n.parentNode===i;m&&k.filter(i,g,true)}},"":function(g,i,n){var m,p=e++,q=b;if(typeof i==="string"&&!/\W/.test(i)){m=i=i.toLowerCase();q=a}q("parentNode",i,p,g,m,n)},"~":function(g,i,n){var m,p=e++,q=b;if(typeof i==="string"&&!/\W/.test(i)){m=
+i=i.toLowerCase();q=a}q("previousSibling",i,p,g,m,n)}},find:{ID:function(g,i,n){if(typeof i.getElementById!=="undefined"&&!n)return(g=i.getElementById(g[1]))&&g.parentNode?[g]:[]},NAME:function(g,i){if(typeof i.getElementsByName!=="undefined"){for(var n=[],m=i.getElementsByName(g[1]),p=0,q=m.length;p<q;p++)m[p].getAttribute("name")===g[1]&&n.push(m[p]);return n.length===0?null:n}},TAG:function(g,i){return i.getElementsByTagName(g[1])}},preFilter:{CLASS:function(g,i,n,m,p,q){g=" "+g[1].replace(/\\/g,
+"")+" ";if(q)return g;q=0;for(var u;(u=i[q])!=null;q++)if(u)if(p^(u.className&&(" "+u.className+" ").replace(/[\t\n]/g," ").indexOf(g)>=0))n||m.push(u);else if(n)i[q]=false;return false},ID:function(g){return g[1].replace(/\\/g,"")},TAG:function(g){return g[1].toLowerCase()},CHILD:function(g){if(g[1]==="nth"){var i=/(-?)(\d*)n((?:\+|-)?\d*)/.exec(g[2]==="even"&&"2n"||g[2]==="odd"&&"2n+1"||!/\D/.test(g[2])&&"0n+"+g[2]||g[2]);g[2]=i[1]+(i[2]||1)-0;g[3]=i[3]-0}g[0]=e++;return g},ATTR:function(g,i,n,
+m,p,q){i=g[1].replace(/\\/g,"");if(!q&&o.attrMap[i])g[1]=o.attrMap[i];if(g[2]==="~=")g[4]=" "+g[4]+" ";return g},PSEUDO:function(g,i,n,m,p){if(g[1]==="not")if((d.exec(g[3])||"").length>1||/^\w/.test(g[3]))g[3]=k(g[3],null,null,i);else{g=k.filter(g[3],i,n,true^p);n||m.push.apply(m,g);return false}else if(o.match.POS.test(g[0])||o.match.CHILD.test(g[0]))return true;return g},POS:function(g){g.unshift(true);return g}},filters:{enabled:function(g){return g.disabled===false&&g.type!=="hidden"},disabled:function(g){return g.disabled===
+true},checked:function(g){return g.checked===true},selected:function(g){return g.selected===true},parent:function(g){return!!g.firstChild},empty:function(g){return!g.firstChild},has:function(g,i,n){return!!k(n[3],g).length},header:function(g){return/h\d/i.test(g.nodeName)},text:function(g){return"text"===g.type},radio:function(g){return"radio"===g.type},checkbox:function(g){return"checkbox"===g.type},file:function(g){return"file"===g.type},password:function(g){return"password"===g.type},submit:function(g){return"submit"===
+g.type},image:function(g){return"image"===g.type},reset:function(g){return"reset"===g.type},button:function(g){return"button"===g.type||g.nodeName.toLowerCase()==="button"},input:function(g){return/input|select|textarea|button/i.test(g.nodeName)}},setFilters:{first:function(g,i){return i===0},last:function(g,i,n,m){return i===m.length-1},even:function(g,i){return i%2===0},odd:function(g,i){return i%2===1},lt:function(g,i,n){return i<n[3]-0},gt:function(g,i,n){return i>n[3]-0},nth:function(g,i,n){return n[3]-
+0===i},eq:function(g,i,n){return n[3]-0===i}},filter:{PSEUDO:function(g,i,n,m){var p=i[1],q=o.filters[p];if(q)return q(g,n,i,m);else if(p==="contains")return(g.textContent||g.innerText||k.getText([g])||"").indexOf(i[3])>=0;else if(p==="not"){i=i[3];n=0;for(m=i.length;n<m;n++)if(i[n]===g)return false;return true}else k.error("Syntax error, unrecognized expression: "+p)},CHILD:function(g,i){var n=i[1],m=g;switch(n){case "only":case "first":for(;m=m.previousSibling;)if(m.nodeType===1)return false;if(n===
+"first")return true;m=g;case "last":for(;m=m.nextSibling;)if(m.nodeType===1)return false;return true;case "nth":n=i[2];var p=i[3];if(n===1&&p===0)return true;var q=i[0],u=g.parentNode;if(u&&(u.sizcache!==q||!g.nodeIndex)){var y=0;for(m=u.firstChild;m;m=m.nextSibling)if(m.nodeType===1)m.nodeIndex=++y;u.sizcache=q}m=g.nodeIndex-p;return n===0?m===0:m%n===0&&m/n>=0}},ID:function(g,i){return g.nodeType===1&&g.getAttribute("id")===i},TAG:function(g,i){return i==="*"&&g.nodeType===1||g.nodeName.toLowerCase()===
+i},CLASS:function(g,i){return(" "+(g.className||g.getAttribute("class"))+" ").indexOf(i)>-1},ATTR:function(g,i){var n=i[1];n=o.attrHandle[n]?o.attrHandle[n](g):g[n]!=null?g[n]:g.getAttribute(n);var m=n+"",p=i[2],q=i[4];return n==null?p==="!=":p==="="?m===q:p==="*="?m.indexOf(q)>=0:p==="~="?(" "+m+" ").indexOf(q)>=0:!q?m&&n!==false:p==="!="?m!==q:p==="^="?m.indexOf(q)===0:p==="$="?m.substr(m.length-q.length)===q:p==="|="?m===q||m.substr(0,q.length+1)===q+"-":false},POS:function(g,i,n,m){var p=o.setFilters[i[2]];
+if(p)return p(g,n,i,m)}}},x=o.match.POS,r=function(g,i){return"\\"+(i-0+1)},A;for(A in o.match){o.match[A]=RegExp(o.match[A].source+/(?![^\[]*\])(?![^\(]*\))/.source);o.leftMatch[A]=RegExp(/(^(?:.|\r|\n)*?)/.source+o.match[A].source.replace(/\\(\d+)/g,r))}var C=function(g,i){g=Array.prototype.slice.call(g,0);if(i){i.push.apply(i,g);return i}return g};try{Array.prototype.slice.call(t.documentElement.childNodes,0)}catch(J){C=function(g,i){var n=0,m=i||[];if(f.call(g)==="[object Array]")Array.prototype.push.apply(m,
+g);else if(typeof g.length==="number")for(var p=g.length;n<p;n++)m.push(g[n]);else for(;g[n];n++)m.push(g[n]);return m}}var w,I;if(t.documentElement.compareDocumentPosition)w=function(g,i){if(g===i){h=true;return 0}if(!g.compareDocumentPosition||!i.compareDocumentPosition)return g.compareDocumentPosition?-1:1;return g.compareDocumentPosition(i)&4?-1:1};else{w=function(g,i){var n,m,p=[],q=[];n=g.parentNode;m=i.parentNode;var u=n;if(g===i){h=true;return 0}else if(n===m)return I(g,i);else if(n){if(!m)return 1}else return-1;
+for(;u;){p.unshift(u);u=u.parentNode}for(u=m;u;){q.unshift(u);u=u.parentNode}n=p.length;m=q.length;for(u=0;u<n&&u<m;u++)if(p[u]!==q[u])return I(p[u],q[u]);return u===n?I(g,q[u],-1):I(p[u],i,1)};I=function(g,i,n){if(g===i)return n;for(g=g.nextSibling;g;){if(g===i)return-1;g=g.nextSibling}return 1}}k.getText=function(g){for(var i="",n,m=0;g[m];m++){n=g[m];if(n.nodeType===3||n.nodeType===4)i+=n.nodeValue;else if(n.nodeType!==8)i+=k.getText(n.childNodes)}return i};(function(){var g=t.createElement("div"),
+i="script"+(new Date).getTime(),n=t.documentElement;g.innerHTML="<a name='"+i+"'/>";n.insertBefore(g,n.firstChild);if(t.getElementById(i)){o.find.ID=function(m,p,q){if(typeof p.getElementById!=="undefined"&&!q)return(p=p.getElementById(m[1]))?p.id===m[1]||typeof p.getAttributeNode!=="undefined"&&p.getAttributeNode("id").nodeValue===m[1]?[p]:B:[]};o.filter.ID=function(m,p){var q=typeof m.getAttributeNode!=="undefined"&&m.getAttributeNode("id");return m.nodeType===1&&q&&q.nodeValue===p}}n.removeChild(g);
+n=g=null})();(function(){var g=t.createElement("div");g.appendChild(t.createComment(""));if(g.getElementsByTagName("*").length>0)o.find.TAG=function(i,n){var m=n.getElementsByTagName(i[1]);if(i[1]==="*"){for(var p=[],q=0;m[q];q++)m[q].nodeType===1&&p.push(m[q]);m=p}return m};g.innerHTML="<a href='#'></a>";if(g.firstChild&&typeof g.firstChild.getAttribute!=="undefined"&&g.firstChild.getAttribute("href")!=="#")o.attrHandle.href=function(i){return i.getAttribute("href",2)};g=null})();t.querySelectorAll&&
+function(){var g=k,i=t.createElement("div");i.innerHTML="<p class='TEST'></p>";if(!(i.querySelectorAll&&i.querySelectorAll(".TEST").length===0)){k=function(m,p,q,u){p=p||t;m=m.replace(/\=\s*([^'"\]]*)\s*\]/g,"='$1']");if(!u&&!k.isXML(p))if(p.nodeType===9)try{return C(p.querySelectorAll(m),q)}catch(y){}else if(p.nodeType===1&&p.nodeName.toLowerCase()!=="object"){var F=p.getAttribute("id"),M=F||"__sizzle__";F||p.setAttribute("id",M);try{return C(p.querySelectorAll("#"+M+" "+m),q)}catch(N){}finally{F||
+p.removeAttribute("id")}}return g(m,p,q,u)};for(var n in g)k[n]=g[n];i=null}}();(function(){var g=t.documentElement,i=g.matchesSelector||g.mozMatchesSelector||g.webkitMatchesSelector||g.msMatchesSelector,n=false;try{i.call(t.documentElement,"[test!='']:sizzle")}catch(m){n=true}if(i)k.matchesSelector=function(p,q){q=q.replace(/\=\s*([^'"\]]*)\s*\]/g,"='$1']");if(!k.isXML(p))try{if(n||!o.match.PSEUDO.test(q)&&!/!=/.test(q))return i.call(p,q)}catch(u){}return k(q,null,null,[p]).length>0}})();(function(){var g=
+t.createElement("div");g.innerHTML="<div class='test e'></div><div class='test'></div>";if(!(!g.getElementsByClassName||g.getElementsByClassName("e").length===0)){g.lastChild.className="e";if(g.getElementsByClassName("e").length!==1){o.order.splice(1,0,"CLASS");o.find.CLASS=function(i,n,m){if(typeof n.getElementsByClassName!=="undefined"&&!m)return n.getElementsByClassName(i[1])};g=null}}})();k.contains=t.documentElement.contains?function(g,i){return g!==i&&(g.contains?g.contains(i):true)}:t.documentElement.compareDocumentPosition?
+function(g,i){return!!(g.compareDocumentPosition(i)&16)}:function(){return false};k.isXML=function(g){return(g=(g?g.ownerDocument||g:0).documentElement)?g.nodeName!=="HTML":false};var L=function(g,i){for(var n,m=[],p="",q=i.nodeType?[i]:i;n=o.match.PSEUDO.exec(g);){p+=n[0];g=g.replace(o.match.PSEUDO,"")}g=o.relative[g]?g+"*":g;n=0;for(var u=q.length;n<u;n++)k(g,q[n],m);return k.filter(p,m)};c.find=k;c.expr=k.selectors;c.expr[":"]=c.expr.filters;c.unique=k.uniqueSort;c.text=k.getText;c.isXMLDoc=k.isXML;
+c.contains=k.contains})();var Za=/Until$/,$a=/^(?:parents|prevUntil|prevAll)/,ab=/,/,Na=/^.[^:#\[\.,]*$/,bb=Array.prototype.slice,cb=c.expr.match.POS;c.fn.extend({find:function(a){for(var b=this.pushStack("","find",a),d=0,e=0,f=this.length;e<f;e++){d=b.length;c.find(a,this[e],b);if(e>0)for(var h=d;h<b.length;h++)for(var l=0;l<d;l++)if(b[l]===b[h]){b.splice(h--,1);break}}return b},has:function(a){var b=c(a);return this.filter(function(){for(var d=0,e=b.length;d<e;d++)if(c.contains(this,b[d]))return true})},
+not:function(a){return this.pushStack(ma(this,a,false),"not",a)},filter:function(a){return this.pushStack(ma(this,a,true),"filter",a)},is:function(a){return!!a&&c.filter(a,this).length>0},closest:function(a,b){var d=[],e,f,h=this[0];if(c.isArray(a)){var l,k={},o=1;if(h&&a.length){e=0;for(f=a.length;e<f;e++){l=a[e];k[l]||(k[l]=c.expr.match.POS.test(l)?c(l,b||this.context):l)}for(;h&&h.ownerDocument&&h!==b;){for(l in k){e=k[l];if(e.jquery?e.index(h)>-1:c(h).is(e))d.push({selector:l,elem:h,level:o})}h=
+h.parentNode;o++}}return d}l=cb.test(a)?c(a,b||this.context):null;e=0;for(f=this.length;e<f;e++)for(h=this[e];h;)if(l?l.index(h)>-1:c.find.matchesSelector(h,a)){d.push(h);break}else{h=h.parentNode;if(!h||!h.ownerDocument||h===b)break}d=d.length>1?c.unique(d):d;return this.pushStack(d,"closest",a)},index:function(a){if(!a||typeof a==="string")return c.inArray(this[0],a?c(a):this.parent().children());return c.inArray(a.jquery?a[0]:a,this)},add:function(a,b){var d=typeof a==="string"?c(a,b||this.context):
+c.makeArray(a),e=c.merge(this.get(),d);return this.pushStack(!d[0]||!d[0].parentNode||d[0].parentNode.nodeType===11||!e[0]||!e[0].parentNode||e[0].parentNode.nodeType===11?e:c.unique(e))},andSelf:function(){return this.add(this.prevObject)}});c.each({parent:function(a){return(a=a.parentNode)&&a.nodeType!==11?a:null},parents:function(a){return c.dir(a,"parentNode")},parentsUntil:function(a,b,d){return c.dir(a,"parentNode",d)},next:function(a){return c.nth(a,2,"nextSibling")},prev:function(a){return c.nth(a,
+2,"previousSibling")},nextAll:function(a){return c.dir(a,"nextSibling")},prevAll:function(a){return c.dir(a,"previousSibling")},nextUntil:function(a,b,d){return c.dir(a,"nextSibling",d)},prevUntil:function(a,b,d){return c.dir(a,"previousSibling",d)},siblings:function(a){return c.sibling(a.parentNode.firstChild,a)},children:function(a){return c.sibling(a.firstChild)},contents:function(a){return c.nodeName(a,"iframe")?a.contentDocument||a.contentWindow.document:c.makeArray(a.childNodes)}},function(a,
+b){c.fn[a]=function(d,e){var f=c.map(this,b,d);Za.test(a)||(e=d);if(e&&typeof e==="string")f=c.filter(e,f);f=this.length>1?c.unique(f):f;if((this.length>1||ab.test(e))&&$a.test(a))f=f.reverse();return this.pushStack(f,a,bb.call(arguments).join(","))}});c.extend({filter:function(a,b,d){if(d)a=":not("+a+")";return b.length===1?c.find.matchesSelector(b[0],a)?[b[0]]:[]:c.find.matches(a,b)},dir:function(a,b,d){var e=[];for(a=a[b];a&&a.nodeType!==9&&(d===B||a.nodeType!==1||!c(a).is(d));){a.nodeType===1&&
+e.push(a);a=a[b]}return e},nth:function(a,b,d){b=b||1;for(var e=0;a;a=a[d])if(a.nodeType===1&&++e===b)break;return a},sibling:function(a,b){for(var d=[];a;a=a.nextSibling)a.nodeType===1&&a!==b&&d.push(a);return d}});var za=/ jQuery\d+="(?:\d+|null)"/g,$=/^\s+/,Aa=/<(?!area|br|col|embed|hr|img|input|link|meta|param)(([\w:]+)[^>]*)\/>/ig,Ba=/<([\w:]+)/,db=/<tbody/i,eb=/<|&#?\w+;/,Ca=/<(?:script|object|embed|option|style)/i,Da=/checked\s*(?:[^=]|=\s*.checked.)/i,fb=/\=([^="'>\s]+\/)>/g,P={option:[1,
+"<select multiple='multiple'>","</select>"],legend:[1,"<fieldset>","</fieldset>"],thead:[1,"<table>","</table>"],tr:[2,"<table><tbody>","</tbody></table>"],td:[3,"<table><tbody><tr>","</tr></tbody></table>"],col:[2,"<table><tbody></tbody><colgroup>","</colgroup></table>"],area:[1,"<map>","</map>"],_default:[0,"",""]};P.optgroup=P.option;P.tbody=P.tfoot=P.colgroup=P.caption=P.thead;P.th=P.td;if(!c.support.htmlSerialize)P._default=[1,"div<div>","</div>"];c.fn.extend({text:function(a){if(c.isFunction(a))return this.each(function(b){var d=
+c(this);d.text(a.call(this,b,d.text()))});if(typeof a!=="object"&&a!==B)return this.empty().append((this[0]&&this[0].ownerDocument||t).createTextNode(a));return c.text(this)},wrapAll:function(a){if(c.isFunction(a))return this.each(function(d){c(this).wrapAll(a.call(this,d))});if(this[0]){var b=c(a,this[0].ownerDocument).eq(0).clone(true);this[0].parentNode&&b.insertBefore(this[0]);b.map(function(){for(var d=this;d.firstChild&&d.firstChild.nodeType===1;)d=d.firstChild;return d}).append(this)}return this},
+wrapInner:function(a){if(c.isFunction(a))return this.each(function(b){c(this).wrapInner(a.call(this,b))});return this.each(function(){var b=c(this),d=b.contents();d.length?d.wrapAll(a):b.append(a)})},wrap:function(a){return this.each(function(){c(this).wrapAll(a)})},unwrap:function(){return this.parent().each(function(){c.nodeName(this,"body")||c(this).replaceWith(this.childNodes)}).end()},append:function(){return this.domManip(arguments,true,function(a){this.nodeType===1&&this.appendChild(a)})},
+prepend:function(){return this.domManip(arguments,true,function(a){this.nodeType===1&&this.insertBefore(a,this.firstChild)})},before:function(){if(this[0]&&this[0].parentNode)return this.domManip(arguments,false,function(b){this.parentNode.insertBefore(b,this)});else if(arguments.length){var a=c(arguments[0]);a.push.apply(a,this.toArray());return this.pushStack(a,"before",arguments)}},after:function(){if(this[0]&&this[0].parentNode)return this.domManip(arguments,false,function(b){this.parentNode.insertBefore(b,
+this.nextSibling)});else if(arguments.length){var a=this.pushStack(this,"after",arguments);a.push.apply(a,c(arguments[0]).toArray());return a}},remove:function(a,b){for(var d=0,e;(e=this[d])!=null;d++)if(!a||c.filter(a,[e]).length){if(!b&&e.nodeType===1){c.cleanData(e.getElementsByTagName("*"));c.cleanData([e])}e.parentNode&&e.parentNode.removeChild(e)}return this},empty:function(){for(var a=0,b;(b=this[a])!=null;a++)for(b.nodeType===1&&c.cleanData(b.getElementsByTagName("*"));b.firstChild;)b.removeChild(b.firstChild);
+return this},clone:function(a){var b=this.map(function(){if(!c.support.noCloneEvent&&!c.isXMLDoc(this)){var d=this.outerHTML,e=this.ownerDocument;if(!d){d=e.createElement("div");d.appendChild(this.cloneNode(true));d=d.innerHTML}return c.clean([d.replace(za,"").replace(fb,'="$1">').replace($,"")],e)[0]}else return this.cloneNode(true)});if(a===true){na(this,b);na(this.find("*"),b.find("*"))}return b},html:function(a){if(a===B)return this[0]&&this[0].nodeType===1?this[0].innerHTML.replace(za,""):null;
+else if(typeof a==="string"&&!Ca.test(a)&&(c.support.leadingWhitespace||!$.test(a))&&!P[(Ba.exec(a)||["",""])[1].toLowerCase()]){a=a.replace(Aa,"<$1></$2>");try{for(var b=0,d=this.length;b<d;b++)if(this[b].nodeType===1){c.cleanData(this[b].getElementsByTagName("*"));this[b].innerHTML=a}}catch(e){this.empty().append(a)}}else c.isFunction(a)?this.each(function(f){var h=c(this);h.html(a.call(this,f,h.html()))}):this.empty().append(a);return this},replaceWith:function(a){if(this[0]&&this[0].parentNode){if(c.isFunction(a))return this.each(function(b){var d=
+c(this),e=d.html();d.replaceWith(a.call(this,b,e))});if(typeof a!=="string")a=c(a).detach();return this.each(function(){var b=this.nextSibling,d=this.parentNode;c(this).remove();b?c(b).before(a):c(d).append(a)})}else return this.pushStack(c(c.isFunction(a)?a():a),"replaceWith",a)},detach:function(a){return this.remove(a,true)},domManip:function(a,b,d){var e,f,h,l=a[0],k=[];if(!c.support.checkClone&&arguments.length===3&&typeof l==="string"&&Da.test(l))return this.each(function(){c(this).domManip(a,
+b,d,true)});if(c.isFunction(l))return this.each(function(x){var r=c(this);a[0]=l.call(this,x,b?r.html():B);r.domManip(a,b,d)});if(this[0]){e=l&&l.parentNode;e=c.support.parentNode&&e&&e.nodeType===11&&e.childNodes.length===this.length?{fragment:e}:c.buildFragment(a,this,k);h=e.fragment;if(f=h.childNodes.length===1?h=h.firstChild:h.firstChild){b=b&&c.nodeName(f,"tr");f=0;for(var o=this.length;f<o;f++)d.call(b?c.nodeName(this[f],"table")?this[f].getElementsByTagName("tbody")[0]||this[f].appendChild(this[f].ownerDocument.createElement("tbody")):
+this[f]:this[f],f>0||e.cacheable||this.length>1?h.cloneNode(true):h)}k.length&&c.each(k,Oa)}return this}});c.buildFragment=function(a,b,d){var e,f,h;b=b&&b[0]?b[0].ownerDocument||b[0]:t;if(a.length===1&&typeof a[0]==="string"&&a[0].length<512&&b===t&&!Ca.test(a[0])&&(c.support.checkClone||!Da.test(a[0]))){f=true;if(h=c.fragments[a[0]])if(h!==1)e=h}if(!e){e=b.createDocumentFragment();c.clean(a,b,e,d)}if(f)c.fragments[a[0]]=h?e:1;return{fragment:e,cacheable:f}};c.fragments={};c.each({appendTo:"append",
+prependTo:"prepend",insertBefore:"before",insertAfter:"after",replaceAll:"replaceWith"},function(a,b){c.fn[a]=function(d){var e=[];d=c(d);var f=this.length===1&&this[0].parentNode;if(f&&f.nodeType===11&&f.childNodes.length===1&&d.length===1){d[b](this[0]);return this}else{f=0;for(var h=d.length;f<h;f++){var l=(f>0?this.clone(true):this).get();c(d[f])[b](l);e=e.concat(l)}return this.pushStack(e,a,d.selector)}}});c.extend({clean:function(a,b,d,e){b=b||t;if(typeof b.createElement==="undefined")b=b.ownerDocument||
+b[0]&&b[0].ownerDocument||t;for(var f=[],h=0,l;(l=a[h])!=null;h++){if(typeof l==="number")l+="";if(l){if(typeof l==="string"&&!eb.test(l))l=b.createTextNode(l);else if(typeof l==="string"){l=l.replace(Aa,"<$1></$2>");var k=(Ba.exec(l)||["",""])[1].toLowerCase(),o=P[k]||P._default,x=o[0],r=b.createElement("div");for(r.innerHTML=o[1]+l+o[2];x--;)r=r.lastChild;if(!c.support.tbody){x=db.test(l);k=k==="table"&&!x?r.firstChild&&r.firstChild.childNodes:o[1]==="<table>"&&!x?r.childNodes:[];for(o=k.length-
+1;o>=0;--o)c.nodeName(k[o],"tbody")&&!k[o].childNodes.length&&k[o].parentNode.removeChild(k[o])}!c.support.leadingWhitespace&&$.test(l)&&r.insertBefore(b.createTextNode($.exec(l)[0]),r.firstChild);l=r.childNodes}if(l.nodeType)f.push(l);else f=c.merge(f,l)}}if(d)for(h=0;f[h];h++)if(e&&c.nodeName(f[h],"script")&&(!f[h].type||f[h].type.toLowerCase()==="text/javascript"))e.push(f[h].parentNode?f[h].parentNode.removeChild(f[h]):f[h]);else{f[h].nodeType===1&&f.splice.apply(f,[h+1,0].concat(c.makeArray(f[h].getElementsByTagName("script"))));
+d.appendChild(f[h])}return f},cleanData:function(a){for(var b,d,e=c.cache,f=c.event.special,h=c.support.deleteExpando,l=0,k;(k=a[l])!=null;l++)if(!(k.nodeName&&c.noData[k.nodeName.toLowerCase()]))if(d=k[c.expando]){if((b=e[d])&&b.events)for(var o in b.events)f[o]?c.event.remove(k,o):c.removeEvent(k,o,b.handle);if(h)delete k[c.expando];else k.removeAttribute&&k.removeAttribute(c.expando);delete e[d]}}});var Ea=/alpha\([^)]*\)/i,gb=/opacity=([^)]*)/,hb=/-([a-z])/ig,ib=/([A-Z])/g,Fa=/^-?\d+(?:px)?$/i,
+jb=/^-?\d/,kb={position:"absolute",visibility:"hidden",display:"block"},Pa=["Left","Right"],Qa=["Top","Bottom"],W,Ga,aa,lb=function(a,b){return b.toUpperCase()};c.fn.css=function(a,b){if(arguments.length===2&&b===B)return this;return c.access(this,a,b,true,function(d,e,f){return f!==B?c.style(d,e,f):c.css(d,e)})};c.extend({cssHooks:{opacity:{get:function(a,b){if(b){var d=W(a,"opacity","opacity");return d===""?"1":d}else return a.style.opacity}}},cssNumber:{zIndex:true,fontWeight:true,opacity:true,
+zoom:true,lineHeight:true},cssProps:{"float":c.support.cssFloat?"cssFloat":"styleFloat"},style:function(a,b,d,e){if(!(!a||a.nodeType===3||a.nodeType===8||!a.style)){var f,h=c.camelCase(b),l=a.style,k=c.cssHooks[h];b=c.cssProps[h]||h;if(d!==B){if(!(typeof d==="number"&&isNaN(d)||d==null)){if(typeof d==="number"&&!c.cssNumber[h])d+="px";if(!k||!("set"in k)||(d=k.set(a,d))!==B)try{l[b]=d}catch(o){}}}else{if(k&&"get"in k&&(f=k.get(a,false,e))!==B)return f;return l[b]}}},css:function(a,b,d){var e,f=c.camelCase(b),
+h=c.cssHooks[f];b=c.cssProps[f]||f;if(h&&"get"in h&&(e=h.get(a,true,d))!==B)return e;else if(W)return W(a,b,f)},swap:function(a,b,d){var e={},f;for(f in b){e[f]=a.style[f];a.style[f]=b[f]}d.call(a);for(f in b)a.style[f]=e[f]},camelCase:function(a){return a.replace(hb,lb)}});c.curCSS=c.css;c.each(["height","width"],function(a,b){c.cssHooks[b]={get:function(d,e,f){var h;if(e){if(d.offsetWidth!==0)h=oa(d,b,f);else c.swap(d,kb,function(){h=oa(d,b,f)});if(h<=0){h=W(d,b,b);if(h==="0px"&&aa)h=aa(d,b,b);
+if(h!=null)return h===""||h==="auto"?"0px":h}if(h<0||h==null){h=d.style[b];return h===""||h==="auto"?"0px":h}return typeof h==="string"?h:h+"px"}},set:function(d,e){if(Fa.test(e)){e=parseFloat(e);if(e>=0)return e+"px"}else return e}}});if(!c.support.opacity)c.cssHooks.opacity={get:function(a,b){return gb.test((b&&a.currentStyle?a.currentStyle.filter:a.style.filter)||"")?parseFloat(RegExp.$1)/100+"":b?"1":""},set:function(a,b){var d=a.style;d.zoom=1;var e=c.isNaN(b)?"":"alpha(opacity="+b*100+")",f=
+d.filter||"";d.filter=Ea.test(f)?f.replace(Ea,e):d.filter+" "+e}};if(t.defaultView&&t.defaultView.getComputedStyle)Ga=function(a,b,d){var e;d=d.replace(ib,"-$1").toLowerCase();if(!(b=a.ownerDocument.defaultView))return B;if(b=b.getComputedStyle(a,null)){e=b.getPropertyValue(d);if(e===""&&!c.contains(a.ownerDocument.documentElement,a))e=c.style(a,d)}return e};if(t.documentElement.currentStyle)aa=function(a,b){var d,e,f=a.currentStyle&&a.currentStyle[b],h=a.style;if(!Fa.test(f)&&jb.test(f)){d=h.left;
+e=a.runtimeStyle.left;a.runtimeStyle.left=a.currentStyle.left;h.left=b==="fontSize"?"1em":f||0;f=h.pixelLeft+"px";h.left=d;a.runtimeStyle.left=e}return f===""?"auto":f};W=Ga||aa;if(c.expr&&c.expr.filters){c.expr.filters.hidden=function(a){var b=a.offsetHeight;return a.offsetWidth===0&&b===0||!c.support.reliableHiddenOffsets&&(a.style.display||c.css(a,"display"))==="none"};c.expr.filters.visible=function(a){return!c.expr.filters.hidden(a)}}var mb=c.now(),nb=/<script\b[^<]*(?:(?!<\/script>)<[^<]*)*<\/script>/gi,
+ob=/^(?:select|textarea)/i,pb=/^(?:color|date|datetime|email|hidden|month|number|password|range|search|tel|text|time|url|week)$/i,qb=/^(?:GET|HEAD)$/,Ra=/\[\]$/,T=/\=\?(&|$)/,ja=/\?/,rb=/([?&])_=[^&]*/,sb=/^(\w+:)?\/\/([^\/?#]+)/,tb=/%20/g,ub=/#.*$/,Ha=c.fn.load;c.fn.extend({load:function(a,b,d){if(typeof a!=="string"&&Ha)return Ha.apply(this,arguments);else if(!this.length)return this;var e=a.indexOf(" ");if(e>=0){var f=a.slice(e,a.length);a=a.slice(0,e)}e="GET";if(b)if(c.isFunction(b)){d=b;b=null}else if(typeof b===
+"object"){b=c.param(b,c.ajaxSettings.traditional);e="POST"}var h=this;c.ajax({url:a,type:e,dataType:"html",data:b,complete:function(l,k){if(k==="success"||k==="notmodified")h.html(f?c("<div>").append(l.responseText.replace(nb,"")).find(f):l.responseText);d&&h.each(d,[l.responseText,k,l])}});return this},serialize:function(){return c.param(this.serializeArray())},serializeArray:function(){return this.map(function(){return this.elements?c.makeArray(this.elements):this}).filter(function(){return this.name&&
+!this.disabled&&(this.checked||ob.test(this.nodeName)||pb.test(this.type))}).map(function(a,b){var d=c(this).val();return d==null?null:c.isArray(d)?c.map(d,function(e){return{name:b.name,value:e}}):{name:b.name,value:d}}).get()}});c.each("ajaxStart ajaxStop ajaxComplete ajaxError ajaxSuccess ajaxSend".split(" "),function(a,b){c.fn[b]=function(d){return this.bind(b,d)}});c.extend({get:function(a,b,d,e){if(c.isFunction(b)){e=e||d;d=b;b=null}return c.ajax({type:"GET",url:a,data:b,success:d,dataType:e})},
+getScript:function(a,b){return c.get(a,null,b,"script")},getJSON:function(a,b,d){return c.get(a,b,d,"json")},post:function(a,b,d,e){if(c.isFunction(b)){e=e||d;d=b;b={}}return c.ajax({type:"POST",url:a,data:b,success:d,dataType:e})},ajaxSetup:function(a){c.extend(c.ajaxSettings,a)},ajaxSettings:{url:location.href,global:true,type:"GET",contentType:"application/x-www-form-urlencoded",processData:true,async:true,xhr:function(){return new E.XMLHttpRequest},accepts:{xml:"application/xml, text/xml",html:"text/html",
+script:"text/javascript, application/javascript",json:"application/json, text/javascript",text:"text/plain",_default:"*/*"}},ajax:function(a){var b=c.extend(true,{},c.ajaxSettings,a),d,e,f,h=b.type.toUpperCase(),l=qb.test(h);b.url=b.url.replace(ub,"");b.context=a&&a.context!=null?a.context:b;if(b.data&&b.processData&&typeof b.data!=="string")b.data=c.param(b.data,b.traditional);if(b.dataType==="jsonp"){if(h==="GET")T.test(b.url)||(b.url+=(ja.test(b.url)?"&":"?")+(b.jsonp||"callback")+"=?");else if(!b.data||
+!T.test(b.data))b.data=(b.data?b.data+"&":"")+(b.jsonp||"callback")+"=?";b.dataType="json"}if(b.dataType==="json"&&(b.data&&T.test(b.data)||T.test(b.url))){d=b.jsonpCallback||"jsonp"+mb++;if(b.data)b.data=(b.data+"").replace(T,"="+d+"$1");b.url=b.url.replace(T,"="+d+"$1");b.dataType="script";var k=E[d];E[d]=function(m){if(c.isFunction(k))k(m);else{E[d]=B;try{delete E[d]}catch(p){}}f=m;c.handleSuccess(b,w,e,f);c.handleComplete(b,w,e,f);r&&r.removeChild(A)}}if(b.dataType==="script"&&b.cache===null)b.cache=
+false;if(b.cache===false&&l){var o=c.now(),x=b.url.replace(rb,"$1_="+o);b.url=x+(x===b.url?(ja.test(b.url)?"&":"?")+"_="+o:"")}if(b.data&&l)b.url+=(ja.test(b.url)?"&":"?")+b.data;b.global&&c.active++===0&&c.event.trigger("ajaxStart");o=(o=sb.exec(b.url))&&(o[1]&&o[1].toLowerCase()!==location.protocol||o[2].toLowerCase()!==location.host);if(b.dataType==="script"&&h==="GET"&&o){var r=t.getElementsByTagName("head")[0]||t.documentElement,A=t.createElement("script");if(b.scriptCharset)A.charset=b.scriptCharset;
+A.src=b.url;if(!d){var C=false;A.onload=A.onreadystatechange=function(){if(!C&&(!this.readyState||this.readyState==="loaded"||this.readyState==="complete")){C=true;c.handleSuccess(b,w,e,f);c.handleComplete(b,w,e,f);A.onload=A.onreadystatechange=null;r&&A.parentNode&&r.removeChild(A)}}}r.insertBefore(A,r.firstChild);return B}var J=false,w=b.xhr();if(w){b.username?w.open(h,b.url,b.async,b.username,b.password):w.open(h,b.url,b.async);try{if(b.data!=null&&!l||a&&a.contentType)w.setRequestHeader("Content-Type",
+b.contentType);if(b.ifModified){c.lastModified[b.url]&&w.setRequestHeader("If-Modified-Since",c.lastModified[b.url]);c.etag[b.url]&&w.setRequestHeader("If-None-Match",c.etag[b.url])}o||w.setRequestHeader("X-Requested-With","XMLHttpRequest");w.setRequestHeader("Accept",b.dataType&&b.accepts[b.dataType]?b.accepts[b.dataType]+", */*; q=0.01":b.accepts._default)}catch(I){}if(b.beforeSend&&b.beforeSend.call(b.context,w,b)===false){b.global&&c.active--===1&&c.event.trigger("ajaxStop");w.abort();return false}b.global&&
+c.triggerGlobal(b,"ajaxSend",[w,b]);var L=w.onreadystatechange=function(m){if(!w||w.readyState===0||m==="abort"){J||c.handleComplete(b,w,e,f);J=true;if(w)w.onreadystatechange=c.noop}else if(!J&&w&&(w.readyState===4||m==="timeout")){J=true;w.onreadystatechange=c.noop;e=m==="timeout"?"timeout":!c.httpSuccess(w)?"error":b.ifModified&&c.httpNotModified(w,b.url)?"notmodified":"success";var p;if(e==="success")try{f=c.httpData(w,b.dataType,b)}catch(q){e="parsererror";p=q}if(e==="success"||e==="notmodified")d||
+c.handleSuccess(b,w,e,f);else c.handleError(b,w,e,p);d||c.handleComplete(b,w,e,f);m==="timeout"&&w.abort();if(b.async)w=null}};try{var g=w.abort;w.abort=function(){w&&Function.prototype.call.call(g,w);L("abort")}}catch(i){}b.async&&b.timeout>0&&setTimeout(function(){w&&!J&&L("timeout")},b.timeout);try{w.send(l||b.data==null?null:b.data)}catch(n){c.handleError(b,w,null,n);c.handleComplete(b,w,e,f)}b.async||L();return w}},param:function(a,b){var d=[],e=function(h,l){l=c.isFunction(l)?l():l;d[d.length]=
+encodeURIComponent(h)+"="+encodeURIComponent(l)};if(b===B)b=c.ajaxSettings.traditional;if(c.isArray(a)||a.jquery)c.each(a,function(){e(this.name,this.value)});else for(var f in a)da(f,a[f],b,e);return d.join("&").replace(tb,"+")}});c.extend({active:0,lastModified:{},etag:{},handleError:function(a,b,d,e){a.error&&a.error.call(a.context,b,d,e);a.global&&c.triggerGlobal(a,"ajaxError",[b,a,e])},handleSuccess:function(a,b,d,e){a.success&&a.success.call(a.context,e,d,b);a.global&&c.triggerGlobal(a,"ajaxSuccess",
+[b,a])},handleComplete:function(a,b,d){a.complete&&a.complete.call(a.context,b,d);a.global&&c.triggerGlobal(a,"ajaxComplete",[b,a]);a.global&&c.active--===1&&c.event.trigger("ajaxStop")},triggerGlobal:function(a,b,d){(a.context&&a.context.url==null?c(a.context):c.event).trigger(b,d)},httpSuccess:function(a){try{return!a.status&&location.protocol==="file:"||a.status>=200&&a.status<300||a.status===304||a.status===1223}catch(b){}return false},httpNotModified:function(a,b){var d=a.getResponseHeader("Last-Modified"),
+e=a.getResponseHeader("Etag");if(d)c.lastModified[b]=d;if(e)c.etag[b]=e;return a.status===304},httpData:function(a,b,d){var e=a.getResponseHeader("content-type")||"",f=b==="xml"||!b&&e.indexOf("xml")>=0;a=f?a.responseXML:a.responseText;f&&a.documentElement.nodeName==="parsererror"&&c.error("parsererror");if(d&&d.dataFilter)a=d.dataFilter(a,b);if(typeof a==="string")if(b==="json"||!b&&e.indexOf("json")>=0)a=c.parseJSON(a);else if(b==="script"||!b&&e.indexOf("javascript")>=0)c.globalEval(a);return a}});
+if(E.ActiveXObject)c.ajaxSettings.xhr=function(){if(E.location.protocol!=="file:")try{return new E.XMLHttpRequest}catch(a){}try{return new E.ActiveXObject("Microsoft.XMLHTTP")}catch(b){}};c.support.ajax=!!c.ajaxSettings.xhr();var ea={},vb=/^(?:toggle|show|hide)$/,wb=/^([+\-]=)?([\d+.\-]+)(.*)$/,ba,pa=[["height","marginTop","marginBottom","paddingTop","paddingBottom"],["width","marginLeft","marginRight","paddingLeft","paddingRight"],["opacity"]];c.fn.extend({show:function(a,b,d){if(a||a===0)return this.animate(S("show",
+3),a,b,d);else{d=0;for(var e=this.length;d<e;d++){a=this[d];b=a.style.display;if(!c.data(a,"olddisplay")&&b==="none")b=a.style.display="";b===""&&c.css(a,"display")==="none"&&c.data(a,"olddisplay",qa(a.nodeName))}for(d=0;d<e;d++){a=this[d];b=a.style.display;if(b===""||b==="none")a.style.display=c.data(a,"olddisplay")||""}return this}},hide:function(a,b,d){if(a||a===0)return this.animate(S("hide",3),a,b,d);else{a=0;for(b=this.length;a<b;a++){d=c.css(this[a],"display");d!=="none"&&c.data(this[a],"olddisplay",
+d)}for(a=0;a<b;a++)this[a].style.display="none";return this}},_toggle:c.fn.toggle,toggle:function(a,b,d){var e=typeof a==="boolean";if(c.isFunction(a)&&c.isFunction(b))this._toggle.apply(this,arguments);else a==null||e?this.each(function(){var f=e?a:c(this).is(":hidden");c(this)[f?"show":"hide"]()}):this.animate(S("toggle",3),a,b,d);return this},fadeTo:function(a,b,d,e){return this.filter(":hidden").css("opacity",0).show().end().animate({opacity:b},a,d,e)},animate:function(a,b,d,e){var f=c.speed(b,
+d,e);if(c.isEmptyObject(a))return this.each(f.complete);return this[f.queue===false?"each":"queue"](function(){var h=c.extend({},f),l,k=this.nodeType===1,o=k&&c(this).is(":hidden"),x=this;for(l in a){var r=c.camelCase(l);if(l!==r){a[r]=a[l];delete a[l];l=r}if(a[l]==="hide"&&o||a[l]==="show"&&!o)return h.complete.call(this);if(k&&(l==="height"||l==="width")){h.overflow=[this.style.overflow,this.style.overflowX,this.style.overflowY];if(c.css(this,"display")==="inline"&&c.css(this,"float")==="none")if(c.support.inlineBlockNeedsLayout)if(qa(this.nodeName)===
+"inline")this.style.display="inline-block";else{this.style.display="inline";this.style.zoom=1}else this.style.display="inline-block"}if(c.isArray(a[l])){(h.specialEasing=h.specialEasing||{})[l]=a[l][1];a[l]=a[l][0]}}if(h.overflow!=null)this.style.overflow="hidden";h.curAnim=c.extend({},a);c.each(a,function(A,C){var J=new c.fx(x,h,A);if(vb.test(C))J[C==="toggle"?o?"show":"hide":C](a);else{var w=wb.exec(C),I=J.cur()||0;if(w){var L=parseFloat(w[2]),g=w[3]||"px";if(g!=="px"){c.style(x,A,(L||1)+g);I=(L||
+1)/J.cur()*I;c.style(x,A,I+g)}if(w[1])L=(w[1]==="-="?-1:1)*L+I;J.custom(I,L,g)}else J.custom(I,C,"")}});return true})},stop:function(a,b){var d=c.timers;a&&this.queue([]);this.each(function(){for(var e=d.length-1;e>=0;e--)if(d[e].elem===this){b&&d[e](true);d.splice(e,1)}});b||this.dequeue();return this}});c.each({slideDown:S("show",1),slideUp:S("hide",1),slideToggle:S("toggle",1),fadeIn:{opacity:"show"},fadeOut:{opacity:"hide"},fadeToggle:{opacity:"toggle"}},function(a,b){c.fn[a]=function(d,e,f){return this.animate(b,
+d,e,f)}});c.extend({speed:function(a,b,d){var e=a&&typeof a==="object"?c.extend({},a):{complete:d||!d&&b||c.isFunction(a)&&a,duration:a,easing:d&&b||b&&!c.isFunction(b)&&b};e.duration=c.fx.off?0:typeof e.duration==="number"?e.duration:e.duration in c.fx.speeds?c.fx.speeds[e.duration]:c.fx.speeds._default;e.old=e.complete;e.complete=function(){e.queue!==false&&c(this).dequeue();c.isFunction(e.old)&&e.old.call(this)};return e},easing:{linear:function(a,b,d,e){return d+e*a},swing:function(a,b,d,e){return(-Math.cos(a*
+Math.PI)/2+0.5)*e+d}},timers:[],fx:function(a,b,d){this.options=b;this.elem=a;this.prop=d;if(!b.orig)b.orig={}}});c.fx.prototype={update:function(){this.options.step&&this.options.step.call(this.elem,this.now,this);(c.fx.step[this.prop]||c.fx.step._default)(this)},cur:function(){if(this.elem[this.prop]!=null&&(!this.elem.style||this.elem.style[this.prop]==null))return this.elem[this.prop];var a=parseFloat(c.css(this.elem,this.prop));return a&&a>-1E4?a:0},custom:function(a,b,d){function e(l){return f.step(l)}
+var f=this,h=c.fx;this.startTime=c.now();this.start=a;this.end=b;this.unit=d||this.unit||"px";this.now=this.start;this.pos=this.state=0;e.elem=this.elem;if(e()&&c.timers.push(e)&&!ba)ba=setInterval(h.tick,h.interval)},show:function(){this.options.orig[this.prop]=c.style(this.elem,this.prop);this.options.show=true;this.custom(this.prop==="width"||this.prop==="height"?1:0,this.cur());c(this.elem).show()},hide:function(){this.options.orig[this.prop]=c.style(this.elem,this.prop);this.options.hide=true;
+this.custom(this.cur(),0)},step:function(a){var b=c.now(),d=true;if(a||b>=this.options.duration+this.startTime){this.now=this.end;this.pos=this.state=1;this.update();this.options.curAnim[this.prop]=true;for(var e in this.options.curAnim)if(this.options.curAnim[e]!==true)d=false;if(d){if(this.options.overflow!=null&&!c.support.shrinkWrapBlocks){var f=this.elem,h=this.options;c.each(["","X","Y"],function(k,o){f.style["overflow"+o]=h.overflow[k]})}this.options.hide&&c(this.elem).hide();if(this.options.hide||
+this.options.show)for(var l in this.options.curAnim)c.style(this.elem,l,this.options.orig[l]);this.options.complete.call(this.elem)}return false}else{a=b-this.startTime;this.state=a/this.options.duration;b=this.options.easing||(c.easing.swing?"swing":"linear");this.pos=c.easing[this.options.specialEasing&&this.options.specialEasing[this.prop]||b](this.state,a,0,1,this.options.duration);this.now=this.start+(this.end-this.start)*this.pos;this.update()}return true}};c.extend(c.fx,{tick:function(){for(var a=
+c.timers,b=0;b<a.length;b++)a[b]()||a.splice(b--,1);a.length||c.fx.stop()},interval:13,stop:function(){clearInterval(ba);ba=null},speeds:{slow:600,fast:200,_default:400},step:{opacity:function(a){c.style(a.elem,"opacity",a.now)},_default:function(a){if(a.elem.style&&a.elem.style[a.prop]!=null)a.elem.style[a.prop]=(a.prop==="width"||a.prop==="height"?Math.max(0,a.now):a.now)+a.unit;else a.elem[a.prop]=a.now}}});if(c.expr&&c.expr.filters)c.expr.filters.animated=function(a){return c.grep(c.timers,function(b){return a===
+b.elem}).length};var xb=/^t(?:able|d|h)$/i,Ia=/^(?:body|html)$/i;c.fn.offset="getBoundingClientRect"in t.documentElement?function(a){var b=this[0],d;if(a)return this.each(function(l){c.offset.setOffset(this,a,l)});if(!b||!b.ownerDocument)return null;if(b===b.ownerDocument.body)return c.offset.bodyOffset(b);try{d=b.getBoundingClientRect()}catch(e){}var f=b.ownerDocument,h=f.documentElement;if(!d||!c.contains(h,b))return d||{top:0,left:0};b=f.body;f=fa(f);return{top:d.top+(f.pageYOffset||c.support.boxModel&&
+h.scrollTop||b.scrollTop)-(h.clientTop||b.clientTop||0),left:d.left+(f.pageXOffset||c.support.boxModel&&h.scrollLeft||b.scrollLeft)-(h.clientLeft||b.clientLeft||0)}}:function(a){var b=this[0];if(a)return this.each(function(x){c.offset.setOffset(this,a,x)});if(!b||!b.ownerDocument)return null;if(b===b.ownerDocument.body)return c.offset.bodyOffset(b);c.offset.initialize();var d,e=b.offsetParent,f=b.ownerDocument,h=f.documentElement,l=f.body;d=(f=f.defaultView)?f.getComputedStyle(b,null):b.currentStyle;
+for(var k=b.offsetTop,o=b.offsetLeft;(b=b.parentNode)&&b!==l&&b!==h;){if(c.offset.supportsFixedPosition&&d.position==="fixed")break;d=f?f.getComputedStyle(b,null):b.currentStyle;k-=b.scrollTop;o-=b.scrollLeft;if(b===e){k+=b.offsetTop;o+=b.offsetLeft;if(c.offset.doesNotAddBorder&&!(c.offset.doesAddBorderForTableAndCells&&xb.test(b.nodeName))){k+=parseFloat(d.borderTopWidth)||0;o+=parseFloat(d.borderLeftWidth)||0}e=b.offsetParent}if(c.offset.subtractsBorderForOverflowNotVisible&&d.overflow!=="visible"){k+=
+parseFloat(d.borderTopWidth)||0;o+=parseFloat(d.borderLeftWidth)||0}d=d}if(d.position==="relative"||d.position==="static"){k+=l.offsetTop;o+=l.offsetLeft}if(c.offset.supportsFixedPosition&&d.position==="fixed"){k+=Math.max(h.scrollTop,l.scrollTop);o+=Math.max(h.scrollLeft,l.scrollLeft)}return{top:k,left:o}};c.offset={initialize:function(){var a=t.body,b=t.createElement("div"),d,e,f,h=parseFloat(c.css(a,"marginTop"))||0;c.extend(b.style,{position:"absolute",top:0,left:0,margin:0,border:0,width:"1px",
+height:"1px",visibility:"hidden"});b.innerHTML="<div style='position:absolute;top:0;left:0;margin:0;border:5px solid #000;padding:0;width:1px;height:1px;'><div></div></div><table style='position:absolute;top:0;left:0;margin:0;border:5px solid #000;padding:0;width:1px;height:1px;' cellpadding='0' cellspacing='0'><tr><td></td></tr></table>";a.insertBefore(b,a.firstChild);d=b.firstChild;e=d.firstChild;f=d.nextSibling.firstChild.firstChild;this.doesNotAddBorder=e.offsetTop!==5;this.doesAddBorderForTableAndCells=
+f.offsetTop===5;e.style.position="fixed";e.style.top="20px";this.supportsFixedPosition=e.offsetTop===20||e.offsetTop===15;e.style.position=e.style.top="";d.style.overflow="hidden";d.style.position="relative";this.subtractsBorderForOverflowNotVisible=e.offsetTop===-5;this.doesNotIncludeMarginInBodyOffset=a.offsetTop!==h;a.removeChild(b);c.offset.initialize=c.noop},bodyOffset:function(a){var b=a.offsetTop,d=a.offsetLeft;c.offset.initialize();if(c.offset.doesNotIncludeMarginInBodyOffset){b+=parseFloat(c.css(a,
+"marginTop"))||0;d+=parseFloat(c.css(a,"marginLeft"))||0}return{top:b,left:d}},setOffset:function(a,b,d){var e=c.css(a,"position");if(e==="static")a.style.position="relative";var f=c(a),h=f.offset(),l=c.css(a,"top"),k=c.css(a,"left"),o=e==="absolute"&&c.inArray("auto",[l,k])>-1;e={};var x={};if(o)x=f.position();l=o?x.top:parseInt(l,10)||0;k=o?x.left:parseInt(k,10)||0;if(c.isFunction(b))b=b.call(a,d,h);if(b.top!=null)e.top=b.top-h.top+l;if(b.left!=null)e.left=b.left-h.left+k;"using"in b?b.using.call(a,
+e):f.css(e)}};c.fn.extend({position:function(){if(!this[0])return null;var a=this[0],b=this.offsetParent(),d=this.offset(),e=Ia.test(b[0].nodeName)?{top:0,left:0}:b.offset();d.top-=parseFloat(c.css(a,"marginTop"))||0;d.left-=parseFloat(c.css(a,"marginLeft"))||0;e.top+=parseFloat(c.css(b[0],"borderTopWidth"))||0;e.left+=parseFloat(c.css(b[0],"borderLeftWidth"))||0;return{top:d.top-e.top,left:d.left-e.left}},offsetParent:function(){return this.map(function(){for(var a=this.offsetParent||t.body;a&&!Ia.test(a.nodeName)&&
+c.css(a,"position")==="static";)a=a.offsetParent;return a})}});c.each(["Left","Top"],function(a,b){var d="scroll"+b;c.fn[d]=function(e){var f=this[0],h;if(!f)return null;if(e!==B)return this.each(function(){if(h=fa(this))h.scrollTo(!a?e:c(h).scrollLeft(),a?e:c(h).scrollTop());else this[d]=e});else return(h=fa(f))?"pageXOffset"in h?h[a?"pageYOffset":"pageXOffset"]:c.support.boxModel&&h.document.documentElement[d]||h.document.body[d]:f[d]}});c.each(["Height","Width"],function(a,b){var d=b.toLowerCase();
+c.fn["inner"+b]=function(){return this[0]?parseFloat(c.css(this[0],d,"padding")):null};c.fn["outer"+b]=function(e){return this[0]?parseFloat(c.css(this[0],d,e?"margin":"border")):null};c.fn[d]=function(e){var f=this[0];if(!f)return e==null?null:this;if(c.isFunction(e))return this.each(function(l){var k=c(this);k[d](e.call(this,l,k[d]()))});if(c.isWindow(f))return f.document.compatMode==="CSS1Compat"&&f.document.documentElement["client"+b]||f.document.body["client"+b];else if(f.nodeType===9)return Math.max(f.documentElement["client"+
+b],f.body["scroll"+b],f.documentElement["scroll"+b],f.body["offset"+b],f.documentElement["offset"+b]);else if(e===B){f=c.css(f,d);var h=parseFloat(f);return c.isNaN(h)?f:h}else return this.css(d,typeof e==="string"?e:e+"px")}})})(window);
diff --git a/misc-R/quantile/js/jquery.scianimator.min.js b/misc-R/quantile/js/jquery.scianimator.min.js
new file mode 100755
index 0000000..98ab8da
--- /dev/null
+++ b/misc-R/quantile/js/jquery.scianimator.min.js
@@ -0,0 +1,8 @@
+/**
+ * SciAnimator - Scientific Image Animator Plugin for jQuery
+ *
+ * Copyright (c) 2010 Brent Ertz
+ * Released under the MIT license.
+ * http://github.com/brentertz/scianimator
+*/
+(function(e){var c={CONTROLS_ALL:"all",CONTROLS_NONE:"none",DIRECTION_FORWARD:0,DIRECTION_REVERSE:1,LOOP_MODE_NONE:"none",LOOP_MODE_LOOP:"loop",LOOP_MODE_SWEEP:"sweep",PLAY_MODE_STOPPED:0,PLAY_MODE_PLAYING:1,POSITION_TOP:0,POSITION_BOTTOM:1};e.fn.scianimator=function(g){if(b[g]){return b[g].apply(this,Array.prototype.slice.call(arguments,1))}else{if(typeof g==="object"||!g){return b.init.apply(this,arguments)}else{e.error("Method "+g+" does not exist on jQuery.scianimator")}}};e.fn.scianimator.defaults={autoRefresh:false,keyboard:true,debug:false,images:[],controlContainer:null,controlPosition:c.POSITION_BOTTOM,controls:c.CONTROLS_ALL,defaultFrame:0,delay:250,delayStep:50,delayMin:25,delayMax:5000,dwellMultiplier:2,theme:"light",width:null,utf8:true,loopMode:c.LOOP_MODE_LOOP,labels:{text:{first:"First",previous:"Previous",play:"Play",stop:"Stop",next:"Next",last:"Last",loop:{tip:"Click to toggle loop mode",loop:"Loop",sweep:"Sweep",none:"None"},speed:{speed:"Speed",down:"-",up:"+"},navigator:{tip:"Click to go to frame; <ctrl>+click to enable/disable frame."},status:{preload:"Preloading images...",refresh:"Refreshing images from source..."}},utf8:{first:"|←",previous:"←",play:"►",stop:"■",next:"→",last:"→|"}}};var d={};var b={init:function(g){d=e.extend(true,{},e.fn.scianimator.defaults,g);a("init");return this.each(function(){var i=e(this);var h=i.data("scianimator");e(this).data("scianimator",{id:i[0].id,target:i,image:null,animationTimer:null,autoRefreshTimer:null,playMode:c.PLAY_MODE_STOPPED,frames:[],currentFrame:d.defaultFrame,firstFrame:0,lastFrame:null,disabledFrames:[],direction:c.DIRECTION_FORWARD,dwell:0,settings:d,controls:{}});i.scianimator("loadImages","preload").scianimator("container").scianimator("image").scianimator("controls").scianimator("calculateDwell")})},destroy:function(){a("destroy");return this.each(function(){var h=e(this);var g=h.data("scianimator");e(window).unbind(".scianimator");h.removeData("scianimator");window.clearTimeout(g.animationTimer);h.remove()})},drawImage:function(j){a("drawImage");var i=e(this);var g=i.data("scianimator");j=parseInt(j,10);var h=g.frames[j];e(g.image).load(function(){a("Loaded image for frame #"+j+" : "+h.src)}).error(function(){a("Image failed to load for frame #"+j+" : "+h.src);i.scianimator("enableDisable",{frame:j,state:"disable"})}).attr("src",h.src);return i},container:function(){a("container");var h=e(this);var g=h.data("scianimator");h.addClass("scianimator");if(g.settings.theme!==undefined){h.addClass(g.settings.theme)}if(g.settings.width!==undefined){h.css("width",g.settings.width)}return h},image:function(){a("image");var i=e(this);var h=i.data("scianimator");var g=e("<img />");i.append(g[0]);h.image=g[0];if("number"===typeof h.settings.defaultFrame){i.scianimator("goto",h.settings.defaultFrame)}else{if("last"===h.settings.defaultFrame){i.scianimator("last")}else{i.scianimator("first")}}return i},controls:function(){a("controls");var k=e(this);var j=k.data("scianimator");var h=e('<div id="'+j.id+'-controls" class="scianimator controls"></div>');if(j.settings.theme!==undefined){h.addClass(j.settings.theme)}var i=e("<form></form>");var g={first:function(){var l=(j.settings.utf8)?j.settings.labels.utf8.first:j.settings.labels.text.first;return e('<a id="'+j.id+'-first" class="control first" href="#">'+l+"</a>")},previous:function(){var l=(j.settings.utf8)?j.settings.labels.utf8.previous:j.settings.labels.text.previous;return e('<a id="'+j.id+'-previous" class="control previous" href="#">'+l+"</a>")},play:function(){var l=(j.settings.utf8)?j.settings.labels.utf8.play:j.settings.labels.text.play;return e('<a id="'+j.id+'-play" class="control play" href="#">'+l+"</a>")},next:function(){var l=(j.settings.utf8)?j.settings.labels.utf8.next:j.settings.labels.text.next;return e('<a id="'+j.id+'-next" class="control next" href="#">'+l+"</a>")},last:function(){var l=(j.settings.utf8)?j.settings.labels.utf8.last:j.settings.labels.text.last;return e('<a id="'+j.id+'-last" class="control last" href="#">'+l+"</a>")},navigator:function(){var l=e('<span id="'+j.id+'-navigator" class="control navigator box"></span>');var m=j.settings.labels.text.navigator.tip;e.each(j.frames,function(n,o){l.append('<a id="'+j.id+"-navigator-"+n+'" title="'+m+'" href="#" class="control navigator"> </a>')});return l},loop:function(){var l=(j.settings.utf8&&j.settings.labels.utf8.loop!==undefined)?j.settings.labels.utf8.loop[j.settings.loopMode]:j.settings.labels.text.loop[j.settings.loopMode];var m=j.settings.labels.text.loop.tip;return e('<a id="'+j.id+'-loop" class="control loop '+j.settings.loopMode+'" title="'+m+'" href="#">'+l+"</a>")},speed:function(){var m=(j.settings.utf8&&j.settings.labels.utf8.speed!==undefined)?j.settings.labels.utf8.speed.speed:j.settings.labels.text.speed.speed;var l=(j.settings.utf8&&j.settings.labels.utf8.speed!==undefined)?j.settings.labels.utf8.speed.up:j.settings.labels.text.speed.up;var n=(j.settings.utf8&&j.settings.labels.utf8.speed!==undefined)?j.settings.labels.utf8.speed.down:j.settings.labels.text.speed.down;return e('<span id="'+j.id+'-speed" class="control speed box"><a id="'+j.id+'-speed-down" class="control speed-down small" href="#">'+n+"</a> <label>"+m+'</label> <a id="'+j.id+'-speed-up" class="control speed-up small" href="#">'+l+"</a></span>")}};h.delegate("form","submit",function(l){l.preventDefault()}).delegate("a","click",function(l){l.preventDefault();switch(l.target.id){case j.id+"-first":k.scianimator("first");break;case j.id+"-previous":k.scianimator("previous");break;case j.id+"-play":k.scianimator("playOrStop");break;case j.id+"-next":k.scianimator("next");break;case j.id+"-last":k.scianimator("last");break;case j.id+"-loop":k.scianimator("loopMode");break;case j.id+"-speed-down":k.scianimator("speedDown");break;case j.id+"-speed-up":k.scianimator("speedUp");break}}).delegate("a.navigator","click",function(l){l.preventDefault();var n=j.id+"-navigator-";if((l.target.id).indexOf(n)!=-1){var m=parseInt((l.target.id).substring(n.length),10);if(l.metaKey){k.scianimator("enableDisable",{frame:m})}else{k.scianimator("goto",m)}}});if(e.isArray(j.settings.controls)&&j.settings.controls.length>0){e.each(j.settings.controls,function(l,m){i.append(g[m]);j.controls[m]=g[m]()[0].id})}else{if(c.CONTROLS_ALL===j.settings.controls){e.each(g,function(l,m){i.append(m);j.controls[l]=m()[0].id})}else{a("Display no controls")}}if(!e(i).is(":empty")){h.append(i);if(j.settings.controlContainer!==null){if(c.POSITION_TOP===j.settings.controlPosition){e(j.settings.controlContainer).prepend(container)}else{e(j.settings.controlContainer).append(container)}}else{if(c.POSITION_TOP===j.settings.controlPosition){k.prepend(h)}else{k.append(h)}}}if(j.settings.keyboard===true){k.scianimator("keyboard")}k.scianimator("onControlsComplete");return k},keyboard:function(){a("keyboard");var h=e(this);var g=h.data("scianimator");e(document).bind("keydown.scianimator.controls",function(i){if(i.target.tagName!="INPUT"&&i.target.tagName!="TEXTAREA"){switch(i.keyCode){case 13:case 32:h.scianimator("playOrStop");break;case 37:if(i.shiftKey){h.scianimator("first")}else{h.scianimator("previous")}break;case 39:if(i.shiftKey){h.scianimator("last")}else{h.scianimator("next")}break}}})},onControlsComplete:function(){a("onControlsComplete");var h=e(this);var g=h.data("scianimator");h.scianimator("hilightCurrent")},playOrStop:function(){a("playOrStop");var h=e(this);var g=h.data("scianimator");if(c.PLAY_MODE_PLAYING===g.playMode){h.scianimator("stop")}else{if(c.PLAY_MODE_STOPPED===g.playMode){h.scianimator("play")}}return h},play:function(){a("play");var j=e(this);var i=j.data("scianimator");i.playMode=c.PLAY_MODE_PLAYING;var h=i.settings.delay;if(c.DIRECTION_FORWARD===i.direction){if(i.currentFrame===i.firstFrame||i.currentFrame===i.lastFrame){h=i.dwell}}a("delay: "+h);i.animationTimer=self.setTimeout(function(){j.scianimator("animate")},h);var g=(i.settings.utf8)?i.settings.labels.utf8.stop:i.settings.labels.text.stop;e("#"+i.controls.play).removeClass("play").addClass("stop").html(g);return j},stop:function(){a("stop");var i=e(this);var h=i.data("scianimator");h.animationTimer=window.clearTimeout(h.animationTimer);h.playMode=c.PLAY_MODE_STOPPED;var g=(h.settings.utf8)?h.settings.labels.utf8.play:h.settings.labels.text.play;e("#"+h.controls.play).removeClass("stop").addClass("play").html(g);return i},animate:function(){a("animate");var h=e(this);var g=h.data("scianimator");if(c.DIRECTION_FORWARD===g.direction){h.scianimator("next")}else{if(c.DIRECTION_REVERSE===g.direction){h.scianimator("previous")}}if(c.PLAY_MODE_PLAYING===g.playMode){h.scianimator("play")}return h},previous:function(){a("previous");var h=e(this);var g=h.data("scianimator");g.currentFrame--;if(e.inArray(g.currentFrame,g.disabledFrames)!=-1){h.scianimator("previous");return h}a(g.firstFrame+":"+g.currentFrame+":"+g.lastFrame);if(g.currentFrame<g.firstFrame){if(c.PLAY_MODE_PLAYING===g.playMode){if(c.LOOP_MODE_LOOP===g.settings.loopMode){h.scianimator("last")}else{if(c.LOOP_MODE_SWEEP===g.settings.loopMode){g.direction=c.DIRECTION_FORWARD;h.scianimator("next")}else{if(c.LOOP_MODE_NONE===g.settings.loopMode){h.scianimator("stop")}}}}else{if(c.PLAY_MODE_STOPPED===g.playMode){h.scianimator("last")}}}else{h.scianimator("goto",g.currentFrame)}return h},next:function(){a("next");var h=e(this);var g=h.data("scianimator");g.currentFrame++;a(g.firstFrame+":"+g.currentFrame+":"+g.lastFrame);if(e.inArray(g.currentFrame,g.disabledFrames)!=-1){h.scianimator("next");return h}if(g.currentFrame>g.lastFrame){if(c.PLAY_MODE_PLAYING===g.playMode){if(c.LOOP_MODE_LOOP===g.settings.loopMode){h.scianimator("first")}else{if(c.LOOP_MODE_SWEEP===g.settings.loopMode){g.direction=c.DIRECTION_REVERSE;h.scianimator("previous")}else{if(c.LOOP_MODE_NONE===g.settings.loopMode){h.scianimator("stop")}}}}else{if(c.PLAY_MODE_STOPPED===g.playMode){h.scianimator("first")}}}else{h.scianimator("goto",g.currentFrame)}return h},first:function(){a("first");var h=e(this);var g=h.data("scianimator");h.scianimator("goto",g.firstFrame);return h},last:function(){a("last");var h=e(this);var g=h.data("scianimator");h.scianimator("goto",g.lastFrame);return h},"goto":function(i){a("goto");var h=e(this);var g=h.data("scianimator");var i=parseInt(i,10);if(i>g.lastFrame){i=g.lastFrame}else{if(i<g.firstFrame){i=g.firstFrame}}a(i);g.currentFrame=i;h.scianimator("drawImage",g.currentFrame);h.scianimator("hilightCurrent");return h},loopMode:function(){a("loop mode");var j=e(this);var i=j.data("scianimator");var g=i.settings.loopMode;if(c.LOOP_MODE_NONE===i.settings.loopMode){i.settings.loopMode=c.LOOP_MODE_LOOP}else{if(c.LOOP_MODE_LOOP===i.settings.loopMode){i.settings.loopMode=c.LOOP_MODE_SWEEP}else{if(c.LOOP_MODE_SWEEP===i.settings.loopMode){i.direction=c.DIRECTION_FORWARD;i.settings.loopMode=c.LOOP_MODE_NONE}}}var h=(i.settings.utf8&&i.settings.labels.utf8.loop!==undefined)?i.settings.labels.utf8.loop[i.settings.loopMode]:i.settings.labels.text.loop[i.settings.loopMode];e("#"+i.controls.loop).removeClass(g).addClass(i.settings.loopMode).html(h);a(i.settings.loopMode);return j},speedUp:function(){a("speed up");var h=e(this);var g=h.data("scianimator");g.settings.delay-=g.settings.delayStep;g.settings.delay=(g.settings.delay<g.settings.delayMin)?g.settings.delayMin:g.settings.delay;h.scianimator("calculateDwell");if(c.PLAY_MODE_PLAYING==g.playMode){h.scianimator("stop").scianimator("play")}a("Delay: "+g.settings.delay);return h},speedDown:function(){a("speed down");var h=e(this);var g=h.data("scianimator");g.settings.delay=(g.settings.delay<=g.settings.delayMin)?0:g.settings.delay;g.settings.delay+=g.settings.delayStep;g.settings.delay=(g.settings.delay>g.settings.delayMax)?g.settings.delayMax:g.settings.delay;h.scianimator("calculateDwell");if(c.PLAY_MODE_PLAYING==g.playMode){h.scianimator("stop").scianimator("play")}a("delay: "+g.settings.delay);return h},calculateDwell:function(){a("calculateDwell");var i=e(this);var h=i.data("scianimator");var g=h.settings.delay*h.settings.dwellMultiplier;if(g<h.settings.delayMin){g=h.settings.delayMin}if(g>h.settings.delayMax){g=h.settings.delayMax}h.dwell=g;a("dwell: "+h.dwell);return i},enableDisable:function(m){a("enableDisable");var j=m.state||"toggle";var k=e(this);var i=k.data("scianimator");var l=parseInt(m.frame,10);var g=e("#"+i.controls.navigator+"-"+l);var h=e.inArray(l,i.disabledFrames);switch(j){case"enable":if(h!=-1){a("enable: "+l);i.disabledFrames.splice(h,1);e(g).removeClass("disabled")}break;case"disable":if(h==-1){a("disable: "+l);i.disabledFrames.push(l);e(g).addClass("disabled")}break;case"toggle":default:if(h!=-1){a("enable: "+l);i.disabledFrames.splice(h,1);e(g).removeClass("disabled")}else{a("disable: "+l);i.disabledFrames.push(l);e(g).addClass("disabled")}}a("disabledFrames:"+i.disabledFrames);return k},hilightCurrent:function(){a("hilightCurrent");var i=e(this);var h=i.data("scianimator");var g=h.controls.navigator;var j=g+"-"+h.currentFrame;e("a","#"+g).removeClass("current");e("#"+j,"#"+g).addClass("current")},loadImages:function(g){a("loadImages");var j=e(this);var i=j.data("scianimator");if("preload"===g){j.scianimator("showStatus",{status:i.settings.labels.text.status.preload})}else{if("refresh"===g){j.scianimator("showStatus",{status:i.settings.labels.text.status.refresh})}}i.frames=[];var h=0;e.each(i.settings.images,function(m,l){var k=e("<img />").load(function(){if(++h===i.settings.images.length){j.scianimator("onLoadImagesComplete")}}).error(function(){a("Image failed to load for frame #"+m+" : "+l);j.scianimator("enableDisable",{frame:m,state:"disable"});if(++h===i.settings.images.length){j.scianimator("onLoadImagesComplete")}});if("refresh"===g){k.attr("src",f(l))}else{k.attr("src",l)}i.frames.push(k[0])});i.lastFrame=i.frames.length-1;return j},onLoadImagesComplete:function(){a("onLoadImagesComplete");var h=e(this);var g=h.data("scianimator");if(g.settings.autoRefresh!==false){g.autoRefreshTimer=self.setTimeout(function(){h.scianimator("refresh")},parseInt(g.settings.autoRefresh,10))}h.scianimator("hideStatus")},refresh:function(){a("refresh");var h=e(this);var g=h.data("scianimator");h.scianimator("loadImages","refresh")},showStatus:function(j){a("showStatus");var i=e(this);var h=i.data("scianimator");i.scianimator("hideStatus");var g=e('<div class="status">'+j.status+"</div>");g.hide().appendTo(i).fadeIn("slow");if(j.timeout!==undefined){self.setTimeout(function(){i.scianimator("hideStatus")},parseInt(j.timeout,10))}return i},hideStatus:function(){a("hideStatus");var h=e(this);var g=h.data("scianimator");e(".status",h).fadeOut("slow",function(){e(this).remove()});return h},listImages:function(){a("list images");var h=e(this);var g=h.data("scianimator");return g.settings.images}};function a(g){if(d.debug&&window.console&&window.console.log){window.console.log(g)}}function f(i){var h=i;var j=i.indexOf("?");var g="";if(j!=-1){h=i.substring(0,j);g=i.substring(j);g=g.replace(/[(?|&)]rand=[^&]+/g,"")}i=h+((g.length)?g+"&":g+"?");i+="rand="+Math.random();return i}})(jQuery);
\ No newline at end of file
diff --git a/misc-R/quantile/model.html b/misc-R/quantile/model.html
new file mode 100644
index 0000000..2933201
--- /dev/null
+++ b/misc-R/quantile/model.html
@@ -0,0 +1,91 @@
+<html>
+<head>
+ <meta charset="utf-8" />
+ <meta name="generator" content="R package animation 2.7">
+ <title>Animations Using the R Language</title>
+ <link rel="stylesheet" href="css/reset.css" />
+ <link rel="stylesheet" href="css/styles.css" />
+ <link rel="stylesheet" href="css/scianimator.css" />
+ <link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/highlight.js/8.3/styles/github.min.css">
+
+ <script src="js/jquery-1.4.4.min.js"></script>
+ <script src="js/jquery.scianimator.min.js"></script>
+ <script type="text/javascript" src="https://cdnjs.cloudflare.com/ajax/libs/highlight.js/8.3/highlight.min.js"></script>
+ <script type="text/javascript" src="https://cdnjs.cloudflare.com/ajax/libs/highlight.js/8.3/languages/r.min.js"></script>
+ <script>hljs.initHighlightingOnLoad();</script>
+
+</head>
+<body>
+
+ <div class="scianimator"><div id="Rplot" style="display: inline-block;"></div></div>
+ <div class="scianimator" style="width: 1600px; text-align: left"><pre><code class="r">## Animations generated in R version 4.4.1 (2024-06-14) using the package animation
+library(animation)
+library(RColorBrewer)
+library(onlineforecast)
+library(quantreg)
+library(SparseM)
+library(testthat)
+library(devtools)
+library(usethis)
+for (i in k:(60)) {
+ par(mfrow = c(2, 1))
+ par(mar = c(2, 4, 2, 2))
+ with(Pred_model, {
+ plot(Dtrain$t[(i - 10):(i + k)], Dtrain$Ps[(i - 10):(i +
+ k)], bty = "l", lwd = 2, col = "black", pch = 19,
+ cex = 0.5, axes = FALSE, xaxt = "n", type = "n",
+ ylim = range(Dtrain$Ps[(i - 10):(i + k)], q0.5[i,
+ ], q0.95[i, ], q0.05[i, ], na.rm = T), main = "TimeAdaptive with Weights",
+ xlab = "Time", ylab = "Ps")
+ axis(2)
+ polygon(c(Dtrain$t[(i + 1):(i + k)], rev(Dtrain$t[(i +
+ 1):(i + k)])), c(Pred_model$q0.05[i, ], rev(Pred_model$q0.2[i,
+ ])), col = colSeq[3], border = NA)
+ polygon(c(Dtrain$t[(i + 1):(i + k)], rev(Dtrain$t[(i +
+ 1):(i + k)])), c(Pred_model$q0.8[i, ], rev(Pred_model$q0.95[i,
+ ])), col = colSeq[3], border = NA)
+ polygon(c(Dtrain$t[(i + 1):(i + k)], rev(Dtrain$t[(i +
+ 1):(i + k)])), c(Pred_model$q0.2[i, ], rev(Pred_model$q0.5[i,
+ ])), col = colSeq[4], border = NA)
+ polygon(c(Dtrain$t[(i + 1):(i + k)], rev(Dtrain$t[(i +
+ 1):(i + k)])), c(Pred_model$q0.5[i, ], rev(Pred_model$q0.8[i,
+ ])), col = colSeq[4], border = NA)
+ lines(Dtrain$t[(i - 10):(i + k)], Dtrain$Ps[(i -
+ 10):(i + k)], col = "black", type = "b", lwd = 2)
+ lines(Dtrain$t[(i + 1):(i + k)], q0.5[i, ], type = "b",
+ col = "grey", lwd = 2)
+ axis.POSIXct(side = 1, x = Dtrain$t[(i - 10):(i +
+ k)], at = seq(from = Dtrain$t[(i - 10):(i + k)][1],
+ to = Dtrain$t[(i - 10):(i + k)][length(Dtrain$t[(i -
+ 10):(i + k)])], by = "1 hour"), format = "%Y/%m/%d %H:%M \n %a",
+ las = 1, cex.axis = 1, srt = 45)
+ plot(Dtrain$t[(i - 10):(i + k)], c(rep(NA, 11), as.numeric(Dtrain$I[i,
+ 1:k])), type = "b", col = "steelblue", axes = FALSE,
+ xlab = "Time", ylab = "Temp", lwd = 2, ylim = range(Dtrain$I[i,
+ 1:k], Dtrain$Iobs[(i + 1):(i + k)]))
+ lines(Dtrain$t[(i + 1):(i + k)], Dtrain$Iobs[(i +
+ 1):(i + k)], type = "b", col = "red", lwd = 2)
+ axis(2)
+ abline(h = 0, v = Dtrain$t[i], lty = 2, col = "lightgrey",
+ lwd = 2)
+ legend("topleft", legend = c("Ta Obs", "Ta Pred"),
+ col = c("red", "steelblue"), lty = 1, cex = 1,
+ lwd = 2)
+ i
+ axis.POSIXct(side = 1, x = Dtrain$t[(i - 10):(i +
+ k)], at = seq(from = Dtrain$t[(i - 10):(i + k)][1],
+ to = Dtrain$t[(i - 10):(i + k)][length(Dtrain$t[(i -
+ 10):(i + k)])], by = "1 hour"), format = "%Y/%m/%d %H:%M \n %a",
+ las = 1, cex.axis = 1, srt = 45)
+ })
+}
+## R version 4.4.1 (2024-06-14)
+## Platform: x86_64-pc-linux-gnu
+## Other packages: animation 2.7, RColorBrewer 1.1-3, onlineforecast
+## 1.0.2, quantreg 5.99, SparseM 1.84-2, testthat 3.2.1.1, devtools 2.4.5,
+## usethis 3.0.0</code></pre></div>
+ <script src="js/Rplot.js"></script>
+<!-- highlight R code -->
+
+</body>
+</html>
diff --git a/misc-R/quantile/quantile_Solar.R b/misc-R/quantile/quantile_Solar.R
index 772e427..9d55208 100644
--- a/misc-R/quantile/quantile_Solar.R
+++ b/misc-R/quantile/quantile_Solar.R
@@ -47,29 +47,32 @@ D$scoreperiod <- in_range("2009-06-10", D$t)
Dtrain <- subset(D, in_range(tstart,D$t,tend))
+
+## Create the model, where N1 is the initial number of data points - for the cold start
model <- qmodel$new(N1 = 50)
+## The output is the Ps from the Dsolar data
model$output = "Ps"
-
+## The design matrix, here we are using 5 bsplines fixed at 5 and 18 hour of the day - ie when sun is up and down.
model$add_inputs(I = "bspline(tday, df=5, Boundary.knots=c(5,18)) %**% I")
+## Add the regularization parameter, lambda, and the bounds
model$add_regprm("rls_prm(lambda=0.9)")
model$add_prmbounds(lambda = c(0.99, 0.999, 0.9999))
-
+### Setup of the booking keeping matrix -
+##############################################################
+####### THIS SHOULD BE DONE IN quantile_fit.R ################
+##############################################################
## First 5 columns are the input Matrix
model$IX <- 0:4
-
+## The number of predictors, we could just use the length of the input matrix or the IX
+model$K <- 5
## The output column is the 6th one
model$Iy <- 5
-model$K <- 5
-
+## Just quick fun to see the transformation
+## maybe have splines that sum to one always..
model$datatr <- model$transform_data(Dtrain)
-
-model$tau <- c(0.05,0.2, 0.5, 0.8,0.95)
-model$kseq <- 1:24
-#opt_model <- quantile_optim(model = model, data = Dnew)
-
plot(Dtrain$I$k1[1:100], type = "l")
lines(model$datatr$I.bs1$k1, col = "red")
lines(model$datatr$I.bs2$k1, col = "red")
@@ -78,6 +81,15 @@ lines(model$datatr$I.bs4$k1, col = "red")
lines(model$datatr$I.bs5$k1, col = "red")
+
+## Select which quantiles we want to optimise and fit
+model$tau <- c(0.05,0.2, 0.5, 0.8,0.95)
+## Select which prediction horizon
+model$kseq <- c(1,4,8,12,24)
+model$kseq <- 1:24
+
+#opt_model <- quantile_optim(model = model, data = Dtrain)
+
PAR <- c("lambda" = 0.999)
quantile_fit(prm = PAR, model = model, data = Dtrain, q = model$tau[1])
PAR <- c("lambda" = 0.999)
@@ -93,7 +105,11 @@ quantile_fit(prm = PAR, model = model, data = Dtrain, q = model$tau[5])
Pred_model <- quantile_predict(model = model, datatr = model$datatr)
-
+plot(Dtrain$Ps, type = "l")
+lines(Pred_model$q0.05[,"k24"], type = "l", col = "green")
+lines(Pred_model$q0.5[,"k24"], type = "l", col = "blue")
+#lines(Pred_model$q0.5[,"k1"], type = "l", col = "green")
+lines(Pred_model$q0.95[,"k24"], type = "l", col = "red")
@@ -164,3 +180,82 @@ i
}
+
+
+
+
+
+
+
+
+
+
+
+
+library(animation)
+k <- 24
+colSeq <- grey(seq(0.9,0.1,len=3))
+#colSeq <- colorJet(nPolygons)
+
+require( RColorBrewer )
+colSeq <- brewer.pal(11 , "Spectral" )
+
+saveHTML({
+for(i in k:(60)){
+
+ par(mfrow = c(2,1))
+ par(mar = c(2,4,2,2)) # bottom left top right
+
+ with(Pred_model, {
+
+ plot(Dtrain$t[(i-10):(i+k)], Dtrain$Ps[(i-10):(i+k)], bty = "l", lwd = 2, col = "black", pch=19, cex=0.5, axes = FALSE, xaxt = "n",
+ type="n", ylim = range(Dtrain$Ps[(i-10):(i+k)], q0.5[i,], q0.95[i,], q0.05[i,], na.rm = T), main = "TimeAdaptive with Weights", xlab = "Time", ylab = "Ps")
+
+ axis(2)
+
+
+
+ polygon(c(Dtrain$t[(i+1):(i+k)], rev(Dtrain$t[(i+1):(i+k)])),
+ c(Pred_model$q0.05[i,],rev(Pred_model$q0.2[i,])), col= colSeq[3], border = NA)
+ polygon(c(Dtrain$t[(i+1):(i+k)], rev(Dtrain$t[(i+1):(i+k)])),
+ c(Pred_model$q0.8[i,],rev(Pred_model$q0.95[i,])), col= colSeq[3], border = NA)
+
+ polygon(c(Dtrain$t[(i+1):(i+k)], rev(Dtrain$t[(i+1):(i+k)])),
+ c(Pred_model$q0.2[i,],rev(Pred_model$q0.5[i,])), col= colSeq[4], border = NA)
+ polygon(c(Dtrain$t[(i+1):(i+k)], rev(Dtrain$t[(i+1):(i+k)])),
+ c(Pred_model$q0.5[i,],rev(Pred_model$q0.8[i,])), col= colSeq[4], border = NA)
+
+
+ lines(Dtrain$t[(i-10):(i+k)], Dtrain$Ps[(i-10):(i+k)], col = "black", type = "b", lwd = 2)
+ lines(Dtrain$t[(i+1):(i+k)], q0.5[i,], type = "b", col = "grey", lwd = 2)
+
+ axis.POSIXct(side = 1, x = Dtrain$t[(i-10):(i+k)],
+ at = seq(from = Dtrain$t[(i-10):(i+k)][1],
+ to = Dtrain$t[(i-10):(i+k)][length(Dtrain$t[(i-10):(i+k)])],
+ by = "1 hour"), format = "%Y/%m/%d %H:%M \n %a",
+ las = 1, cex.axis = 1, srt = 45)
+
+ #lines(Pred_model$q0.05[i,], type = "b", col = "blue")
+ #lines(Pred_model$q0.95[i,], type = "b", col = "blue")
+
+ plot(Dtrain$t[(i-10):(i+k)], c(rep(NA,11), as.numeric(Dtrain$I[i, 1:k])), type = "b", col = "steelblue", axes = FALSE, xlab = "Time", ylab = "Temp", lwd = 2, ylim = range(Dtrain$I[i, 1:k], Dtrain$Iobs[(i+1):(i+k)]))
+ #lines(Dtrain$t[i], Dtrain$Iobs[i+1,1], type = "b", col = "red", axes = FALSE)
+ lines(Dtrain$t[(i+1):(i+k)], Dtrain$Iobs[(i+1):(i+k)], type = "b", col = "red", lwd = 2)
+ axis(2)
+ abline(h=0,v=Dtrain$t[i],lty=2, col = "lightgrey", lwd = 2)
+
+ legend("topleft", legend=c("Ta Obs", "Ta Pred"),
+ col=c("red", "steelblue"), lty=1, cex=1, lwd = 2)
+
+
+i
+ axis.POSIXct(side = 1, x = Dtrain$t[(i-10):(i+k)],
+ at = seq(from = Dtrain$t[(i-10):(i+k)][1],
+ to = Dtrain$t[(i-10):(i+k)][length(Dtrain$t[(i-10):(i+k)])],
+ by = "1 hour"), format = "%Y/%m/%d %H:%M \n %a",
+ las = 1, cex.axis = 1, srt = 45)
+ })
+
+
+}}, htmlfile = "misc-R/quantile/model.html", ani.height = 800, ani.width = 1600)
+
diff --git a/misc-R/quantile/rls.R b/misc-R/quantile/rls.R
new file mode 100644
index 0000000..aafedad
--- /dev/null
+++ b/misc-R/quantile/rls.R
@@ -0,0 +1,50 @@
+rls <- function(frml, lambda, data, k) {
+
+ # R build-in function for setting up linear regression model
+ mf <- model.frame(as.formula(frml), data, na.action = na.pass)
+ # The model output
+ y <- mf[ ,1]
+ # The design matrix
+ X <- model.matrix(as.formula(frml), mf)
+
+ # The number of observations
+ n <- nrow(X)
+ # The number of parameters
+ p <- ncol(X)
+ # Parameter matrix
+ Theta <- matrix(as.numeric(NA), nrow = n, ncol = p)
+ # The predictions
+ yhat <- as.numeric(rep(NA,n))
+ # The parameter vector
+ theta <- matrix(rep(0,p), ncol = 1)
+
+ # Start value for the parameter covariance P
+ P <- 10000 * diag(1, p)
+ # Use the inverse in the RLS
+ R <- solve(P)
+
+ # Iterate through and estimate the parameters
+ for (i in 1:(n-k)) {
+ x <- matrix(X[i, ])
+ # Check for NAs in inputs and output
+ if(all(!is.na(x)) & !is.na(y[i])){
+ # Update
+ R <- lambda * R + x %*% t(x)
+ theta <- theta + solve(R, x) %*% (y[i] - t(x) %*% theta)
+ Theta[i, ] <- t(theta)
+ }
+ # Predict
+ x <- matrix(X[i+k, ])
+ if(all(!is.na(x))){
+ yhat[i+k] <- t(x) %*% theta
+ }
+ }
+
+ # Return a list
+ L <- list()
+ L$residuals <- y - yhat
+ L$X <- X
+ L$y <- y
+ L$Theta <- Theta
+ return(L)
+}
diff --git a/src/rq_init_cpp.cpp b/src/rq_init_cpp.cpp
index 4a780b2..7027189 100755
--- a/src/rq_init_cpp.cpp
+++ b/src/rq_init_cpp.cpp
@@ -18,7 +18,7 @@ Rcpp::List rq_init_cpp(arma::mat X,
if(Lr0 > beta.n_elem){
- Rcout << "Worked" << "\n";
+ // Rcout << "Worked" << "\n";
arma::uvec Irs = sort_index(abs(R));
Irs = Irs.subvec(0,Lr0-1);
arma::mat Xh = X.rows(Irs);
diff --git a/src/rq_simplex_cpp.cpp b/src/rq_simplex_cpp.cpp
index 5890c20..d3e1a02 100755
--- a/src/rq_simplex_cpp.cpp
+++ b/src/rq_simplex_cpp.cpp
@@ -21,14 +21,27 @@ Rcpp::List rq_simplex_cpp(arma::mat X,
arma::vec cC = arma::join_cols(arma::ones<arma::vec>(K) * tau, arma::ones<arma::vec>(K) * (1-tau));
-
-
+ // This here below will give problem if there is NA in the design matrix
+ // The sort_index will fail, and so, somehow in sorting then we need to make sure that
+ // index with NA needs to be removed or not used.
//Rcout << Xny .rows(Ihc) << "\n";
+ // Rcout << X.rows(Ihc) << "\n";
+ // Rcout << "bingooo" << "\n";
+ // Rcout << Ihc << "\n";
+ // Rcout << "faar" << "\n";
+ // Rcout << invXh << "\n";
arma::mat IB2 = -(P * arma::ones<arma::vec>(K).t() % X.rows(Ihc))*invXh;
+ // Rcout << cB << "\n";
+ // Rcout << "bluee" << "\n";
+ // Rcout << IB2.t() << "\n";
arma::vec g = IB2.t() * cB;
+
+ //Rcout << g << "\n";
+ //Rcout << cC << "\n";
arma::vec d = cC - arma::join_cols(g,-g);
d.elem(find(abs(d) < 1.e-15)).fill(0);
+ // Rcout << d << "\n";
arma::uvec s = sort_index(d);
arma::vec md = sort(d);
diff --git a/src/rq_update_cpp.cpp b/src/rq_update_cpp.cpp
index 17ca40e..f3f523e 100755
--- a/src/rq_update_cpp.cpp
+++ b/src/rq_update_cpp.cpp
@@ -33,7 +33,7 @@ Rcpp::List rq_update_cpp(arma::mat newX,
X = W * X;
}
- X = join_cols(X, newX);
+ // X = join_cols(X, newX);
// Rolling window of leaving the design matrix
// i.e. the last observation leaves the matrix
@@ -110,7 +110,8 @@ Rcpp::List rq_update_cpp(arma::mat newX,
double rny = arma::as_scalar(newX(kk, Iy)) - Ypred;
//Rcout << "rny" << rny << "\n";
-
+ X = join_cols(X, newX);
+
int szR = Rny.size();
Rny.resize(szR+1);
Rny(szR) = rny;
--
GitLab