> * 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.
