# NOT RUN {
testDat <- data.frame(
t = 1:3,
bone = c(100, 50, 0),
mean = c(1, 3, 50),
sd = c(1, 3, 50)
)
computeResult(
data = testDat,
timeVars = "t",
boneVars = "bone",
meanVar = "mean",
sdVar = "sd"
)
# }
Run the code above in your browser using DataLab