Nothing
### R code from vignette source 'symmoments.rnw'
###################################################
### code chunk number 1: lib
###################################################
library(symmoments)
###################################################
### code chunk number 2: m1234
###################################################
writeLines(toLatex(callmultmoments(c(1,2,3,4))))
###################################################
### code chunk number 3: callmultmoments
###################################################
m1234 <- callmultmoments(c(1,2,3,4))
unclass(m1234)
###################################################
### code chunk number 4: print-method
###################################################
m1234
###################################################
### code chunk number 5: toLatex-method
###################################################
toLatex(m1234)
###################################################
### code chunk number 6: toLatex-method2 (eval = FALSE)
###################################################
## writeLines(toLatex(m1234), "yourfilename")
###################################################
### code chunk number 7: covariance
###################################################
matrix(c(4,2,1,1,2,3,1,1,1,1,2,1,1,1,1,2),nrow=4)
###################################################
### code chunk number 8: evaluate-method
###################################################
evaluate(m1234, c(4, 2, 1, 1, 3, 1, 1, 2, 1, 2))
###################################################
### code chunk number 9: simulate-method
###################################################
#simulate(m1234,1000,NULL, c(1,2,0,3),c(4,2,1,1,2,3,1,1,1,1,2,1,1,1,1,2))
###################################################
### code chunk number 10: noncentral1
###################################################
# as.matrix(toLatex_noncentral(c(1,3)))
###################################################
### code chunk number 11: noncentral2
###################################################
# make.all.moments(c(3,3))
###################################################
### code chunk number 12: noncentral2a
###################################################
# evaluate_noncentral(c(1,3),c(1,2),c(1,0,1))
###################################################
### code chunk number 13: noncentral3a
###################################################
# the mpoly library is required for this example
###################################################
### code chunk number 14: noncentral3
###################################################
# t0 <- mpoly::mpoly(list(c(coef=3,x1=2),c(coef=2,x1=1,x2=3),
# c(coef=-4,z=2),c(coef=1,x1=1,x2=2,z=1)))
# print(t0)
###################################################
### code chunk number 15: <noncentral4
###################################################
# t1 <<- convert.mpoly(t0)
# t1
###################################################
### code chunk number 16: noncentral5
###################################################
# t2 <<- convert.multipol(t1)
# t2
###################################################
### code chunk number 17: noncentral6
###################################################
# print(mpoly::mpoly(convert.mpoly(convert.multipol(t2))))
###################################################
### code chunk number 18: noncentral7
###################################################
# evaluate_expected.polynomial(t0,c(1,2,3),c(1,0,0,1,0,1))
###################################################
### code chunk number 19: trees1
###################################################
exam.Newick <- "(((a,b),c),d);"
###################################################
### code chunk number 20: trees2
###################################################
library(ape)
exam.phylo <- read.tree(text=exam.Newick)
exam.phylo
###################################################
### code chunk number 21: trees3
###################################################
exam.matching <- as.matching(exam.phylo)
exam.matching
###################################################
### code chunk number 22: trees3
###################################################
exam.L.matrix <- toMoment(exam.matching)
exam.L.matrix
###################################################
### code chunk number 23: trees3
###################################################
# backto.matching <- toMatching(exam.L.matrix )
# backto.L.matrix <- toMoment(backto.matching$matching[,c(1,2)])
# backto.Newick <- toNewick(exam.L.matrix$L,type="square")
# backto.L.matrix.tips <- toMoment(exam.Newick,tip.label=c("d","a","c","b"))
# backto.phylo <- as.phylo.matching(backto.matching)
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.