R markdown (a). Calculate the mean of fulliq using your own code that calculates

Question

R markdown

(a). Calculate the mean of fulliq using your own code that calculates the mean. Save this in a vector called fulliq mean

(b). Calculate the variance of fulliq using the built in variance function in R.

(c). Calculate the variance of fulliq using your own code that calculates the variance .

(d). Create a histogram of fulliq. Give the plot a relevant title, and label the x and y axes

id age sex status verbiq perfiq fulliq iqtype totyrs hyperact tapping group 101 11.08333 M 77 61 85 70 WISC 11 NA 72 lead < 40 102 9.416667 M 77 82 90 85 WISC 6 0 61 lead < 40 103 11.08333 M 30 70 107 86 WISC 5 NA 49 lead < 40 104 6.916667 M 77 72 85 76 WISC 5 2 48 lead < 40 105 11.25 M 62 72 100 84 WISC 11 NA 51 lead < 40 106 6.5 M 72 95 97 96 WISC 6 0 49 lead < 40 107 6.916667 M 54 89 101 94 WISC 6 0 50 lead < 40 108 15 F 73 57 64 56 WISC 15 NA 58 lead < 40 109 7.166667 F 22 116 111 115 WISC 7 0 50 lead < 40 110 7.25 M 77 95 100 97 WISC 7 0 51 lead < 40 111 13.66667 F 63 82 76 77 WISC 12 NA 59 lead < 40 112 10.33333 F 48 116 136 128 WISC 10 1 65 lead < 40 113 12.58333 M 48 99 100 99 WISC 12 NA 57 lead < 40 114 12.08333 M 48 74 90 80 WISC 12 NA 53 lead < 40 115 15 M 48 100 135 118 WISC 10 NA 74 lead < 40 116 10.58333 M 48 72 104 86 WISC 10 2 50 lead < 40 117 15.91667 M 48 126 149 141 WISC 15 NA 84 lead < 40 118 9.666667 F 63 80 99 88 WISC 9 0 46 lead < 40 119 8 M 63 86 107 96 WISC 8 1 52 lead < 40 120 11.08333 M 63 94 99 96 WISC 11 NA 64 lead < 40 121 7.75 M 55 100 113 107 WISC 7 0 59 lead < 40 122 11.33333 F 63 72 104 86 WISC 10 NA 55 lead < 40 123 6.666667 M 70 63 101 80 WISC 5 1 NA lead < 40 124 6.083333 M 70 101 111 107 WISC 2 1 46 lead < 40 125 9.416667 M 63 85 118 101 WISC 2 0 52 lead < 40 126 13.5 F 77 85 99 91 WISC 2 NA 63 lead < 40 127 9.583333 F 44 124 122 125 WISC 9 0 52 lead < 40 128 6.166667 M 41 105 87 96 WISC 1 0 42 lead < 40 129 13.33333 M 41 81 118 99 WISC 1 NA 57 lead < 40 130 6.583333 M 77 87 113 99 WISC 5 2 23 lead < 40 131 12.75 F 77 100 128 115 WISC 5 NA 65 lead < 40 132 8.166667 F 77 91 121 106 WISC 5 1 38 lead < 40 133 9.916667 M 70 99 111 105 WISC 6 0 59 lead < 40 134 7.333333 F 58 89 104 96 WISC 6 0 26 lead < 40 135 12.83333 M 91 57 51 50 WISC 12 NA 53 lead < 40 136 6.333333 F 91 99 100 99 WISC 6 0 50 lead < 40 137 9.333333 F 77 58 113 85 WISC 2 0 56 lead < 40 138 14.25 F 77 97 82 88 WISC 11 NA 49 lead < 40 139 15.41667 M 70 94 146 120 WISC 9 NA 76 lead < 40 140 14.08333 M 70 82 107 93 WISC 9 NA 68 lead < 40 141 9.833333 F 77 92 83 87 WISC 10 1 60 lead < 40 142 7.083333 F 77 89 108 98 WISC 6 1 46 lead < 40 143 12.83333 F 77 69 93 78 WISC 3 NA 57 lead < 40 144 8.083333 M 77 87 114 100 WISC 3 1 45 lead < 40 145 7.25 M 77 97 113 105 WISC 5 0 46 lead < 40 146 15.41667 F 58 82 94 87 WISC 15 NA 64 lead < 40 147 6.916667 F 58 85 106 94 WISC 6 1 40 lead < 40 148 14.25 F 63 89 92 89 WISC 14 NA 62 lead < 40 149 7.333333 M 91 85 79 80 WISC 6 1 13 lead < 40 150 13.33333 M 77 92 129 111 WISC 5 NA 79 lead < 40 151 12.08333 M 77 95 114 104 WISC 5 NA 61 lead < 40 152 6.166667 M 70 76 99 85 WISC 3 1 46 lead < 40 153 7.166667 M 70 80 110 94 WISC 3 0 50 lead < 40 154 9.583333 M 70 66 90 75 WISC 8 1 48 lead < 40 155 12.83333 F 70 67 85 73 WISC 8 NA 65 lead < 40 156 15.25 M 70 63 94 76 WISC 8 NA 62 lead < 40 157 10.58333 M 77 87 127 107 WISC 7 0 56 lead < 40 158 9.75 M 73 79 101 88 WISC 2 1 54 lead < 40 159 13.91667 F 44 82 99 89 WISC 6 NA 72 lead < 40 160 12.5 F 44 82 113 96 WISC 6 NA 57 lead < 40 161 6.333333 F 66 70 80 72 WISC 6 0 50 lead < 40 162 11.83333 F 66 81 115 97 WISC 8 NA 65 lead < 40 163 15 F 73 72 85 76 WISC 15 NA 56 lead < 40 201 10.08333 M 79 75 93 82 WISC 10 2 54 lead >= 40 202 10.41667 F 79 87 100 93 WISC 11 0 57 lead >= 40 203 9.916667 M 77 76 97 85 WISC 9 1 48 lead >= 40 204 6.833333 M 77 76 79 75 WISC 6 1 41 lead >= 40 205 5.083333 M 63 76 97 85 WISC 4 0 34 lead >= 40 206 12.75 F 62 92 71 80 WISC 12 NA 54 lead >= 40 207 6.166667 M 41 91 111 101 WISC 6 0 38 lead >= 40 208 7.416667 F 41 82 99 89 WISC 7 0 49 lead >= 40 209 12 F 52 80 85 80 WISC 6 NA 58 lead >= 40 210 8.583333 M 52 91 99 94 WISC 6 2 14 lead >= 40 211 6.75 M 77 81 97 88 WISC 5 1 40 lead >= 40 212 6.916667 M 52 97 111 104 WISC 6 0 13 lead >= 40 213 8.166667 M 70 76 104 88 WISC 7 0 51 lead >= 40 214 11.25 F 70 85 93 88 WISC 10 NA 44 lead >= 40 215 13.58333 M 70 116 104 112 WISC 12 NA 52 lead >= 40 216 9.5 M 70 80 90 83 WISC 8 3 42 lead >= 40 217 8.75 M 77 100 107 104 WISC 8 0 55 lead >= 40 218 6.5 M 44 94 108 101 WISC 6 1 44 lead >= 40 219 15 F 44 81 106 92 WISC 8 NA 48 lead >= 40 301 14 M 58 72 78 72 WISC 14 NA 62 lead >= 40 302 7 F 73 85 97 90 WISC 7 1 37 lead >= 40 303 7.5 M 91 80 107 92 WISC 5 1 46 lead >= 40 304 13.33333 F 79 67 80 71 WISC 12 NA 59 lead >= 40 305 6.166667 M 77 85 90 86 WISC 6 0 35 lead >= 40 306 15.25 M 77 79 83 79 WISC 15 NA 70 lead >= 40 307 12.08333 M 91 70 101 83 WISC 12 NA 56 lead >= 40 308 9.583333 M 77 105 121 114 WISC 5 0 45 lead >= 40 309 9.083333 F 58 92 108 100 WISC 9 0 50 lead >= 40 310 8.166667 M 70 89 100 93 WISC 8 0 52 lead >= 40 311 14 F 51 74 110 91 WISC 1 NA 52 lead >= 40 312 9.333333 M 70 86 111 98 WISC 3 0 83 lead >= 40 313 11.16667 F 73 87 97 91 WISC 11 NA 57 lead >= 40 314 7.166667 M 70 51 51 46 WISC 6 1 38 lead >= 40 315 9.5 F 48 80 94 85 WISC 9 1 40 lead >= 40 401 4.333333 M 48 101 112 107 WPPSI 3 1 NA lead < 40 402 4.833333 F 66 95 112 104 WPPSI 4 1 NA lead < 40 403 3.916667 M 63 81 92 85 WPPSI 3 0 NA lead < 40 404 4.583333 M 70 61 97 76 WPPSI 4 1 NA lead < 40 405 4.5 M 77 94 97 95 WPPSI 4 0 NA lead < 40 406 3.75 M 29 85 91 86 WPPSI 4 3 NA lead < 40 407 4.25 M 62 76 105 89 WPPSI 4 3 NA lead < 40 408 4.333333 M 62 72 84 76 WPPSI 4 1 NA lead < 40 409 4.333333 F 91 97 95 96 WPPSI 4 0 NA lead < 40 410 5.583333 M 73 95 108 101 WPPSI 3 1 48 lead < 40 411 4.333333 F 66 97 118 108 WPPSI 4 0 NA lead < 40 412 4.75 F 77 87 118 102 WPPSI 4 0 NA lead < 40 413 5.416667 F 91 74 86 77 WPPSI 5 1 NA lead < 40 414 4.5 M 91 66 89 74 WPPSI 4 1 NA lead < 40 415 6.5 F 91 86 100 92 WPPSI 6 0 50 lead < 40 501 4.166667 M 79 86 108 96 WPPSI 4 2 NA lead >= 40 502 4.583333 M 58 79 78 76 WPPSI 4 0 NA lead >= 40 503 4 M 41 70 95 80 WPPSI 4 2 NA lead >= 40 504 3.75 M 58 84 78 79 WPPSI 3 1 NA lead >= 40 505 3.75 F 91 69 86 75 WPPSI 3 0 NA lead >= 40 601 4.333333 M 77 87 80 82 WPPSI 4 2 NA lead >= 40 602 3.75 F 77 94 101 97 WPPSI 3 1 NA lead >= 40 603 5.583333 F 58 91 92 91 WPPSI 5 1 NA lead >= 40 604 4.583333 M 77 92 100 92 WPPSI 3 1 NA lead >= 40 605 5.166667 F 58 81 77 77 WPPSI 5 1 42 lead >= 40 606 3.833333 M 70 111 108 111 WPPSI 3 0 NA lead >= 40 607 3.916667 M 73 75 85 78 WPPSI 4 1 NA lead >= 40

Explanation / Answer

Reading your data in variable d

d = read.table(file = "1.csv",header = TRUE,sep = ",")
d

Calculating mean by sum values in column fulliq then dividing by number of rows
fulliq_mean = sum(d$fulliq)/nrow(subset(x =d,select = c(fulliq)))
fulliq_mean

Calculating variance using inbuild function

fulliq_var = var(d$fulliq)
fulliq_var

Calculating variance by implementing our own method

nRow = nrow(subset(x =d,select = c(fulliq)))
d1 = rep(fulliq_mean,each = nRow)

fulliq_data = subset(x =d,select = c(fulliq))

data = fulliq_data - d1
data = data*data
fulliq_var_new = sum(data)/nRow
fulliq_var_new

Related Questions

Navigate

• Browse (All)
• Browse R
• Subjects

---

---

Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.