Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Support
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
A
Actor Framework
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
0
Issues
0
List
Boards
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Metrics
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
cpp-libs
Actor Framework
Commits
75aca263
Commit
75aca263
authored
Mar 24, 2016
by
Matthias Vallentin
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Make profiler script work with current R packages
parent
5097f69c
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
4 additions
and
4 deletions
+4
-4
scripts/caf-prof
scripts/caf-prof
+4
-4
No files found.
scripts/caf-prof
View file @
75aca263
...
@@ -41,7 +41,7 @@ iwanthue <- function(n, hmin=0, hmax=360, cmin=0, cmax=180, lmin=0, lmax=100) {
...
@@ -41,7 +41,7 @@ iwanthue <- function(n, hmin=0, hmax=360, cmin=0, cmax=180, lmin=0, lmax=100) {
lab
<-
as
(
hcl
,
'LAB'
)
lab
<-
as
(
hcl
,
'LAB'
)
}
}
lab
<-
lab
[
which
(
!
is.na
(
hex
(
lab
))),
]
lab
<-
lab
[
which
(
!
is.na
(
hex
(
lab
))),
]
clus
<-
kmeans
(
coords
(
lab
),
n
,
iter.max
=
50
)
clus
<-
kmeans
(
coords
(
lab
),
n
,
iter.max
=
100
,
algorithm
=
"MacQueen"
)
hex
(
LAB
(
clus
$
centers
))
hex
(
LAB
(
clus
$
centers
))
}
}
...
@@ -127,8 +127,8 @@ add_points <- function(p, .data) {
...
@@ -127,8 +127,8 @@ add_points <- function(p, .data) {
# hiding smaller point groups behind big point clouds.
# hiding smaller point groups behind big point clouds.
f
<-
table
(
.data
$
label
)
f
<-
table
(
.data
$
label
)
o
<-
names
(
rev
(
sort
(
f
)))
# order of layers
o
<-
names
(
rev
(
sort
(
f
)))
# order of layers
pts
<-
lapply
(
o
,
function
(
x
)
{
force
(
x
);
geom_point
(
subset
=
.
(
label
==
x
))
})
gp
<-
function
(
x
)
{
force
(
x
);
geom_point
(
data
=
subset
(
.data
,
label
==
x
))
}
r
<-
Reduce
(
"+"
,
pts
,
r
)
r
<-
Reduce
(
"+"
,
lapply
(
o
,
gp
)
,
r
)
# Give each layer its own color and assign it it custom alpha value
# Give each layer its own color and assign it it custom alpha value
# inversely proportional to the point frequency.
# inversely proportional to the point frequency.
n
<-
length
(
f
)
n
<-
length
(
f
)
...
@@ -211,7 +211,7 @@ plot_time_boxplot <- function(.data) {
...
@@ -211,7 +211,7 @@ plot_time_boxplot <- function(.data) {
aes
(
x
=
label
,
y
=
cpu
,
fill
=
util
)
+
aes
(
x
=
label
,
y
=
cpu
,
fill
=
util
)
+
# TODO: re-enable when fixing the magic transformation.
# TODO: re-enable when fixing the magic transformation.
# annotation_logticks(sides="lr", color="grey") +
# annotation_logticks(sides="lr", color="grey") +
geom_boxplot
(
outlier.color
=
"grey"
)
+
geom_boxplot
(
outlier.colo
u
r
=
"grey"
)
+
labs
(
x
=
"ID"
,
y
=
"CPU time"
)
+
labs
(
x
=
"ID"
,
y
=
"CPU time"
)
+
scale_y_time
(
xs
$
cpu
)
+
scale_y_time
(
xs
$
cpu
)
+
scale_fill_gradient
(
name
=
"Utilization"
,
low
=
"red"
,
high
=
"green"
,
scale_fill_gradient
(
name
=
"Utilization"
,
low
=
"red"
,
high
=
"green"
,
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment