proc plotData data {

	global Data DataCount
	global VecCt NumCols

	set sv [keylget Data($DataCount) sample]
	set svi [crange $sv 1 end]
#	puts stderr "sample vector is $sv, append to others now"

	set i [expr $svi + 1]
	foreach j $NumCols {
		upvar #0 V$i V$i
		set v [lindex $data $j]
		set err [catch {V$i append $v}]
		if {$err} {
			puts stderr "ERROR appending value $v to vector $i"
		}
		incr i
	}
}
