uploader_type <- c("Self", "Third Party")

claimed_status <- c("Claimed", "[blank]")

claim_type <- c("Audio", "Audio Visual", "Visual")

threshold <- c("Over", "Under", "[Not Applicable]")


DT.yt_claims <- CJ(uploader_type=uploader_type , claimed_status=claimed_status , claim_type=claim_type , threshold=threshold)


setScience("VidServData")
writeDT(DT.yt_claims)





premium_vs_standard <- c("Premium", "Standard")

ugc_vs_partneruploaded