FUNGSI DENGAN OPERASI SOFTWARE R

Apa Fungsi dari Pemrograman R?

Fungsi R sangat cocok digunakan untuk riset, baik secara statistik, komputasi numerik, geografi, ekonomi, maupun pemrograman komputer. Bahasa pemrograman R menyediakan bermacam-macam teknik statistika seperti pemodelan linier dan nonlinier, analisis deret waktu, statistik klasik, dan lain sebagainya. Adanya fungsi pada R dapat memudahkan kita untuk memperoleh nilai perhitungan yang rumit menjadi sederhana. Adapun beberapa fungsi dengan operasi software R sebagai berikut :

  1. Menghitung Luas Segitiga
> program menghitung luas segitiga
> Lsegitiga<-function(a,t){
+ Luas=0.5*a*t
+ return(Luas)
+ }
> Lsegitiga(2,5)[1] 5
> Lsegitiga(10,5)
[1] 25
  1. Menghitung Luas Lingkaran
> program menghitung luas lingkaran
> Llingkaran<-function(r){
+ Ll=pi*r*r
+ return(Ll)
+ }
> Llingkaran(10)
[1] 314.1593
  1. Menghitung Luas Balok
> program menghitung luas balok
> Lbalok<-function(p,l,t){
+ luas=(2*p*l)+(2*p*t)+(2*l*t)
+ return(luas)
+ }
> Lbalok(2,3,4)
[1] 52
  1. Menghitung luas balok dengan fungsi if
> program menghitung luas balok dengan “if”
> Lbalok<-function(p,l,t){
+ if(p<0){
+ print("masukkan nilai panjang yang positif")
+ luas=(2*p*l)+(2*p*t)+(2*l*t)
+ }else{
+ luas=(2*p*l)+(2*p*t)+(2*l*t)
+ }
+ return(luas)
+ }
> Lbalok(-2,3,4)
[1] "masukkan nilai panjang yang positif"
[1] -4
> program menghitung luas balok dengan “if: atau”
> Lbalok<-function(p,l,t){
+ if(p<0||l<0||t<0){
+ print("masukkan nilai panjang, lebar, dan tinggi yang positif")
+ luas=(2*p*l)+(2*p*t)+(2*l*t)
+ }else{
+ luas=(2*p*l)+(2*p*t)+(2*l*t)
+ }
+ return(luas)
+ }
> Lbalok(3,-4,-5)
[1] "masukkan nilai panjang, lebar, dan tinggi yang positif"
[1] -14
> program menghitung luas balok dengan “if: dan”
> Lbalok<-function(p,l,t){
+ if(p<0&&l<0&&t<0){
+ print("masukkan nilai panjang, lebar, dan tinggi yang positif")
+ luas=(2*p*l)+(2*p*t)+(2*l*t)
+ }else{
+ luas=(2*p*l)+(2*p*t)+(2*l*t)
+ }
+ return(luas)
+ }
> Lbalok(-2,3,4)
[1] -4
> contoh lain
> bintang<-function(a,b){
+ hasil=(a^b+(a-b)+a*b)/b
+ return(hasil)
+ }
> bintang(4,2)
[1] 13

Leave a Reply