hollorol/RBBGCMuso
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

change treeplot output to svg

Browse Source
This commit is contained in:
Hollos Roland 2021-06-23 12:26:34 +02:00
parent f009a85245
commit dc51de6f15
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
RBBGCMuso/R/multiSite.R
View File

@ -221,7 +221,7 @@ multiSiteCalib <- function(measurements,
treeData <- results[,-notForTree] treeData <- results[,-notForTree]
treeData$failType <- as.factor(treeData$failType) treeData$failType <- as.factor(treeData$failType)
rp <- rpart(failType ~ .,data=treeData,control=treeControl) rp <- rpart(failType ~ .,data=treeData,control=treeControl)
png("treeplot.png") svg("treeplot.svg")
rpart.plot(rp) rpart.plot(rp)
dev.off() dev.off()
origModOut <- future::value(fut[[1]], stdout = FALSE, signal=FALSE)[["origModOut"]] origModOut <- future::value(fut[[1]], stdout = FALSE, signal=FALSE)[["origModOut"]]