R/data.R

In nrkoehler/srir: Scoring of the Severe Respiratory Insufficiency Questionnaire (SRI)

#' Randomly generated data frame with no missing values
#'
#' @examples
#' head(srir::df.full)
#'
#' @export
df.full <- data.frame(matrix(ncol=50, nrow=100))
colnames(df.full) <- c('id', paste0('sri.', seq(1, 49, 1)))
df.full$id <- as.character(c(1:100))
for (i in 2:ncol(df.full)){
  df.full[i] = round(runif(100, min = 1, max = 5))
}

#' Randomly generated data frame with some missing values
#'
#' @examples
#' head(srir::df.na)
#'
#' @export
df.na <- df.full
for (i in 2:ncol(df.na)){
  df.na[sample(2:nrow(df.na), 10), i] <- NA
}