slight modifications to code.R
add experimental test page