Hi,

How are you? I have a quick question.... I have code that works perfectly 
with R desktop, but does not work with RWeb. Could you please tell me how 
to modify the code below so it will work with RWeb?


#Read in txt file

happyguys<-read.table("c:/test8.txt", header=TRUE, row.names=1)

#Subset the txt file to only include certain values

test<-subset(happyguys, GRADE == 7  & Y_Q10A < 9)

#print the subset file

print(test)

mydata<-test

#Sort the data by province, and then by Y_Q10A

mydataSorted<-mydata[ order(mydata$PROV,mydata$Y_Q10A), ]
print(mydataSorted)

#Weight the data and aggregate the value by province. There are 2 values 
for each province (1 & 2) and the results show the number of people for 
each province who responded with value 1 or value 2

myag<-aggregate(mydataSorted$WTPP, 
by=list(mydataSorted$PROV,mydataSorted$Y_Q10A), FUN=sum, na.rm=TRUE)

#print the aggregated results

print(myag)

#Results below

 Group.1 Group.2           x
1       10       1    466.2879
2       11       1    104.7425
3       12       1   1200.9314
4       13       1    888.4311
5       24       1  29040.8215
6       35       1   8876.2489
7       46       1   1381.7473
8       47       1   1508.7270
9       48       1   3293.6757
10      59       1   4247.5155
11      10       2   6623.7504
12      11       2   1954.9129
13      12       2  11399.5767
14      13       2   8811.8096
15      24       2  77222.4561
16      35       2 145528.7134
17      46       2  14010.4974
18      47       2  12335.5400
19      48       2  41137.2036
20      59       2  46261.5873



Thanks,

Nat


------------------------------------------------------------------------------------------------------------------------ 

This communication is intended for the use of the recipi...{{dropped:24}}

