Question

A csv file called COS-206_gradebook.csv is provided for this project (see Course Documents). This file contains grades data for 17 students on 20 assessments. These assessments include quizzes, homework assignments, term projects, and tests.First you are strongly encouraged to open this file in Excel to gain an overview of the data. Note the second row contains point totals for the assessments. For instance, the point total for hw0 (Homework 0) is 20 while the point total for hw1 (Homework 1) is 14.

http://www.mediafire.com/file/eqta2teptf6uiop/COS-206_gradebook.csv

Your R script file should contain the following R functions:

readData <- function(fileName);

This function reads data from a csv file called fileName. A data frame that stores the contents of this file is returned.

checkStudent <- function(df, studentName);

This function extracts a particular student's grades data from a data frame and returns them.

checkAssessment <- function(df, assessmentName);

This function returns a vector/list of three statistics, min, max, and average, about the assessment whose name is given as assessmentName.

calcAssessmentEffectiveScoreRatios <- function(df, assessmentName)

This function returns a vector/list of effective score ratios for the assessment whose name is given as assessmentName.

An effective score ratio for a particular student on a given assessment is the raw score divided by the point total for the assessment. For instance: if a student scored 18 out of 20 for an assessment, then the effective score ratio is 18/20.

assessmentCount <- function(df, assessmentNamePrefix);

This function returns the number of assessments whose names start with assessmentNamePrefix.

assessmentWeight <- function(df, assessmentName, assessmentTypeWeights)

This function returns the weight for an assessment whose name is given by assessmentName.

assessmentTypeWeights is a named vector that contains the weight for each type of assessments. The vector should reflect the following weights assignment:

quizzes—5%;

homework assignments—15%;

term project phase 1—5%;

term project phase 2—3%;

term project phase 3—2%;

exam1 1—10%;

exam2 2—10%;

exam3 3—10%;

final—40%.

A helper function assessmentPrefix <- function(assessmentName,assessmentTypeWeights) is provided;

This function returns the prefix of the assessment whose name is given by assessmentName.

The list assessmentTypeWeights is also provided;

calcFinalGrades <- function(df,assessmentTypeWeights);

This function returns a vector that contains the final grades for all the students.

writeReport <- function(df,finalGradesVector,fileName).

This function adds a new column (grade) to df and then writes the updated data frame to a file whose name is given by filename.

Answer 1

#This function reads data from a csv file called fileName.
#A data frame that stores the contents of this file is returned.
readData <- function(fileName){
df<-read.csv(fileName,header = T,sep = ",")
return(df)
}

dataframe<-readData("COS-206_gradebook.csv")
print(dataframe)

#This function extracts a particular student's grades data from a data frame and returns them.

checkStudent <- function(df, studentName){
return(df[df$name==studentName,])
}

checkStudent(dataframe,'A')

#This function returns a vector/list of three statistics, min, max, and average,
#about the assessment whose name is given as assessmentName.

checkAssessment <- function(df, assessmentName){
df1<-df[df$name==assessmentName,]
ma<-max(df1[2:ncol(df1)])
mi<-min(df1[2:ncol(df1)])
avg<-sum(df1[2:ncol(df1)])/(ncol(df1)-1)
  
lst<-c(mi,ma,avg)
return(lst)
}
  
my_list<-checkAssessment(dataframe,'C')
my_list

#This function returns a vector/list of effective score ratios for the assessment whose name is given as assessmentName.

calcAssessmentEffectiveScoreRatios <- function(df, assessmentName){
assessment<-df[df$name==assessmentName,2:ncol(df)]/df[1,2:ncol(df)]
return(as.list(assessment))
}

res<-calcAssessmentEffectiveScoreRatios(dataframe,'C')
res

#This function returns the number of assessments whose names start with assessmentNamePrefix.
assessmentCount <- function(df, assessmentNamePrefix){
count<-nrow(df[grep(assessmentNamePrefix, df$name),])
return(count)
}

number_of_assessments<-assessmentCount(dataframe,'M')
number_of_assessments
number_of_assessments<-assessmentCount(dataframe,'A|C|M')
number_of_assessments

5 #A data frame that stores the contents of this file is returned 6 readData <-function(fileName) 7 df<-read. csv(fileName, header T,sep"") 8 return(df) 9 10 11 dataframe<-readData("COS-206_gradebook.csv") 12 print (dataframe) 13 14 15 This function extracts a particular student's grades data from a data frame and returns them 16 17. Checkstudent <-function(df, student Name){ 18 return(df [df $name-studentName,] 19 20 21 checkstudent (dataframe, 'A 23 "This function returns a vector/list of three statistics, min, max, and average, 24 #about the assessment whose name is given as assessment Name 25 26▼ checkAs sessment <-function(df, assessment Name){ 27 df1<-df [df Sname-assessmentName,] ma<-max (df1[2 ncol (df1)]) 29 mi<-min(df1[2:ncol (df1)]) 30 avg<-sum(df1 [2:ncol (df1)])/(ncol (df1)-1) 31 32 st<-c(mi,ma,avg) 33 return 1st) 34 35 36 my list<-checkAssessment (dataframe, 'c') 37 my list 38 39 40 #This function returns a vector/list of effective score ratios for the assessment whose name is given as assessment Name 41 42 calcAssessmentEffectivescoreRatiosfunction(df, assessmentName) 43 assessment<-df [df Sname-assessmentName,2:ncol (df)]/df [1,2:ncol (df)] 44 return(as. list (assessment)) 45 46 47 res<-calcAssessmentEffectivescoreRatios (dataframe, 'c 48 res 49 50 51 #This function returns the number of assessments whose names start with assessment NamePrefix 52 assessmentcount-function(df, assessmentNamePrefix) t 53 count«-nr owCdf [grep (assessment NamePrefix, dfname),1) 54 return(count) 56 57 number_of_assessments<-assessmentcount (dataframe, "M' 58 number_of_assessments 59 number_of_assessments<-assessmentcount (dataframe, 'A|cIM) 60 number_of_assessments 61 68:1 (Top Level) 수 R Script