R maxent

最新推荐文章于 2024-03-12 18:23:20 发布

liuha511

最新推荐文章于 2024-03-12 18:23:20 发布

阅读量2.7k

点赞数

分类专栏： NLP 文章标签： R

本文链接：https://blog.csdn.net/liuha511/article/details/41692999

版权

10 篇文章 0 订阅

订阅专栏

只是简单走一遍

> library(maxent)
> data<-read.csv(system.file("data/NYTimes.csv.gz",package="maxent"))

data 大体是这样的

	Article_ID	Date	Title	Subject	Topic.Code
1	41246	1-Jan-96	Nation's Smaller Jails Struggle To Cope With Surge in Inmates	Jails overwhelmed with hardened criminals	12
2	41257	2-Jan-96	FEDERAL IMPASSE SADDLING STATES WITH INDECISION	Federal budget impasse affect on states	20
3	41268	3-Jan-96	Long, Costly Prelude Does Little To Alter Plot of Presidential Race	Contenders for 1996 Presedential elections	20
4	41279	4-Jan-96	Top Leader of the Bosnian Serbs Now Under Attack From Within	Bosnian Serb leader criticized from within	19
5	41290	5-Jan-96	BATTLE OVER THE BUDGET: THE OVERVIEW; LEADERS IN HOUSE DROP G.O.P. PLAN ON U.S. WORKERS	Battle over budget: Republican leaders abandon strategy of using closed Government offices	1
6	41302	7-Jan-96	South African Democracy Stumbles on Old Rivalry	political violence in south africa	19
7	41314	8-Jan-96	Among Economists, Little Fear on Deficit	economists not afraid of a deficit	1

> corpus<-Corpus(VectorSource(data$Title[1:150]))

> matrix<-DocumentTermMatrix(corpus)

>sparse<-as.compressed.matrix(matrix)

> model<-maxent(sparse[1:100],data$Topic.Code[1:100])

> results<-predict(model,sparse[101:150])

results如下