add r script
compare stack trace