organize
add r script and first 2 charts