library(rJava)
.jinit(classpath="c:/pedviz_j3d_0.1.jar;C:/Programme/Java/Java3D/1.5.0/lib/ext/j3dcore.jar;C:/Programme/Java/Java3D/1.5.0/lib/ext/j3dutils.jar;C:/Programme/Java/Java3D/1.5.0/lib/ext/vecmath.jar;")
pedviz <- .jnew("pedviz/rpedviz/RPedviz3D")

.jcall(pedviz, "V", "addQualitativeTrait", "qtrait", 0, 1, 0.5, 0)

pedigree <- as.vector(readLines("c:/tutorial_data_2.csv"))
format <- pedigree[1]
data <- .jarray(pedigree[2:length(pedigree)])
hints <- .jarray(c("qtrait"))

.jcall(pedviz, "V", "plot", format, data, hints)