Dear list:
I have a data frame with student name, class he attended and marks for
subjects he attended.
Students took second exam if they performed badly in their first attempt. I
want to consider the test scores where they obtain highest median.
there are 6 classes. As a sample case, I will consider only classes A, B
and C.
For class A, Student Raj took first exam and he did not score well. He
re-took his exam and scored well. his median marks second time was high, and
thus I will consider
only marks he scored second time. Similarly, for class A ,kiran took one
class and I have no choice but to consider his marks in his only attempt.
Matt took class B and performed poorly. In his second attempt, he scored
well and thus I will consider his second attempt because his median his
high.
Since only one student took class C and took exam only once, I will consider
Ram's test scores for the class he took.
Name
Class
Trigno
Algebra
Calculus
Sci.Comp
CS
Raj
A
10
20
12
24
20
Raj
A
20
21
25
25
25
Kiran
A
20
24
24
23
24
Matt
B
12
10
13
9
9
Matt
B
20
24
23
22
24
Ram
C
25
25
25
25
25
Rhea
D
21
12
12
21
23
Jack
E
12
15
16
18
19
Smita
F
13
18
19
19
20> rtest
Name Class Trigno Algebra Calculus Sci.Comp CS
1 Raj A 10 20 12 24 20
2 Raj A 20 21 25 25 25
3 Kiran A 20 24 24 23 24
4 Matt B 12 10 13 9 9
5 Matt B 20 24 23 22 24
6 Ram C 25 25 25 25 25
7 Rhea D 21 12 12 21 23
8 Jack E 12 15 16 18 19
9 Smita F 13 18 19 19 20
I want to write a small loop program that would give me back a data frame.
>tclass <- c('A','B','C')
> tclass
[1] "A" "B" "C"
> for(i in 1:length(tclass)){
+ k = rtest[rtest$Class==tclass[i],]
+ if(nrow(k)>1){
+ x <- k[,c(-1,-2)]
+ rownames(x) <- k[,1]
+ k2 = apply(x,1,median)
+ fin_dat <- c(rtest$Name==max(names(k2)),)}
+ else{
+ fin_dat <- c(k)
+ }
+ }
Error in `row.names<-.data.frame`(`*tmp*`, value = c(4L, 4L, 2L)) :
duplicate 'row.names' are not allowed
my code:
for(i in 1:length(tclass)){
k = rtest[rtest$Class==tclass[i],] # selecting all students who took that
class
if(nrow(k)>1){ # if there are many students
then...
x <- k[,c(-1,-2)] # take only their scores
and leave their name and class column
rownames(x) <- k[,1] # to choose row of scores for a student
with high median, I am making row names and since the student names are
duplicated.. I am having problem
k2 = apply(x,1,median) # obtain median
fin_dat <- c(rtest$Name==max(names(k2)),)} # get test scores line
from original data frame and write back to fin_dat object
else{ # if a student took only once his
exam
fin_dat <- c(k) # write his score to fin_dat
}
}
Could any one please help me here with my problem. Since Raj is duplicated,
I am having this error. If there is a better way of doing this, I
appreciate your help.
Thanks
Ad.
[[alternative HTML version deleted]]
