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.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.6
to 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.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==