Please use only RStudio, do not need 3 pages of explanation, just codes in RStudio. Thanks.

It is known that the total number of heart beats in a life time is about 1 billion for most species of mammals and birds. That is, xy=C, where x= Heart beat rate [beats/min], y= Life expectancy [years], and C is some constant. The equation can be also writen as y=xC=Cx1 The following table shows the life expectancies and heart beat rates of 6 animal. (a) Find the regression equation. y^=x (b) Cats have an average heart beat rate of 150 beats per minute. Their life expectancy is estimated as years