add r script + some trash