### R code from vignette source 'ResistorArray.Rnw'

###################################################
### code chunk number 1: rra
###################################################
require(ResistorArray)


###################################################
### code chunk number 2: bit1
###################################################
L <- tetrahedron(c(1, 1, Inf, 1, 1, 2))


###################################################
### code chunk number 3: bit2
###################################################
circuit(L,v=c(0, NA, NA, NA),currents=c(NA, 0, 0, 1))