RA_R

library(tidyr)
library(dplyr)

Attaching package: 'dplyr'

The following objects are masked from 'package:stats':

    filter, lag

The following objects are masked from 'package:base':

    intersect, setdiff, setequal, union

library(lubridate)

Attaching package: 'lubridate'

The following objects are masked from 'package:base':

    date, intersect, setdiff, union

library(fuzzyjoin)
library(stringdist)

Attaching package: 'stringdist'

The following object is masked from 'package:tidyr':

    extract

library(data.table)

Attaching package: 'data.table'

The following objects are masked from 'package:lubridate':

    hour, isoweek, mday, minute, month, quarter, second, wday, week,
    yday, year

The following objects are masked from 'package:dplyr':

    between, first, last

library(stringr)
library(purrr)

Attaching package: 'purrr'

The following object is masked from 'package:data.table':

    transpose

library(uuid)
library(pcaMethods)

Loading required package: Biobase

Loading required package: BiocGenerics

Loading required package: generics

Attaching package: 'generics'

The following object is masked from 'package:lubridate':

    as.difftime

The following object is masked from 'package:dplyr':

    explain

The following objects are masked from 'package:base':

    as.difftime, as.factor, as.ordered, intersect, is.element, setdiff,
    setequal, union

Attaching package: 'BiocGenerics'

The following object is masked from 'package:dplyr':

    combine

The following objects are masked from 'package:stats':

    IQR, mad, sd, var, xtabs

The following objects are masked from 'package:base':

    anyDuplicated, aperm, append, as.data.frame, basename, cbind,
    colnames, dirname, do.call, duplicated, eval, evalq, Filter, Find,
    get, grep, grepl, is.unsorted, lapply, Map, mapply, match, mget,
    order, paste, pmax, pmax.int, pmin, pmin.int, Position, rank,
    rbind, Reduce, rownames, sapply, saveRDS, table, tapply, unique,
    unsplit, which.max, which.min

Welcome to Bioconductor

    Vignettes contain introductory material; view with
    'browseVignettes()'. To cite Bioconductor, see
    'citation("Biobase")', and for packages 'citation("pkgname")'.

Attaching package: 'pcaMethods'

The following object is masked from 'package:stats':

    loadings

library(tibble)

Load in Data:

#htn_schools <- read.csv("file_path_name/htn_schools.csv")

Summary Statistics Needed: Total Number of schools Total Number of Schools with a computer lab Average exam score (subject specific and cumulative) for schools with computer labs and schools without computer labs. Average exam score (subject specific and cumulative) for schools with computer labs and schools without computer labs by gender. Average exam score (subject specific and cumulative) for schools with computer labs and schools without computer labs by grade and year. Number of students per grade Number of students per grade in computer vs non computer lab schools Standard deviations