FC=4000 Q=1000 TVC=5000
VC=TVC/Q
VC
## [1] 5
SP=((FC/Q)+VC)
SP
## [1] 9
TC=FC+TVC
TC
## [1] 9000
TP=5000
TR=TC+TP
TR
## [1] 14000
SP5000=TR/Q
SP5000
## [1] 14
Note that the echo = FALSE parameter was added to the
code chunk to prevent printing of the R code that generated the
plot.