On Mar 8, 2012, at 3:14 PM, Ajay Askoolum wrote:
Given
studentNumbers<-10;
subjEnglish<-sample(-1:100,studentNumbers,replace=TRUE);
when subEnglish <=0, 'U'
<=39, 'F'
<=49 'D'
<=59, 'C'
<=69, 'B'
?findInterval
> subjEnglish<-sample(-1:100,studentNumbers,replace=TRUE);
> grade <- c(-Inf, 39, 49, 59, 69, 79, 100) # grade break points
> let <- c("U", "F", "D", "C", "B", "A", "A+")[findInterval(subjEnglish, grade)]
> cbind(subjEnglish, let)
subjEnglish let
[1,] "77""B"
[2,] "9
Given
studentNumbers<-10;
subjEnglish<-sample(-1:100,studentNumbers,replace=TRUE);
when subEnglish <=0, 'U'
<=39, 'F'
<=49 'D'
<=59, 'C'
<=69, 'B'
<=79,'A'
3 matches
Mail list logo