1. Introduction

The Fahrenheit scale is used to measure temperature in the United States, while the Celsius scale is used in other countries. The purpose of this tutorial is to write R function to convert Fahrenheit scale to Celsius scale and vice versa.

2.1 Formula converting Fahrenheit to Celsius.

This is a formula for converting Fahrenheit to Celsius.

\[ C = (F-32) \frac{5}{9} \] For example we want to convert 98.6 °F to °C. \[ C = (98.6-32) \frac{5}{9} = 37 \]

2.2 Function converting Fahrenheit to Celsius.

f_to_c <- function(temp_F){
temp_C <- (temp_F -32)*5/9
return(temp_C)
}

We put 98.6to function f_to_c(98.6), then the this is the value we need.

f_to_c(98.6)
## [1] 37

(98.6 °F) equall to 37 °C

3.1 Formula converting Celsius to Fahrenheit.

Similarly, we can write function convert Celsius to Fahrenheit.

This is a formula for converting Celsius to Fahrenheit.

\[ F = C* \frac{9}{5} +32 \] For example we want to convert 37°C to °F. \[ F = 37 *\frac{9}{5} + 32 = 98.6 \]

3.2 Function converting Celsius to Fahrenheit

c_to_f <- function(temp_c){
  temp_f <- temp_c*9/5 +32
  return(temp_f)
}

We convert 37°C to °F based this above function by typing c_to_f(37).

c_to_f(37)
## [1] 98.6

Hence, we have written function calculating 37°C equally to 98.6°F

LS0tDQp0aXRsZTogIldyaXRpbmcgRnVuY3Rpb24gdG8gY29udmVydCB0ZW1wZXJhdHVyZSBpbiBSICINCmF1dGhvcjogIkhlbnJ5IERvLCBaYWxvIG51bWJlcjogIDA5ODU2NjE5MDgiDQpkYXRlOiAiYHIgU3lzLkRhdGUoKWAiDQpvdXRwdXQ6DQogIGh0bWxfZG9jdW1lbnQ6DQogICAgY29kZV9kb3dubG9hZDogeWVzDQogICAgY29kZV9mb2xkaW5nOiBoaWRlDQogICAgdG9jOiB5ZXMNCiAgICB0b2NfZmxvYXQ6IG5vDQogIHdvcmRfZG9jdW1lbnRzOg0KICAgIHRvYzogeWVzDQoNCi0tLQ0KDQpgYGB7ciBzZXR1cCwgaW5jbHVkZT1GQUxTRX0NCmtuaXRyOjpvcHRzX2NodW5rJHNldChlY2hvID0gVFJVRSwgd2FybmluZyA9IEZBTFNFLCBtZXNzYWdlID0gRkFMU0UpDQpgYGANCg0KIyMgMS4gSW50cm9kdWN0aW9uDQpUaGUgRmFocmVuaGVpdCBzY2FsZSBpcyB1c2VkIHRvIG1lYXN1cmUgdGVtcGVyYXR1cmUgaW4gdGhlIFVuaXRlZCBTdGF0ZXMsIHdoaWxlIHRoZSBDZWxzaXVzIHNjYWxlIGlzIHVzZWQgaW4gb3RoZXIgY291bnRyaWVzLg0KVGhlIHB1cnBvc2Ugb2YgdGhpcyB0dXRvcmlhbCBpcyAgdG8gd3JpdGUgUiBmdW5jdGlvbiB0byBjb252ZXJ0IEZhaHJlbmhlaXQgc2NhbGUgdG8gQ2Vsc2l1cyBzY2FsZSBhbmQgdmljZSB2ZXJzYS4NCg0KIyMgMi4xIEZvcm11bGEgY29udmVydGluZyBGYWhyZW5oZWl0IHRvIENlbHNpdXMuDQpUaGlzIGlzIGEgZm9ybXVsYSBmb3IgY29udmVydGluZyBGYWhyZW5oZWl0IHRvIENlbHNpdXMuDQoNCiQkDQpDID0gKEYtMzIpIFxmcmFjezV9ezl9DQokJA0KRm9yIGV4YW1wbGUgd2Ugd2FudCB0byBjb252ZXJ0IDk4LjYgwrBGIHRvIMKwQy4NCiQkDQpDID0gKDk4LjYtMzIpIFxmcmFjezV9ezl9ID0gMzcNCiQkDQoNCg0KIyMgMi4yIEZ1bmN0aW9uIGNvbnZlcnRpbmcgRmFocmVuaGVpdCB0byBDZWxzaXVzLg0KYGBge3J9DQpmX3RvX2MgPC0gZnVuY3Rpb24odGVtcF9GKXsNCnRlbXBfQyA8LSAodGVtcF9GIC0zMikqNS85DQpyZXR1cm4odGVtcF9DKQ0KfQ0KYGBgDQoNCldlIHB1dCBgOTguNiBgdG8gZnVuY3Rpb24gYGZfdG9fYyg5OC42KWAsIHRoZW4gdGhlIHRoaXMgaXMgdGhlIHZhbHVlIHdlIG5lZWQuDQpgYGB7cn0NCmZfdG9fYyg5OC42KQ0KYGBgDQogYCg5OC42IMKwRilgIGVxdWFsbCB0byBgYHIgZl90b19jKDk4LjYpYGAgwrBDDQoNCiMjIDMuMSBGb3JtdWxhIGNvbnZlcnRpbmcgQ2Vsc2l1cyB0byBGYWhyZW5oZWl0Lg0KU2ltaWxhcmx5LCB3ZSBjYW4gd3JpdGUgZnVuY3Rpb24gY29udmVydCBDZWxzaXVzIHRvIEZhaHJlbmhlaXQuIA0KDQpUaGlzIGlzIGEgZm9ybXVsYSBmb3IgY29udmVydGluZyBDZWxzaXVzIHRvIEZhaHJlbmhlaXQuDQoNCiQkDQpGID0gQyogIFxmcmFjezl9ezV9ICszMg0KJCQNCkZvciBleGFtcGxlIHdlIHdhbnQgdG8gY29udmVydCAgYDM3wrBDYCB0byBgwrBGYC4NCiQkDQpGID0gMzcgKlxmcmFjezl9ezV9ICsgMzIgPSA5OC42DQokJA0KDQoNCg0KIyMgMy4yIEZ1bmN0aW9uIGNvbnZlcnRpbmcgQ2Vsc2l1cyB0byBGYWhyZW5oZWl0DQpgYGB7cn0NCmNfdG9fZiA8LSBmdW5jdGlvbih0ZW1wX2Mpew0KICB0ZW1wX2YgPC0gdGVtcF9jKjkvNSArMzINCiAgcmV0dXJuKHRlbXBfZikNCn0NCmBgYA0KDQpXZSBjb252ZXJ0ICBgMzfCsENgIHRvIGDCsEZgIGJhc2VkIHRoaXMgYWJvdmUgZnVuY3Rpb24gYnkgdHlwaW5nIGBjX3RvX2YoMzcpYC4NCmBgYHtyfQ0KY190b19mKDM3KQ0KYGBgDQpIZW5jZSwgd2UgaGF2ZSB3cml0dGVuIGZ1bmN0aW9uIGNhbGN1bGF0aW5nIGAzN8KwQ2AgZXF1YWxseSB0byAgIGBgciBjX3RvX2YoMzcpYMKwRmANCg==