[R] Create a function for test the data

[arun]

Hi,
You didnt provide an example dataset:
set.seed(25)
mycd<- data.frame(a_vol3=sample(1:20,20,replace=TRUE),a_vol4=sample(5:45,20,replace=TRUE),week=rep(1:4,each=5))
 aggregate(a_vol3 ~ week , data = mycd, mean) 
 aggregate(a_vol4 ~ week , data = mycd, mean) 
#The above two could be combined to:
 aggtr<-aggregate(. ~ week , data = mycd, mean) 
 aggtr
#  week a_vol3 a_vol4
#1    1    9.4   12.8
#2    2    9.6   18.6
#3    3   12.2   23.8
#4    4   10.8   21.0
names(aggtr)[2:3]<- c("Target3 Total Volume/Week","Target4 Total Volume/Week")
pdf("Karthick.pdf")
 mapply(plot, type="o",xlab="Week",ylab=gsub("(.*)\\s+(.*)","\\1 (\\2)",gsub("\\/.*|Total ","",names(aggtr)[2:3])),aggtr[,-1], main=names(aggtr)[2:3])
dev.off()

A.K.


>I have code like this to group the data. How to create a single function to test the target 3 and target 4? Please help me...... 
>
>This is for target 3
>aggtr3<-aggregate(a_vol3 ~ week , data = mycd, mean) 
>aggtr3$week56<-c(1:57); aggtr3 
>## Plot for Target3 Total volume / Week 
>tr3g<-plot(aggtr3$week56,aggtr3$a_vol3,type="o",xlab="Week",ylab="Target3 (Volume)",xlim=c(0,60),ylim=c(0,3300)) 
>title(main="Target3 Total Volume / Week") 
>
>This is for target 4
>aggtr4<-aggregate(a_vol4 ~ week , data = mycd, mean) 
>aggtr4$week56<-c(1:57) 
>aggtr4 
>## Plot for Target4 Total volume / Week 
>tr4g<-plot(aggtr4$week56,aggtr4$a_vol4,type="o",xlab="Week",ylab="Target4 (Volume)",xlim=c(0,60),ylim=c(0,3300)) 
>title(main="Target4 Total Volume / Week") 
-------------- next part --------------
A non-text attachment was scrubbed...
Name: Karthick.pdf
Type: application/pdf
Size: 5624 bytes
Desc: not available
URL: <https://stat.ethz.ch/pipermail/r-help/attachments/20130418/f45420c6/attachment.pdf>