Plot result with R
Add IO to all I/O funs