## Not run:
# ## construct a DimSqueezer object and squeeze
# data(f186)
# ds <- DimSqueezer(as.matrix(f186[,7:12]))
#
# ## squeeze to 2 dimensions
# sq <- ds$squeeze(2, 1000)
#
# ## plot simple points coloured by the amount of stress
# plotPoints(sq)
#
# ## with filled circles
# plotPoints(sq, pch=19)
#
# ## coloured by one of the mapping parameters
# plotPoints(sq, pch=19, col=hsvScale(f186[,'Etv2']) )
#
# ## this can also be done via the generic function:
# plot(sq, ptype='p', pch=19, col=hsvScale(f186[,'Etv2']) )
#
# ## plot the dimensinonality and stress evolution
# plotStress(sq)
#
# ## alternatively
# plot(sq, ptype='s')
#
# ## plot concentric circles
# plotConcentric(sq, cex.data=f186[,7:12], leg.pos='topleft')
#
# ## or as
# plot(sq, ptype='c', cex.data=f186[,7:12])
# ## End(Not run)
Run the code above in your browser using DataLab