Nothing
### Three examples.
exA1 <- list(
description = "https://www.nag.com/numeric/fl/nagdoc_fl22/xhtml/F08/f08pnf.xml",
A = matrix(c(-3.97 -5.04i, -4.11 +3.70i, -0.34 +1.01i, 1.29 -0.86i,
0.34 -1.50i, 1.52 -0.43i, 1.88 -5.38i, 3.36 +0.65i,
3.31 -3.85i, 2.50 +3.45i, 0.88 -1.08i, 0.64 -1.48i,
-1.10 +0.82i, 1.81 -1.59i, 3.25 +1.33i, 1.57 -3.44i),
nrow = 4, byrow = T)
)
exA2 <- list(
description = "https://www.nag.com/numeric/fl/nagdoc_fl22/xhtml/F08/f08paf.xml",
A = matrix(c( 0.35, 0.45, -0.14, -0.17,
0.09, 0.07, -0.54, 0.35,
-0.44, -0.33, -0.03, 0.17,
0.25, -0.32, -0.13, 0.11),
nrow = 4, byrow = T)
)
exA3 <- list(
description = "https://www.nag.com/numeric/fl/nagdoc_fl23/xhtml/F08/f08quf.xml",
T = matrix(c(-6.0004 -6.9999i, 0.3637 -0.3656i, -0.1880 +0.4787i, 0.8785 -0.2539i,
0.0000 +0.0000i, -5.0000 +2.0060i, -0.0307 -0.7217i, -0.2290 +0.1313i,
0.0000 +0.0000i, 0.0000 +0.0000i, 7.9982 -0.9964i, 0.9357 +0.5359i,
0.0000 +0.0000i, 0.0000 +0.0000i, 0.0000 +0.0000i, 3.0023 -3.9998i),
nrow = 4, byrow = T),
Q = matrix(c(-0.8347 -0.1364i, -0.0628 +0.3806i, 0.2765 -0.0846i, 0.0633 -0.2199i,
0.0664 -0.2968i, 0.2365 +0.5240i, -0.5877 -0.4208i, 0.0835 +0.2183i,
-0.0362 -0.3215i, 0.3143 -0.5473i, 0.0576 -0.5736i, 0.0057 -0.4058i,
0.0086 +0.2958i, -0.3416 -0.0757i, -0.1900 -0.1600i, 0.8327 -0.1868i),
nrow = 4, byrow = T)
)
exA4 <- list(
description = "https://www.nag.com/numeric/fl/nagdoc_fl22/xhtml/F08/f08qgf.xml",
T = matrix(c(0.7995, -0.1144, 0.0060, 0.0336,
0.0000, -0.0994, 0.2478, 0.3474,
0.0000, -0.6483, -0.0994, 0.2026,
0.0000, 0.0000, 0.0000, -0.1007),
nrow = 4, byrow = T),
Q = matrix(c( 0.6551, 0.1037, 0.3450, 0.6641,
0.5236, -0.5807, -0.6141, -0.1068,
-0.5362, -0.3073, -0.2935, 0.7293,
0.0956, 0.7467, -0.6463, 0.1249),
nrow = 4, byrow = T)
)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.