Installing Deducer in Win7

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 == “windows”
ws <- function(s){
if(windows) gsub(“/”,”\\\\”,s) else s
}
ps <- if(windows) “;” else “:”
qs <- function(s){
paste0(“\”” , s , “\””)
}
rhome <- ws(R.home())
libs <- ws(paste(.libPaths(),collapse=ps))
libUser <- ws(Sys.getenv(“R_LIBS_USER”))
arch <- sessionInfo()$R.version$arch
rJavaPath <- ws(path.package(“rJava”))
jriJarPath <- ws(paste0(path.package(“rJava”) , “/jri/JRI.jar”))
jgrJarPath <- ws(paste0(path.package(“JGR”) , “/java/JGR.jar”))
iplotsJarPath <- ws(paste0(path.package(“iplots”) , “/java/iplots.jar”))
boot <- ws(paste0(rJavaPath,”/java/boot”))
javaHome <- J(“java.lang.System”)$getProperty(“java.home”)
java <- ws(paste0(javaHome,”/bin/java.exe”))
path <- J(“java.lang.System”)$getProperty(“java.library.path”)

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

Sys.setenv(PATH=path)
Sys.setenv(R_HOME=rhome)
Sys.setenv(R_ARCH=arch)
Sys.setenv(R_LIBS=libs)
Sys.setenv(R_LIBS_USER=libUser)
cmd <- paste0(qs(java), ” -Xmx512m “, ” -cp “, qs(boot),
” -Drjava.class.path=”, cp,
” -Drjava.path=”,qs(rJavaPath),
” -Dmain.class=org.rosuda.JGR.JGR “,” -Djgr.load.pkgs=yes “,
” -Djgr.loader.ver=1.7″, ” -Dr.arch=”,arch,
” RJavaClassLoader”)
system(cmd,wait=FALSE)
cmd
}
launchJGR()

3. If that doesn’t work, open R in c:\Program Files\R\R-3.0.1\bin\x64\Rgui.exe and run the same code.