* Sam Steingold f...@tah.bet [2012-07-13 15:51:46 -0400]:
How do I read/write liblinear models to files?
E.g., if I train a model using the command line interface, I might want
to load it into R to look the histogram of the weights.
Or I might want to train a model in R and then apply it using a command
line interface.
read.liblinear - function (file) {
cat(read.liblinear(,file,)\n)
lines - readLines(file)
stopifnot(lines[6]==w)
parsed - strsplit(lines[1:5], ,fixed=TRUE)
stopifnot(parsed[[1]][1] == solver_type)
stopifnot(parsed[[2]][1] == nr_class)
stopifnot(parsed[[3]][1] == label)
stopifnot(parsed[[4]][1] == nr_feature)
stopifnot(parsed[[5]][1] == bias)
stopifnot(as.numeric(parsed[[2]][2]) + 1 == length(parsed[[3]]))
stopifnot(as.numeric(parsed[[4]][2]) + 6 == length(lines))
ret - list(solver.type=parsed[[1]][2],
label=parsed[[3]][2:length(parsed[[3]])],
bias=as.numeric(parsed[[5]][2]),
weight=as.numeric(lines[7:length(lines)]))
nattr - length(ret$weight)
n0 - length(which(ret$weight==0))
cat(solver.type:,ret$solver.type,\nlabel:,ret$label,\nbias:,ret$bias,
\nweight(total:,nattr,; 0:,n0,=,(100*n0/nattr),%)\n)
print(summary(ret$weight))
ret
}
--
Sam Steingold (http://sds.podval.org/) on Ubuntu 12.04 (precise) X 11.0.11103000
http://www.childpsy.net/ http://palestinefacts.org http://honestreporting.com
http://www.PetitionOnline.com/tap12009/ http://americancensorship.org
Incorrect time synchronization.
__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.