Create melting.r