Re: [R] ave function

2013-08-21 Thread arun
rt Lynch To: arun Sent: Wednesday, August 21, 2013 4:49 PM Subject: Re: [R] ave function Arun-- Thanks I had no idea about dput.  I really appreciate your help.  I have attached an example data set from dput.  Not to worry the ID#s have been changed but I wanted to include them just in c

Re: [R] ave function

2013-08-20 Thread arun
8   2 1.000 1.000 #5   9   2 1.000 1.000 Hope this helps. A.K. From: Robert Lynch To: arun Cc: R help Sent: Tuesday, August 20, 2013 8:00 PM Subject: Re: [R] ave function I tried  > lapply(split(Clean,list(Clean$TE

Re: [R] ave function

2013-08-20 Thread Robert Lynch
lean$TERM,Clean$INST_NUM)),function(x) > shapiro.test(x$GRADE)) > A.K. > > > > > - Original Message - > From: Robert Lynch > To: r-help@r-project.org > Cc: > Sent: Tuesday, August 13, 2013 1:46 PM > Subject: [R] ave function > > I've written the

Re: [R] ave function

2013-08-13 Thread arun
Hi, You could try:  lapply(split(Clean,list(Clean$TERM,Clean$INST_NUM)),function(x) shapiro.test(x$GRADE)) A.K. - Original Message - From: Robert Lynch To: r-help@r-project.org Cc: Sent: Tuesday, August 13, 2013 1:46 PM Subject: [R] ave function I've written the following fun

[R] ave function

2013-08-13 Thread Robert Lynch
I've written the following function CoursePrep <- function (Source, SaveName) { Clean$TERM <- as.factor(Clean$TERM) Clean$INST_NUM <- as.factor(Clean$INST_NUM) Clean$zGrade <- with(Clean, ave(GRADE., list(TERM, INST_NUM), FUN = scale)) write.csv(Clean,paste(SaveName, "csv", sep ="."), ro