########
demo.FCAk <- function(data)
 {cat(" If you've got a nice little dataset say with 4 or 5 entries","\n",
       " send it to me  and I'll put the demo in the next release ","\n")
   cat(" didier@fmrib.ox.ac.uk ","\n")
   }
#########
demo.FCAk()
cat("\n","\n","args(demo.FCAk)","\n")
print(args(demo.FCAk))
