Create intphen_lib.R