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}}
______________________________________________
[email protected] mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
