sligtly modfied test6.R