Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
S
shiny-timecourse-inspector
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
2
Issues
2
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Packages & Registries
Packages & Registries
Container Registry
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
pertz-lab
shiny-timecourse-inspector
Commits
7891ea8c
Commit
7891ea8c
authored
Oct 11, 2019
by
dmattek
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Modified alerts
parent
3870e872
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
9 additions
and
5 deletions
+9
-5
modules/tabClValid.R
modules/tabClValid.R
+9
-5
No files found.
modules/tabClValid.R
View file @
7891ea8c
...
@@ -242,8 +242,10 @@ clustValid <- function(input, output, session, in.dataWide) {
...
@@ -242,8 +242,10 @@ clustValid <- function(input, output, session, in.dataWide) {
# Thanks to isolate all mods in the left panel are delayed
# Thanks to isolate all mods in the left panel are delayed
# until clicking the Plot button
# until clicking the Plot button
loc.dist
=
isolate
(
calcDist
())
loc.dist
=
isolate
(
calcDist
())
validate
(
validate
(
need
(
!
is.null
(
loc.dist
),
"Nothing to plot. Load data first!"
)
need
(
!
is.null
(
loc.dist
),
"Nothing to plot. Load data first!"
),
need
(
returnMaxNclust
()
<
nrow
(
loc.dist
),
"Maximum number of clusters to conisder should be smaller than the number of time series."
)
)
)
loc.p
=
LOCnbclust
(
loc.dist
,
loc.p
=
LOCnbclust
(
loc.dist
,
...
@@ -273,8 +275,10 @@ clustValid <- function(input, output, session, in.dataWide) {
...
@@ -273,8 +275,10 @@ clustValid <- function(input, output, session, in.dataWide) {
# Thanks to isolate all mods in the left panel are delayed
# Thanks to isolate all mods in the left panel are delayed
# until clicking the Plot button
# until clicking the Plot button
loc.dist
=
isolate
(
calcDist
())
loc.dist
=
isolate
(
calcDist
())
validate
(
validate
(
need
(
!
is.null
(
loc.dist
),
"Nothing to plot. Load data first!"
)
need
(
!
is.null
(
loc.dist
),
"Nothing to plot. Load data first!"
),
need
(
returnMaxNclust
()
<
nrow
(
loc.dist
),
"Maximum number of clusters to conisder should be smaller than the number of time series."
)
)
)
loc.p
=
LOCnbclust
(
loc.dist
,
loc.p
=
LOCnbclust
(
loc.dist
,
...
@@ -304,8 +308,6 @@ clustValid <- function(input, output, session, in.dataWide) {
...
@@ -304,8 +308,6 @@ clustValid <- function(input, output, session, in.dataWide) {
# until clicking the Plot button
# until clicking the Plot button
loc.part
=
calcDendCut
()
loc.part
=
calcDendCut
()
loc.dm
=
in.dataWide
()
loc.dm
=
in.dataWide
()
print
(
sum
(
is.na
(
loc.dm
)))
validate
(
validate
(
need
(
!
is.null
(
loc.part
),
"Nothing to plot. Load data first!"
),
need
(
!
is.null
(
loc.part
),
"Nothing to plot. Load data first!"
),
...
@@ -348,11 +350,13 @@ clustValid <- function(input, output, session, in.dataWide) {
...
@@ -348,11 +350,13 @@ clustValid <- function(input, output, session, in.dataWide) {
# Check if required data exists
# Check if required data exists
loc.part
=
calcDendCut
()
loc.part
=
calcDendCut
()
# Rerun the PCA plot to obtain clour mapping of clusters in PCA and silhouette plot and match it with dendrogram colors.
# Rerun the PCA plot to obtain clour mapping of clusters in PCA and silhouette plot and match it with dendrogram colors.
loc.map
=
plotClPCA
()
loc.map
=
plotClPCA
()
validate
(
validate
(
need
(
!
is.null
(
loc.part
),
"Nothing to plot. Load data first!"
),
need
(
!
is.null
(
loc.part
),
"Nothing to plot. Load data first!"
),
need
(
!
is.null
(
loc.map
),
"Nothing to plot. Load data firs
t!"
)
need
(
!
is.null
(
loc.map
),
"Cannot assign colours to clusters. Possible NAs in the datase
t!"
)
)
)
# Determine cluster order of occurence from left to right in the dendrogram
# Determine cluster order of occurence from left to right in the dendrogram
...
...
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