if (FALSE) #takes too long
knotoptim(
svg = system.file("4_1_first_draft.svg",package="knotR"),
Mver = rbind(c(2,3),c(9,7),c(10,6),c(1,4),c(5,11)),
xver = 8, # node on vertical axis
ou = rbind( c(1,5), c(9,2), c(4,8),c(6,11)),
prob = 0.1,
iterlim = 100, print.level=2)
Run the code above in your browser using DataLab