clargs <- commandArgs(trailing=TRUE) source(file.path(clargs[1], "unittest.R")) dyn.load(paste("li_std_vector", .Platform$dynlib.ext, sep="")) source("li_std_vector.R") cacheMetaData(1) testvec <- c(1, 2, 3) unittest(half(testvec), testvec/2) unittest(average(testvec), mean(testvec)) ## string vector test vlen <- 13 stringvec <- paste(letters[1:vlen], as.character(rnorm(vlen))) unittest(rev(stringvec), RevStringVec(stringvec)) q(save="no")
Generated by dwww version 1.15 on Mon Jul 1 06:10:41 CEST 2024.