1.អនុគមន៍ថ្លៃដើម ចំណូល ប្រាក់ចំណេញ

library(mosaic) library(mosaicCalc)

#1.អនុគមន៍ថ្លៃដើម ចំណូលនិងប្រាក់ចំណេញ #អនុគមន៍តម្លៃ P=50-0.5q #បរិមាណលក់ q #អនុគមន៍ថ្លៃដើមសរុបC(q)=100+10q+0.5*q^2

p <- function(q) {(50 - 0.5 * q)~q} C <- function(q) {(100 + 10 * q + 0.5 * q^2)~q}

#1.2 រកអនុគមន៍ចំណូល R <- makeFun((50 - 0.5 * q)q ~ q) R C <- makeFun((100 + 10 q + 0.5 * q^2)~q) C # រកអនុគមន៌ប្រាក់ចំណេញ P <- makeFun ((50 + 0.5 * q)q-(100 + 10 q + 0.5 * q^2)~q) P

#1.3 សង់ក្រាហ្វិក C(q)&R(q) លើក្រាហ្វិកតែមួយ library(ggplot2) ggplot() + geom_function(fun=C, col=“greenyellow”, lwd=2)+ geom_function(fun=R, col=“dodgerblue1”, lwd=2)+ xlim(1,1100)+ labs(title=“Graph” )

```