{"id":414,"date":"2014-01-02T15:51:46","date_gmt":"2014-01-02T20:51:46","guid":{"rendered":"http:\/\/homepages.uc.edu\/~yaozo\/wordpress\/?p=414"},"modified":"2014-01-02T15:51:46","modified_gmt":"2014-01-02T20:51:46","slug":"installing-deducer-in-win7","status":"publish","type":"post","link":"https:\/\/zhuoyao.net\/index.php\/2014\/01\/02\/installing-deducer-in-win7\/","title":{"rendered":"Installing Deducer in Win7"},"content":{"rendered":"

1. make sure you have java installed.
\n2. open R in c:\\Program Files\\R\\R-3.0.1\\bin\\i386\\Rgui.<\/wbr>exe and run:
\ninstall.packages(c(“rJava”,”<\/wbr>iplots”,”JGR”,”Deducer”,”<\/wbr>JavaGD”))
\n.libPaths()
\nlibrary(JGR)
\nlaunchJGR <- function(){
\nwindows <- .Platform$OS.type == “windows”
\nws <- function(s){
\nif(windows) gsub(“\/”,”\\\\\\\\”,s) else s
\n}
\nps <- if(windows) “;” else “:”
\nqs <- function(s){
\npaste0(“\\”” , s , “\\””)
\n}
\nrhome <- ws(R.home())
\nlibs <- ws(paste(.libPaths(),collapse=<\/wbr>ps))
\nlibUser <- ws(Sys.getenv(“R_LIBS_USER”))
\narch <- sessionInfo()$R.version$arch
\nrJavaPath <- ws(path.package(“rJava”))
\njriJarPath <- ws(paste0(path.package(“rJava”<\/wbr>) , “\/jri\/JRI.jar”))
\njgrJarPath <- ws(paste0(path.package(“JGR”) , “\/java\/JGR.jar”))
\niplotsJarPath <- ws(paste0(path.package(“<\/wbr>iplots”) , “\/java\/iplots.jar”))
\nboot <- ws(paste0(rJavaPath,”\/java\/<\/wbr>boot”))
\njavaHome <- J(“java.lang.System”)$<\/wbr>getProperty(“java.home”)
\njava <- ws(paste0(javaHome,”\/bin\/java.<\/wbr>exe”))
\npath <- J(“java.lang.System”)$<\/wbr>getProperty(“java.library.<\/wbr>path”)<\/p>\n

cp <- paste(qs(jriJarPath), qs(iplotsJarPath), qs(jgrJarPath),
\nqs(paste0(<\/wbr>rhome , ws(“\/etc\/classes”))),
\nqs(paste0(<\/wbr>rhome , ws(“\/etc\/classes\/classes.jar”)<\/wbr>)),sep=ps)<\/p>\n

Sys.setenv(PATH=path)
\nSys.setenv(R_HOME=<\/wbr>rhome)
\nSys.setenv(R_ARCH=<\/wbr>arch)
\nSys.setenv(R_LIBS=<\/wbr>libs)
\nSys.setenv(R_LIBS_<\/wbr>USER=libUser)
\ncmd <- paste0(qs(java), ” -Xmx512m “, ” -cp “, qs(boot),
\n” -Drjava.class.path=”, cp,
\n” -Drjava.path=”,qs(rJavaPath),
\n” -Dmain.class=org.rosuda.JGR.<\/wbr>JGR “,” -Djgr.load.pkgs=yes “,
\n” -Djgr.loader.ver=1.7″, ” -Dr.arch=”,arch,
\n” RJavaClassLoader”)
\nsystem(cmd,wait=FALSE)
\ncmd
\n}
\nlaunchJGR()<\/p>\n

3. If that doesn’t work, open R in c:\\Program Files\\R\\R-3.0.1\\bin\\x64\\Rgui.<\/wbr>exe and run the same code.<\/p>\n","protected":false},"excerpt":{"rendered":"

1. make sure you have java installed. 2. open R in c:\\Program Files\\R\\R-3.0.1\\bin\\i386\\Rgui.exe and run: install.packages(c(“rJava”,”iplots”,”JGR”,”Deducer”,”JavaGD”)) .libPaths() library(JGR) launchJGR <- function(){ windows <- .Platform$OS.type ==… <\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[20],"tags":[],"class_list":["post-414","post","type-post","status-publish","format-standard","hentry","category-r"],"_links":{"self":[{"href":"https:\/\/zhuoyao.net\/index.php\/wp-json\/wp\/v2\/posts\/414","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/zhuoyao.net\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/zhuoyao.net\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/zhuoyao.net\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/zhuoyao.net\/index.php\/wp-json\/wp\/v2\/comments?post=414"}],"version-history":[{"count":0,"href":"https:\/\/zhuoyao.net\/index.php\/wp-json\/wp\/v2\/posts\/414\/revisions"}],"wp:attachment":[{"href":"https:\/\/zhuoyao.net\/index.php\/wp-json\/wp\/v2\/media?parent=414"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/zhuoyao.net\/index.php\/wp-json\/wp\/v2\/categories?post=414"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/zhuoyao.net\/index.php\/wp-json\/wp\/v2\/tags?post=414"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}