if (FALSE) {
ours <- PAMM(numsim=10,group=c(seq(10,50,10),100),repl=c(3,4,6),
randompart=c(0.4,0.1,0.5,0.1),fixed=c(0,1,0.7))
plot(ours, "both")
plot(ours, "group",nbrepl=4)
plot(ours,"repl",nbgroup=20)
}
Run the code above in your browser using DataLab