R/clean.RIC.R

`clean.RIC` <-
function (data) 
{
    data <- data[data$cowID != 0, ]
    data <- data[data$intake >= 0, ]
    data <- data[data$duration != 0, ]
    rownames(data) <- 1:nrow(data)
    data
}

Try the Animal package in your browser

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

Animal documentation built on May 2, 2019, 5:48 p.m.