inst/unitTests/runit.misc.R

test.parseEpsPolynom <- function() {	
	checkEquals(c(5, 3, 2), 
			gMCP:::parseEpsPolynom("5+3*epsilon+2*epsilon^2"))
	checkEquals(c(1), 
			gMCP:::parseEpsPolynom("1"))
	checkEquals(c(5, 3, 2), 
			gMCP:::parseEpsPolynom("2*epsilon*epsilon+5+3*epsilon"))
}

test.matrix2graph <- function() {
	m<-rbind(H1=c("0",         "0",         "0.5",         "0.5"),
			H2=c("0",         "0",         "0.5",         "0.5"),
			H3=c("\\epsilon", "0",         "0",           "1-\\epsilon"),
			H4=c("0",         "\\epsilon", "1-\\epsilon", "0"))
	colnames(m) <- rownames(m)
	m2 <- graph2matrix(matrix2graph(m))
	checkEquals(m, m2)
}

test.makeEpsilonString <- function() {
	checkEquals(gMCP:::makeEpsilonString(1/2,c(1,-1,1/2)),
		"1/2+\\epsilon-\\epsilon^2+1/2*\\epsilon^3")
    checkEquals(gMCP:::makeEpsilonString(0,c(1,-1,1/2)),
			"\\epsilon-\\epsilon^2+1/2*\\epsilon^3")
	checkEquals(gMCP:::makeEpsilonString(1/2,c()),
			"1/2")
}

test.replaceVariables <- function () {
	graph <- HungEtWang2010()
	g <- replaceVariables(graph, list("tau"=0.5,"omega"=0.5, "nu"=0.5))
	checkEquals(unname(g@m), structure(c(0, 0, 0, 0, 0.5, 0, 0.5, 0, 0.5, 0.5, 0, 0, 0, 0.5, 
					0.5, 0), .Dim = c(4L, 4L)))
}

Try the gMCP package in your browser

Any scripts or data that you put into this service are public.

gMCP documentation built on May 29, 2024, 9:37 a.m.