Hi Yihui,
Thank-you for this information. This is the code I am entering into RWeb
after loading my data file:
#subset the file to only include certain values:
test<-subset(X, GRADE == 7 & Y_Q10A < 9)
#sort the data by province and the variable Y_Q10A
mydata<-test
mydataSorted<-mydata[ order(mydata$PROV,mydata$Y_Q10A), ]
#Weight the data and aggregate it by province and Y_Q10A
myag<-aggregate(mydataSorted$WTPP,
by=list(mydataSorted$PROV,mydataSorted$Y_Q10A), FUN=sum, na.rm=TRUE)
#print the aggregated data
print(myag)
_
This does not work. RWeb does not show any results. Here is the response I
am getting from RWeb:
Rweb:> postscript(file= "/tmp/Rout.11012.%03d.ps", onefile=FALSE)
Rweb:> X <- read.table("/tmp/Rdata.11012.data", header=T)
Rweb:> attach(X)
Rweb:> names(X)
[1] "PUMFID" "PROV" "REGION" "GRADE" "Y.Q10A" "WTPP"
Rweb:>
Rweb:>
Rweb:> test<-subset(X, PROV==48 & GRADE == 7 & Y_Q10A < 9)
How can I modify my code above to get it to work in RWeb, please?
Thanks,
Nat
_________________
"c:/test8.txt" is in *your* local disk, so Rweb cannot read the data
file! You should submit your data to Rweb using the button "Browse"
which will "Select a local file to submit". Note the name of the data
variable will be 'X' (instead of your 'happyguys').
Regards,
Yihui
--
Yihui Xie <[EMAIL PROTECTED]>
Phone: +86-(0)10-82509086 Fax: +86-(0)10-82509086
Mobile: +86-15810805877
Homepage: http://www.yihui.name
School of Statistics, Room 1037, Mingde Main Building,
Renmin University of China, Beijing, 100872, China
On Wed, Oct 22, 2008 at 1:20 AM, Natalie O'Toole <[EMAIL PROTECTED]>
wrote:
> 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}}
>
> ______________________________________________
> R-help@r-project.org 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.
>
------------------------------------------------------------------------------------------------------------------------
This communication is intended for the use of the recipient to which it is
addressed, and may
contain confidential, personal, and or privileged information. Please
contact the sender
immediately if you are not the intended recipient of this communication,
and do not copy,
distribute, or take action relying on it. Any communication received in
error, or subsequent
reply, should be deleted or destroyed.
------------------------------------------------------------------------------------------------------------------------
This communication is intended for the use of the recipient to which it is
addressed, and may
contain confidential, personal, and or privileged information. Please
contact the sender
immediately if you are not the intended recipient of this communication,
and do not copy,
distribute, or take action relying on it. Any communication received in
error, or subsequent
reply, should be deleted or destroyed.
------------------------------------------------------------------------------------------------------------------------
This communication is intended for the use of the recipient to which it is
addressed, and may
contain confidential, personal, and or privileged information. Please contact
the sender
immediately if you are not the intended recipient of this communication, and do
not copy,
distribute, or take action relying on it. Any communication received in error,
or subsequent
reply, should be deleted or destroyed.
[[alternative HTML version deleted]]
______________________________________________
R-help@r-project.org 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.
