inst/unitTests/test_NetSAM.R

test_NetSAM <- function(){
	data(inputNetwork)
	outputFileName <- paste(getwd(),"/NetSAM",sep="")
	result <- NetSAM(inputNetwork, outputFileName)
	checkTrue(!is.na(result[1]))
	checkTrue(!is.na(result[2]))
	checkTrue(!is.na(result[3]))
}

Try the NetSAM package in your browser

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

NetSAM documentation built on Nov. 8, 2020, 6:50 p.m.