H A D | bootLexis.R | 2 nid <- function ( Lx, ... ) UseMethod("nid") argument 6 function( Lx, by=NULL, ... ) argument 11 if( !is.factor(Lx[,by]) ) Lx[,by] <- factor(Lx[,by]) 14 length( unique( Lx$lex.id ) ) 16 sapply( split( Lx, Lx[,by] ), nid.Lexis ) 22 function( Lx, argument 29 isDT <- inherits( Lx, "data.table" ) 39 bLx <- subid.Lexis( Lx, REsample( unique(Lx$lex.id), size ) ) 42 spL <- split( Lx, Lx[,by] ) 60 function( Lx, ids ) argument [all …]
|