inst/systemTest/data/Scripts/rAnalysisScript.R

lmCode <- function(data) {
	myLm <- lm(RESP ~ DOSE, data = data)
	newData <- data.frame(DOSE = sort(unique(data$DOSE)))
	doseMeans <- as.data.frame(predict(myLm, newData, se.fit = TRUE, interval = "confidence")$fit)
	names(doseMeans) <- c("Mean", "Lower", "Upper")
	data.frame(DOSE = sort(unique(data$DOSE)), doseMeans, N = as.vector(table(data$DOSE)))
}

lmCode(data)

Try the MSToolkit package in your browser

Any scripts or data that you put into this service are public.

MSToolkit documentation built on May 2, 2019, 6:30 p.m.