data-raw/make_chargaff1969.R

In brouwern/compbio4all: Datasets and helpful functions for learning bioinformatics and computational biology

#Rudner, Karkas and Chargaff
#SEPARATION OF MICROBIAL DEOXYRIBONUCLEIC ACIDS INTO COMPLEMENTARY STRANDS*

#chargaff1969

preparation <- c("L","H","L+H","Native")
Ad <- c(31.7, 30.0, 30.9, 30.8,
       32.3, 29.1, 30.7, 31.1,
       30.1, 27.3, 28.6, 28.2,
       28.7, 26.9, 27.8, 27.6,
       24.4, 23.8, 24.1, 24.6,
       24.7, 23.9, 24.3, 24.0,
       20.1, 20.9, 20.5, 20.3)

Gu <- c(19.8, 18.7, 19.2, 19.3,
       20.6, 18.1, 19.3, 19.7,
       23.7, 19.6, 21.7, 21.9,
       23.4, 21.3, 22.4, 22.6,
       27.3, 24.9, 26.1, 25.5,
       27.5, 24.7, 26.1, 26.4,
       31.1, 28.0, 29.6, 29.4)

Cy <- c(18.3, 19.8, 19.1, 19.5,
        18.1, 20.9, 19.5, 18.9,
        20.1, 23.2, 21.7, 21.6)

usethis::use_r("chargaff1969")
usethis::use_data(chargaff1969,overwrite = TRUE)