## code to prepare `DATASET` dataset goes here
wq_abbs <- c(`1` = "Cyanobacteria", `2` = "Diatoms", `3` = "GA", `4` = "RPOC",
`5` = "LPOC", `6` = "DOC", `7` = "RPOP", `8` = "LPOP", `9` = "DOP",
`10` = "TP", `11` = "RPON", `12` = "LPON", `13` = "DON", `14` = "NH4N",
`15` = "NO3N", `16` = "PBS", `17` = "DAS", `18` = "COD", `19` = "DO",
`20` = "TAM", `21` = "FC")
cwqsrs_h <- structure(list(`1` = c("C cwqsr01.inp, Cyanobacteria (mg/l as C)",
"C Project ID: ", "C", "C ISTYP MCSER(NS,8) TCCSER(NS,8) TACSER(NS,8) RMULADJ(NS,8) ADDADJ(NS,8)",
"C", "C if istyp.eq.1 then read depth weights and single value of CSER",
"C", "C (WKQ(K),K=1,KC)", "C", "C TCSER(M,NS,8) CSER(M,NS,8) !(mcser(ns,8) pairs for ns=8,ncser(8) series)",
"C", "C else read a value of CSER for each layer", "C", "C TCSER(M,NS,8) (CSER(M,K,NS,8),K=1,KC) !(mcser(ns,8) pairs)",
"C"), `2` = c("C cwqsr02.inp, Diatoms (mg/l as C)", "C Project ID: ",
"C", "C ISTYP MCSER(NS,8) TCCSER(NS,8) TACSER(NS,8) RMULADJ(NS,8) ADDADJ(NS,8)",
"C", "C if istyp.eq.1 then read depth weights and single value of CSER",
"C", "C (WKQ(K),K=1,KC)", "C", "C TCSER(M,NS,8) CSER(M,NS,8) !(mcser(ns,8) pairs for ns=8,ncser(8) series)",
"C", "C else read a value of CSER for each layer", "C", "C TCSER(M,NS,8) (CSER(M,K,NS,8),K=1,KC) !(mcser(ns,8) pairs)",
"C"), `3` = c("C cwqsr03.inp, Green Algae (mg/l as C)", "C Project ID: ",
"C", "C ISTYP MCSER(NS,8) TCCSER(NS,8) TACSER(NS,8) RMULADJ(NS,8) ADDADJ(NS,8)",
"C", "C if istyp.eq.1 then read depth weights and single value of CSER",
"C", "C (WKQ(K),K=1,KC)", "C", "C TCSER(M,NS,8) CSER(M,NS,8) !(mcser(ns,8) pairs for ns=8,ncser(8) series)",
"C", "C else read a value of CSER for each layer", "C", "C TCSER(M,NS,8) (CSER(M,K,NS,8),K=1,KC) !(mcser(ns,8) pairs)",
"C"), `4` = c("C cwqsr04.inp, Refractory POC (mg/l)", "C Project ID: ",
"C", "C ISTYP MCSER(NS,8) TCCSER(NS,8) TACSER(NS,8) RMULADJ(NS,8) ADDADJ(NS,8)",
"C", "C if istyp.eq.1 then read depth weights and single value of CSER",
"C", "C (WKQ(K),K=1,KC)", "C", "C TCSER(M,NS,8) CSER(M,NS,8) !(mcser(ns,8) pairs for ns=8,ncser(8) series)",
"C", "C else read a value of CSER for each layer", "C", "C TCSER(M,NS,8) (CSER(M,K,NS,8),K=1,KC) !(mcser(ns,8) pairs)",
"C"), `5` = c("C cwqsr05.inp, Labile POC (mg/l)", "C Project ID: ",
"C", "C ISTYP MCSER(NS,8) TCCSER(NS,8) TACSER(NS,8) RMULADJ(NS,8) ADDADJ(NS,8)",
"C", "C if istyp.eq.1 then read depth weights and single value of CSER",
"C", "C (WKQ(K),K=1,KC)", "C", "C TCSER(M,NS,8) CSER(M,NS,8) !(mcser(ns,8) pairs for ns=8,ncser(8) series)",
"C", "C else read a value of CSER for each layer", "C", "C TCSER(M,NS,8) (CSER(M,K,NS,8),K=1,KC) !(mcser(ns,8) pairs)",
"C"), `6` = c("C cwqsr06.inp, Dis Org Carbon (mg/l)", "C Project ID: ",
"C", "C ISTYP MCSER(NS,8) TCCSER(NS,8) TACSER(NS,8) RMULADJ(NS,8) ADDADJ(NS,8)",
"C", "C if istyp.eq.1 then read depth weights and single value of CSER",
"C", "C (WKQ(K),K=1,KC)", "C", "C TCSER(M,NS,8) CSER(M,NS,8) !(mcser(ns,8) pairs for ns=8,ncser(8) series)",
"C", "C else read a value of CSER for each layer", "C", "C TCSER(M,NS,8) (CSER(M,K,NS,8),K=1,KC) !(mcser(ns,8) pairs)",
"C"), `7` = c("C cwqsr07.inp, Ref Part Org Phosphorus (mg/l)",
"C Project ID: ", "C", "C ISTYP MCSER(NS,8) TCCSER(NS,8) TACSER(NS,8) RMULADJ(NS,8) ADDADJ(NS,8)",
"C", "C if istyp.eq.1 then read depth weights and single value of CSER",
"C", "C (WKQ(K),K=1,KC)", "C", "C TCSER(M,NS,8) CSER(M,NS,8) !(mcser(ns,8) pairs for ns=8,ncser(8) series)",
"C", "C else read a value of CSER for each layer", "C", "C TCSER(M,NS,8) (CSER(M,K,NS,8),K=1,KC) !(mcser(ns,8) pairs)",
"C"), `8` = c("C cwqsr08.inp, Lab Part Org Phosphorus (mg/l)",
"C Project ID: ", "C", "C ISTYP MCSER(NS,8) TCCSER(NS,8) TACSER(NS,8) RMULADJ(NS,8) ADDADJ(NS,8)",
"C", "C if istyp.eq.1 then read depth weights and single value of CSER",
"C", "C (WKQ(K),K=1,KC)", "C", "C TCSER(M,NS,8) CSER(M,NS,8) !(mcser(ns,8) pairs for ns=8,ncser(8) series)",
"C", "C else read a value of CSER for each layer", "C", "C TCSER(M,NS,8) (CSER(M,K,NS,8),K=1,KC) !(mcser(ns,8) pairs)",
"C"), `9` = c("C cwqsr09.inp, Dis Org Phosphorus (mg/l)", "C Project ID: ",
"C", "C ISTYP MCSER(NS,8) TCCSER(NS,8) TACSER(NS,8) RMULADJ(NS,8) ADDADJ(NS,8)",
"C", "C if istyp.eq.1 then read depth weights and single value of CSER",
"C", "C (WKQ(K),K=1,KC)", "C", "C TCSER(M,NS,8) CSER(M,NS,8) !(mcser(ns,8) pairs for ns=8,ncser(8) series)",
"C", "C else read a value of CSER for each layer", "C", "C TCSER(M,NS,8) (CSER(M,K,NS,8),K=1,KC) !(mcser(ns,8) pairs)",
"C"), `10` = c("C cwqsr10.inp, Total Phosphate (mg/l)", "C Project ID: ",
"C", "C ISTYP MCSER(NS,8) TCCSER(NS,8) TACSER(NS,8) RMULADJ(NS,8) ADDADJ(NS,8)",
"C", "C if istyp.eq.1 then read depth weights and single value of CSER",
"C", "C (WKQ(K),K=1,KC)", "C", "C TCSER(M,NS,8) CSER(M,NS,8) !(mcser(ns,8) pairs for ns=8,ncser(8) series)",
"C", "C else read a value of CSER for each layer", "C", "C TCSER(M,NS,8) (CSER(M,K,NS,8),K=1,KC) !(mcser(ns,8) pairs)",
"C"), `11` = c("C cwqsr11.inp, Ref Part Org Nitrogen (mg/l)",
"C Project ID: ", "C", "C ISTYP MCSER(NS,8) TCCSER(NS,8) TACSER(NS,8) RMULADJ(NS,8) ADDADJ(NS,8)",
"C", "C if istyp.eq.1 then read depth weights and single value of CSER",
"C", "C (WKQ(K),K=1,KC)", "C", "C TCSER(M,NS,8) CSER(M,NS,8) !(mcser(ns,8) pairs for ns=8,ncser(8) series)",
"C", "C else read a value of CSER for each layer", "C", "C TCSER(M,NS,8) (CSER(M,K,NS,8),K=1,KC) !(mcser(ns,8) pairs)",
"C"), `12` = c("C cwqsr12.inp, Lab Part Org Nitrogen (mg/l)",
"C Project ID: ", "C", "C ISTYP MCSER(NS,8) TCCSER(NS,8) TACSER(NS,8) RMULADJ(NS,8) ADDADJ(NS,8)",
"C", "C if istyp.eq.1 then read depth weights and single value of CSER",
"C", "C (WKQ(K),K=1,KC)", "C", "C TCSER(M,NS,8) CSER(M,NS,8) !(mcser(ns,8) pairs for ns=8,ncser(8) series)",
"C", "C else read a value of CSER for each layer", "C", "C TCSER(M,NS,8) (CSER(M,K,NS,8),K=1,KC) !(mcser(ns,8) pairs)",
"C"), `13` = c("C cwqsr13.inp, Dis Org Nitrogen (mg/l)", "C Project ID: ",
"C", "C ISTYP MCSER(NS,8) TCCSER(NS,8) TACSER(NS,8) RMULADJ(NS,8) ADDADJ(NS,8)",
"C", "C if istyp.eq.1 then read depth weights and single value of CSER",
"C", "C (WKQ(K),K=1,KC)", "C", "C TCSER(M,NS,8) CSER(M,NS,8) !(mcser(ns,8) pairs for ns=8,ncser(8) series)",
"C", "C else read a value of CSER for each layer", "C", "C TCSER(M,NS,8) (CSER(M,K,NS,8),K=1,KC) !(mcser(ns,8) pairs)",
"C"), `14` = c("C cwqsr14.inp, Ammonia Nitrogen (mg/l)", "C Project ID: ",
"C", "C ISTYP MCSER(NS,8) TCCSER(NS,8) TACSER(NS,8) RMULADJ(NS,8) ADDADJ(NS,8)",
"C", "C if istyp.eq.1 then read depth weights and single value of CSER",
"C", "C (WKQ(K),K=1,KC)", "C", "C TCSER(M,NS,8) CSER(M,NS,8) !(mcser(ns,8) pairs for ns=8,ncser(8) series)",
"C", "C else read a value of CSER for each layer", "C", "C TCSER(M,NS,8) (CSER(M,K,NS,8),K=1,KC) !(mcser(ns,8) pairs)",
"C"), `15` = c("C cwqsr15.inp, Nitrate Nitrogen (mg/l)", "C Project ID: ",
"C", "C ISTYP MCSER(NS,8) TCCSER(NS,8) TACSER(NS,8) RMULADJ(NS,8) ADDADJ(NS,8)",
"C", "C if istyp.eq.1 then read depth weights and single value of CSER",
"C", "C (WKQ(K),K=1,KC)", "C", "C TCSER(M,NS,8) CSER(M,NS,8) !(mcser(ns,8) pairs for ns=8,ncser(8) series)",
"C", "C else read a value of CSER for each layer", "C", "C TCSER(M,NS,8) (CSER(M,K,NS,8),K=1,KC) !(mcser(ns,8) pairs)",
"C"), `16` = c("C cwqsr16.inp, Part Biogenic Silica (mg/l)",
"C Project ID: ", "C", "C ISTYP MCSER(NS,8) TCCSER(NS,8) TACSER(NS,8) RMULADJ(NS,8) ADDADJ(NS,8)",
"C", "C if istyp.eq.1 then read depth weights and single value of CSER",
"C", "C (WKQ(K),K=1,KC)", "C", "C TCSER(M,NS,8) CSER(M,NS,8) !(mcser(ns,8) pairs for ns=8,ncser(8) series)",
"C", "C else read a value of CSER for each layer", "C", "C TCSER(M,NS,8) (CSER(M,K,NS,8),K=1,KC) !(mcser(ns,8) pairs)",
"C"), `17` = c("C cwqsr17.inp, Dis Available Silica (mg/l)",
"C Project ID: ", "C", "C ISTYP MCSER(NS,8) TCCSER(NS,8) TACSER(NS,8) RMULADJ(NS,8) ADDADJ(NS,8)",
"C", "C if istyp.eq.1 then read depth weights and single value of CSER",
"C", "C (WKQ(K),K=1,KC)", "C", "C TCSER(M,NS,8) CSER(M,NS,8) !(mcser(ns,8) pairs for ns=8,ncser(8) series)",
"C", "C else read a value of CSER for each layer", "C", "C TCSER(M,NS,8) (CSER(M,K,NS,8),K=1,KC) !(mcser(ns,8) pairs)",
"C"), `18` = c("C cwqsr18.inp, Chemical Oxygen Demand (mg/l)",
"C Project ID: ", "C", "C ISTYP MCSER(NS,8) TCCSER(NS,8) TACSER(NS,8) RMULADJ(NS,8) ADDADJ(NS,8)",
"C", "C if istyp.eq.1 then read depth weights and single value of CSER",
"C", "C (WKQ(K),K=1,KC)", "C", "C TCSER(M,NS,8) CSER(M,NS,8) !(mcser(ns,8) pairs for ns=8,ncser(8) series)",
"C", "C else read a value of CSER for each layer", "C", "C TCSER(M,NS,8) (CSER(M,K,NS,8),K=1,KC) !(mcser(ns,8) pairs)",
"C"), `19` = c("C cwqsr19.inp, Dissolved Oxygen (mg/l)", "C Project ID: ",
"C", "C ISTYP MCSER(NS,8) TCCSER(NS,8) TACSER(NS,8) RMULADJ(NS,8) ADDADJ(NS,8)",
"C", "C if istyp.eq.1 then read depth weights and single value of CSER",
"C", "C (WKQ(K),K=1,KC)", "C", "C TCSER(M,NS,8) CSER(M,NS,8) !(mcser(ns,8) pairs for ns=8,ncser(8) series)",
"C", "C else read a value of CSER for each layer", "C", "C TCSER(M,NS,8) (CSER(M,K,NS,8),K=1,KC) !(mcser(ns,8) pairs)",
"C"), `20` = c("C cwqsr20.inp, Total Active Metal (mg/l)", "C Project ID: ",
"C", "C ISTYP MCSER(NS,8) TCCSER(NS,8) TACSER(NS,8) RMULADJ(NS,8) ADDADJ(NS,8)",
"C", "C if istyp.eq.1 then read depth weights and single value of CSER",
"C", "C (WKQ(K),K=1,KC)", "C", "C TCSER(M,NS,8) CSER(M,NS,8) !(mcser(ns,8) pairs for ns=8,ncser(8) series)",
"C", "C else read a value of CSER for each layer", "C", "C TCSER(M,NS,8) (CSER(M,K,NS,8),K=1,KC) !(mcser(ns,8) pairs)",
"C"), `21` = c("C cwqsr21.inp, Fecal Coliform (MPN/100ml)",
"C Project ID: ", "C", "C ISTYP MCSER(NS,8) TCCSER(NS,8) TACSER(NS,8) RMULADJ(NS,8) ADDADJ(NS,8)",
"C", "C if istyp.eq.1 then read depth weights and single value of CSER",
"C", "C (WKQ(K),K=1,KC)", "C", "C TCSER(M,NS,8) CSER(M,NS,8) !(mcser(ns,8) pairs for ns=8,ncser(8) series)",
"C", "C else read a value of CSER for each layer", "C", "C TCSER(M,NS,8) (CSER(M,K,NS,8),K=1,KC) !(mcser(ns,8) pairs)",
"C")), split_type = "array", split_labels = structure(list(X1 = structure(1:21, .Label = c("1",
"2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13",
"14", "15", "16", "17", "18", "19", "20", "21"), class = "factor")), class = "data.frame", row.names = c(NA,
-21L)))
wq_params <- structure(list(PARAM = c("KHNc", "KHNd", "KHNg", "KHNm", "KHPc",
"KHPd", "KHPg", "KHPm", "KHS", "STOX", "WQKHCO2C", "KHCO2D",
"KHCO2G", "KHCO2M", "KeTSS", "KeChl", "KeChl", "KePOC", "KeDOC",
"CChlc", "CChld", "CChlg", "CChlm", "DOPTc", "DOPTd", "DOPTg",
"DOPTm", "I0", "IsMIN", "FD", "CIa", "CIb", "CIc", "CIm", "Rea",
"PARadj", "SIceAdj", "TMc1", "TMc2", "TMd1", "TMd2", "TMg1",
"TMg2", "TMm1", "TMm2", "TMp1", "TMp2", "KTG1c", "KTG2c", "KTG1d",
"KTG2d", "KTG1g", "KTG2g", "KTG1m", "KTG2m", "KTG1p", "KTG2p",
"TRc", "TRd", "TRg", "TRm", "KTBc", "KTBd", "KTBg", "KTBm", "FCRP",
"FCLP", "FCDP", "FCDc", "FCDd", "FCDg", "KHRc", "KHRd", "KHRg",
"FCRPm", "FCLPm", "FCDPm", "FCDm", "KHRm", "KRC", "KLC", "KDC",
"KRCalg", "KLCalg", "KDCalg", "KDCalgm", "TRHDR", "TRMNL", "KTHDR",
"KTMNL", "KHORDO", "KHDNN", "AANOX", "FPRP", "FPLP", "FPDP",
"FPIP", "FPRc", "FPRd", "FPRg", "FPLc", "FPLd", "FPLg", "FPRPM",
"FPLPM", "FPDPM", "FPIPM", "FPRm", "FPLm", "APCM", "FPDc", "FPDd",
"FPDg", "FPDm", "FPIc", "FPId", "FPIg", "FPIm", "KPO4p", "KRP",
"KLP", "KDP", "KRPalg", "KLPalg", "KDPalg", "CPprm1", "CPprm2",
"CPprm3", "FNRP", "FNLP", "FNDP", "FNIP", "FNRc", "FNRd", "FNRg",
"FNLc", "FNLd", "FNLg", "FNRPM", "FNLPM", "FNDPM", "FNIPM", "FNRm",
"FNLm", "FNDc", "FNDd", "FNDg", "FNDm", "FNIc", "FNId", "FNIg",
"FNIm", "ANCc", "ANCd", "ANCg", "ANCm", "ANDC", "rNitM", "KHNitDO",
"KHNitN", "TNit", "KNit1", "KNit2", "KRN", "KLN", "KDN", "KRNalg",
"KLNalg", "KDNalg", "FSPP", "FSIP", "FSPd", "FSId", "ASCd", "KSAp",
"KSU", "TRSUA", "KTSUA", "AOCR", "AONT", "KRO", "KTR", "KHCOD",
"KCD", "TRCOD", "KTCOD", "AOCRpm", "AOCRrm", "KHbmf", "BFTAM",
"Ttam", "Ktam", "TAMdmx", "Kdotam", "KFCB", "TFCB", "PMc", "PMd",
"PMg", "PMm", "BMRc", "BMRd", "BMRg", "BMRm", "PRRc", "PRRd",
"PRRg", "PRRm", "Keb", "WSc", "WSd", "WSg", "WSrp", "WSlp", "WSs",
"WSM", "REAC", "FPO4", "FNH4", "FNO3", "FSAD", "FCOD", "SOD",
"STEMFAC"), CARD = c("C08", "C08", "C08", "C08", "C08", "C08",
"C08", "C08", "C08", "C08", "C08", "C08", "C08", "C08", "C09",
"C09", "C09", "C09", "C09", "C09", "C09", "C09", "C09", "C09",
"C09", "C09", "C09", "C10", "C10", "C10", "C10", "C10", "C10",
"C10", "C10", "C10", "C10", "C11", "C11", "C11", "C11", "C11",
"C11", "C11", "C11", "C11", "C11", "C12", "C12", "C12", "C12",
"C12", "C12", "C12", "C12", "C12", "C12", "C13", "C13", "C13",
"C13", "C13", "C13", "C13", "C13", "C14", "C14", "C14", "C14",
"C14", "C14", "C14", "C14", "C14", "C15", "C15", "C15", "C15",
"C15", "C16", "C16", "C16", "C16", "C16", "C16", "C16", "C17",
"C17", "C17", "C17", "C17", "C17", "C17", "C18", "C18", "C18",
"C18", "C18", "C18", "C18", "C18", "C18", "C18", "C19", "C19",
"C19", "C19", "C19", "C19", "C19", "C20", "C20", "C20", "C20",
"C20", "C20", "C20", "C20", "C20", "C21", "C21", "C21", "C21",
"C21", "C21", "C21", "C21", "C21", "C22", "C22", "C22", "C22",
"C22", "C22", "C22", "C22", "C22", "C22", "C23", "C23", "C23",
"C23", "C23", "C23", "C24", "C24", "C24", "C24", "C24", "C24",
"C24", "C24", "C24", "C24", "C24", "C24", "C25", "C25", "C25",
"C25", "C25", "C25", "C25", "C26", "C26", "C26", "C26", "C26",
"C26", "C27", "C27", "C27", "C27", "C27", "C27", "C27", "C27",
"C27", "C28", "C28", "C28", "C28", "C28", "C28", "C28", "C28",
"C28", "C28", "C29", "C29", "C29", "C29", "C29", "C29", "C29",
"C29", "C45", "C45", "C45", "C45", "C45", "C45", "C45", "C45",
"C45", "C45", "C45", "C45", "C45", "C46", "C46", "C46", "C46",
"C46", "C46", "C46", "C46", "C47", "C47", "C47", "C47", "C47",
"C47", "C47")), row.names = c(NA, -224L), class = c("data.table",
"data.frame"))
usethis::use_data(wq_abbs, cwqsrs_h, wq_params, overwrite = T, internal = T)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.