File: listmake.R

package info (click to toggle)
r-cran-ksamples 1.2-10-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 456 kB
  • sloc: ansic: 1,321; makefile: 2
file content (14 lines) | stat: -rw-r--r-- 340 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
listmake <- function (y=1:10,g=as.factor(c(1,1,1,2,2,2,2,2,2,3)),b=as.factor(c(1,1,1,1,3,2,2,2,3,1)))
{
data.sets <- lapply(levels(b), 
					function(blv){
						gg <- as.factor(as.numeric(unlist(g[b==blv])))
						lapply(levels(gg),
							function(glv){
						     return(y[b == blv & g == glv])
							}
						)
					}
				)
data.sets
}