# Final-Exam_Q3_Ning-Wan.docx - Final-Exam_Q3_Ning-Wan.R...

• 2

This preview shows page 1 - 2 out of 2 pages.

Final-Exam_Q3_Ning-Wan.R wanning 2020-08-09 #Ning Wan #Final Exam -- Question 3 load ( "all.RData" ) ss <- all_col str (ss) ## 'data.frame': 299 obs. of 6 variables: ## \$ id : chr "S001" "S002" "S003" "S004" ... ## \$ Species : chr "setosa" "setosa" "setosa" "setosa" ... ## \$ Sepal.Length: num 4.75 5.07 5.24 5.48 4.9 ... ## \$ Sepal.Width : num 3.3 3.68 3.44 3.96 2.81 ... ## \$ Petal.Length: num 1.44 1.21 1.59 1.53 1.49 ... ## \$ Petal.Width : num 0.235 0.111 0.405 0.272 0.345 ... ss \$ Species = as.factor (ss \$ Species) ss \$ Species <- as.numeric (ss \$ Species) library (ez) ## Registered S3 methods overwritten by 'lme4': ## method from ## cooks.distance.influence.merMod car ## influence.merMod car ## dfbeta.influence.merMod car ## dfbetas.influence.merMod car ss \$ partno = 1 : nrow (ss) options ( scipen = 999 ) ezANOVA ( data = ss, dv = Species, between = Sepal.Width, wid = partno, type = 3 , detailed = T) ## Warning: Converting "partno" to factor for ANOVA. ## Warning: "Sepal.Width" will be treated as numeric. ## Coefficient covariances computed by hccm() ## Warning: At least one numeric between-Ss variable detected, therefore no ## assumption test will be returned.
## \$ANOVA ## Effect DFn DFd SSn SSd F ## 1 (Intercept) 1 297 158.89917 146.3743 322.4135