### R code from vignette source 'C:/Bendix/teach/NSCE/2022/pracs/ATCB-vitE-sol.rnw'

###################################################
### code chunk number 1: ATCB-vitE-sol.rnw:37-41
###################################################
rate <- c(11.6,17.8)
D <- c(99,151)
names(rate) <- names(D) <- c("VitE","Plc")
D / (rate/10000)


###################################################
### code chunk number 2: ATCB-vitE-sol.rnw:53-54
###################################################
rate[1]/rate[2]


###################################################
### code chunk number 3: ATCB-vitE-sol.rnw:59-60
###################################################
rate[1]-rate[2]


###################################################
### code chunk number 4: ATCB-vitE-sol.rnw:68-70
###################################################
PF <- (rate["Plc"]-rate["VitE"])/rate["Plc"]
100*round(PF,3)