script
more work on sending weights to R