Guest User

rwdtxx.r

a guest
Jun 15th, 2020
30
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. rwdtstats <- read.csv("rwdtstats.csv")
  2. names(rwdtstats)
  3. rwdtstats
  4. hist(rwdtstats$pqi, xlab="Post Quality Index (PQI)", main = "Trends in average post quality")
  5. hist(rwdtstats$oci, xlab="Overall Contribution Index (OCI)", main = "Trends in overall contribution to the thread")
  6. foundyear_oci <- lm(rwdtstats$oci ~ rwdtstats$foundyear)
  7. summary(foundyear_oci)
  8. foundyear_pqi <- lm(rwdtstats$pqi ~ rwdtstats$foundyear)
  9. summary(foundyear_pqi)
  10. posttotal_oci <- lm(rwdtstats$oci ~ rwdtstats$posttotal)
  11. summary(posttotal_oci)
  12. posttotal_pqi <- lm(rwdtstats$pqi ~ rwdtstats$posttotal)
  13. summary(posttotal_pqi)
  14. rwdtstats$gender <- factor(rwdtstats$gender)
  15. gender_oci <- aov(rwdtstats$oci ~ rwdtstats$gender)
  16. summary(gender_oci)
  17. gender_pqi <- aov(rwdtstats$pqi ~ rwdtstats$gender)
  18. summary(gender_pqi)
  19. mean(rwdtstats$posttotal)
  20. mean(rwdtstats$foundyear)
RAW Paste Data