Advertisement
Guest User

Untitled

a guest
Oct 17th, 2018
106
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.26 KB | None | 0 0
  1.  
  2. dta = read.csv(file="C:/Temp/Rdata/Datatoanalyse.csv", head=FALSE)
  3. dta
  4.  
  5.  
  6. #Obtain the Frequent appereance of the data in "Mentafsir data untuk merangka tindakan sekolah"
  7. View(table(dta$V8))
  8. View(summary(dta))
  9.  
  10. dtaSummary = summary(dta)
  11. View(dtaSummary)
  12.  
  13. DFdtaSummary = data.frame(dtaSummary)
  14. View(DFdtaSummary$Freq)
  15.  
  16. View(DFdtaSummary[71:73,])
  17. tindakan <- DFdtaSummary[71:73,]
  18. View(tindakan)
  19. View(tindakan$Freq)
  20.  
  21. tindakan$Freq[1]
  22.  
  23.  
  24. jantina <- c(dta[,3])
  25. tindakanpelajar <- c(dta[,6])
  26.  
  27. lm(jantina ~ tindakanpelajar)
  28. lm(tindakanpelajar ~ jantina)
  29.  
  30. glm(jantina ~ tindakanpelajar)
  31. glm(tindakanpelajar ~ jantina)
  32.  
  33. mod1 = lm(formula = jantina ~ tindakanpelajar, data = dta)
  34.  
  35. summary(mod1)
  36.  
  37. glm(formula = jantina ~ tindakanpelajar, data = dta)
  38.  
  39.  
  40. View(Combine)
  41.  
  42.  
  43.  
  44. View(dta)
  45. View(dta[-1,]) # Remove first column
  46. Dataonly <- dta[-1,]
  47. View(Dataonly)
  48. barplot(Dataonly$V8)
  49.  
  50. dp <- dput(head(Dataonly))
  51.  
  52. barplot( c(dp$V8) )
  53.  
  54. plot( c(dp$V8))
  55.  
  56. View(summary(Dataonly$V3))
  57.  
  58. View(summary(Dataonly$V8))
  59.  
  60. BD = lm(c(dp$V3) ~ c(dp$V8))
  61. BD
  62.  
  63.  
  64. lm.r = lm(c(dp$V3) ~ c(dp$V8))
  65.  
  66. plot(BD$residuals)
  67.  
  68. summary(BD$residuals)
  69.  
  70. summary(BD$coefficients)
  71.  
  72. summary(BD$rank)
  73.  
  74. barplot(BD$coefficients)
  75.  
  76. barplot( c(summary(BD$rank)))
  77.  
  78. View(summary(dp$V8))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement