คำนวณปริมาณคาร์บอนที่สะสมในไม้ยืนต้น (ทั่วไป)

สร้าง Function สำหรับใช้คำนวณ

C2D<-function(circumference){
circumference/3.1416
}

Ws<-function(diameter, height){
0.0396*((diameter^2)*height)^0.933
}

Wb<-function(diameter, height){
  0.00349*((diameter^2)*height)^1.030
}

Wl<-function(diameter, height) {
  A <- Ws(diameter, height)
  B <- Wb(diameter, height)
  28/((A+B+0.025)^-1)
}

Carbon<-function(circumference, height){
diameter<-C2D(circumference)
A <- Ws(diameter, height)
B <- Wb(diameter, height)
C<-Wl(diameter, height)
Wt<-A+B+C
root<-Wt*0.27
(Wt+root)*0.47
}

กำหนดค่าตัวแปร

c<-c(20, 15, 30, 45, 27)
h<-c(12, 10, 14, 20, 13)

หาคำตอบ

Carbon(c, h)

[1]  256.0375  125.2432  637.9469 1929.4910  487.1726