Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- dta = read.csv(file="C:/Temp/Rdata/Datatoanalyse.csv", head=FALSE)
- dta
- #Obtain the Frequent appereance of the data in "Mentafsir data untuk merangka tindakan sekolah"
- View(table(dta$V8))
- View(summary(dta))
- dtaSummary = summary(dta)
- View(dtaSummary)
- DFdtaSummary = data.frame(dtaSummary)
- View(DFdtaSummary$Freq)
- View(DFdtaSummary[71:73,])
- tindakan <- DFdtaSummary[71:73,]
- View(tindakan)
- View(tindakan$Freq)
- tindakan$Freq[1]
- jantina <- c(dta[,3])
- tindakanpelajar <- c(dta[,6])
- lm(jantina ~ tindakanpelajar)
- lm(tindakanpelajar ~ jantina)
- glm(jantina ~ tindakanpelajar)
- glm(tindakanpelajar ~ jantina)
- mod1 = lm(formula = jantina ~ tindakanpelajar, data = dta)
- summary(mod1)
- glm(formula = jantina ~ tindakanpelajar, data = dta)
- View(Combine)
- View(dta)
- View(dta[-1,]) # Remove first column
- Dataonly <- dta[-1,]
- View(Dataonly)
- barplot(Dataonly$V8)
- dp <- dput(head(Dataonly))
- barplot( c(dp$V8) )
- plot( c(dp$V8))
- View(summary(Dataonly$V3))
- View(summary(Dataonly$V8))
- BD = lm(c(dp$V3) ~ c(dp$V8))
- BD
- lm.r = lm(c(dp$V3) ~ c(dp$V8))
- plot(BD$residuals)
- summary(BD$residuals)
- summary(BD$coefficients)
- summary(BD$rank)
- barplot(BD$coefficients)
- barplot( c(summary(BD$rank)))
- View(summary(dp$V8))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement