FileNames

Data=Import["/home/campus03/struther/Desktop/30_Apr_10-34_Grades-MA3520_R03_Spring_2016.csv"];
Data[[1]]

Col=Position[Data,"Final Score"][[1,2]];
FinalData=Data[[4;;-1,Col]]
EditedFinalData=Select[Data[[3;;-1,Col]], #>40&];

Pic=Histogram[{FinalData,EditedFinalData},
{0,100.1,5},
PlotLabel->StringForm["Mean=``:",
Mean[EditedFinalData]
],
Frame->True,
ChartStyle->{Pink,Red},
LabelingFunction->Above,
FrameTicks->{Range[60,100.1,10],Automatic},
GridLines->{Range[5,100.1,5],Automatic},
PlotRange->{{0,100},Automatic},
PlotRangePadding->{{0,0},{0,3}}
]
Export["/home/campus03/struther/Desktop/Link To Courses/3520/Sp2016_3520TotalScores.pdf",Pic]

Position[
Data[[1]],
"Exam 2 (5346125)"]

ExamData=N[Sort[
DeleteCases[
Data[[3;;-1,31]],
""]]];
Length[ExamData]
EditedExamData=Select[ExamData, #>=40&];
Pic=Histogram[{EditedExamData,ExamData},{-0.01,105,5},
PlotLabel->StringForm["Mean=``(``)",
Mean[ExamData],
Mean[EditedExamData]],
Frame->True,
ChartStyle->{Green,Orange},
LabelingFunction->Above,
FrameTicks->{Range[10,100,10],Automatic},
GridLines->{Range[40,105,5],Automatic},
PlotRangePadding->{{0,0},{0,3}}
]
SetDirectory["/home/campus03/struther/public_html/Courses/3520"]
Export["Sp2016_Exam2.pdf",Pic]

((6+18+26)/132.)